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
 -
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 !!

Afficher la suite

4 réponses

Réponse 1 / 4
Messages postés
23808
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
19 janvier 2021
 6 578
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
Réponse 2 / 4
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
 18
merci je vais tester
Réponse 3 / 4
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
 4 292
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>>
Réponse 4 / 4
Messages postés
240
Date d'inscription
mercredi 14 juillet 2010
Statut
Membre
Dernière intervention
20 décembre 2011
 18
Merci pour m'avoir aidé !!
Posez votre question