Salut orichedo,
Lorsque tu inscrit la valeur dans la cellule, tu lui indiques Cells(Ligne, Colonne).value=xxxx
Crée une variable dans laquelle tu inscris le numéro de la ligne, par exemple :
LaLigne=1
Crée une autre variable pour le numéro de colonne :
LaColonne=1
Ton instruction devient Cells(LaLigne, LaColonne).value= xxxx
Puis tu incrémente le numéro de la liligne :
LaLigne=LaLigne + 1
Ainsi, à la prochaine itération, le numéro de ligne dans laquelle tu vas écrire sera la suivante.
Un petit détail : dans Excel, tu as 65535 lignes dans une feuille !
Si tu as plus d'enregistrements à effectuer, tu dois vérifier si tu n'atteins pas cette dernière ligne. Si c'est le cas, tu passe à la seconde colonne, par exemple :
If LaLigne=65535 then
LaLigne=1
LaColonne=2
endif
Ainsi, ton numéro de colonne sera incrémenté chaque fois que tu auras atteint le bas de ta colonne. Avec les 255 colonnes disponibles, tu as à ta disposition :
65535 cellules *255 colonnes = 16.711.425 cellules pour engegistrer des données !
Bon courage pour gérer ça
Message édité par Papy Octet le 31-10-2006 à 16:42:47