VBA - dernière ligne (ou colonne) [Résolu/Fermé]

Signaler
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
-
Tehani_t
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
-
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 !!

4 réponses

Messages postés
23216
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 janvier 2020
5 870
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
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
15
merci je vais tester
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3 799
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>> 
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
15
Merci pour m'avoir aidé !!