VBA - dernière ligne (ou colonne)

Résolu
Tehani_t Messages postés 245 Statut Membre -  
Tehani_t Messages postés 245 Statut Membre -
Bonjour le forum,

i=0

Do
i=i+1
Sheets("feuil1").cells(i, 1).value = "ok"
loop until <<il n' y a plus de ligne>>

Comment traduire <<il n'y a plus de ligne>> ?? Existe t il une fonction ?
Mon code renseigne les lignes d'une "feuil1", et j'aimerais qu'il le fasse jusqu'à la dernière c'est a dire jusqu'à la 65 000 ème ligne (me rappelle plus du nombre exact de lignes).

Ou faut il (tout simplement) dire jusqu'à la 65 000 ème ligne ??

Merci par avance !!

A voir également:

4 réponses

Réponse 1 / 4
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

C'est mieux de repérer d'abord la dernière ligne.
Se baser sur une colonne complètement remplie, par exemple la A.
Le dernière ligne est :
derlig=[A65536].end(xlup).row
ensuite :
for lig= 2 to derlig
...
next lig

[A65536] valable pour excel <= 2003, sinon on peut mettre un code qui s'adapte.

eric
0
Réponse 2 / 4
Tehani_t Messages postés 245 Statut Membre 21
 
merci je vais tester
0
Réponse 3 / 4
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 727
 
bonjour Tehani_t, Éric

Si tu veux traiter les lignes utilisées tu peux tout de même avoir une fonction <<il n' y a plus de ligne>> 

i = 0
Do
    i = i + 1
    Sheets("feuil1").Cells(i, 1).Value = "ok"
Loop Until i = UsedRange.Rows.Count '<<il n' y a plus de ligne>>
0
Réponse 4 / 4
Tehani_t Messages postés 245 Statut Membre 21
 
Merci pour m'avoir aidé !!
0