Discussion :

[MANOU06]

Bonsoir,

Dans cet exemple, nous avons le nombre de lignes jusqu'à une cellule vide.
Je voudrais la même chose avec jusqu'à une cellule non vide. Est ce possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Range("a1").Select
    Do
    ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell = ""
nli = ActiveCell.Row

Je vous remercie pour votre aide

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Lig As Long
 
Lig = Sheets("Feuil1").Range("A1").End(xlDown).Row 'adapte le nom de la feuille
MsgBox Lig

Attention quand même si la colonne A est vide (A1 peut indifféremment être vide ou non dans ce cas), ceci donne le nombre de lignes de la feuille

[patricktoulon]

bonjour

en descandant tu peut tres bien tomber sur une celule pleine juste avant une celule vide mais il n'est pas forcé qu'il ny en ai pas d'autre plus bas

donne plus de precision sur ton but final et peut etre que l'on pourra trouver une solution

sinon un exemple pour trouver la derniere ligne renseignée dans une colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
dim derlig as long
'en remontant d'en bas
derlig = sheets(1).range("a65536").end(xlup).row
'en descendant
derlig=sheets(1).range("a1").end (xldown).row '

enfin il y en a plein d'autre

au plaisir

[MANOU06]

Merci Mercatog, ça marche super

Je te souhaite une très bonne fin de soirée

Bonsoir Patricktoulon,

Je te remercie, on m'a donné une solution.
Je voulais simplement avoir le nombres de ligne qu'il y avait jusqu'a ma cellule non vide
bonne soirée à toi