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

4 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  2. Tehani_t Messages postés 245 Statut Membre 21
     
    merci je vais tester
    0
  3. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
  4. Tehani_t Messages postés 245 Statut Membre 21
     
    Merci pour m'avoir aidé !!
    0