VBA - dernière ligne (ou colonne)

Résolu/Fermé

Tehani_t Messages postés 240 Date d'inscription mercredi 14 juillet 2010 Statut Membre Dernière intervention 20 décembre 2011 - 19 janv. 2011 à 23:46
Tehani_t Messages postés 240 Date d'inscription mercredi 14 juillet 2010 Statut Membre Dernière intervention 20 décembre 2011 - 21 janv. 2011 à 21:19

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:

VBA - dernière ligne (ou colonne)
Déplacer une colonne excel - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide
Colonne word - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
20 janv. 2011 à 07:12

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

Tehani_t Messages postés 240 Date d'inscription mercredi 14 juillet 2010 Statut Membre Dernière intervention 20 décembre 2011 21
20 janv. 2011 à 18:32

merci je vais tester

Réponse 3 / 4

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
20 janv. 2011 à 18:47

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

Tehani_t Messages postés 240 Date d'inscription mercredi 14 juillet 2010 Statut Membre Dernière intervention 20 décembre 2011 21
21 janv. 2011 à 21:19

Merci pour m'avoir aidé !!

Discussions similaires

Formule magique excel??????

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters