OVH Cloud OVH Cloud

recherche dernière ligne utilisée

6 réponses
Avatar
danielrv
Bonjour,
Dans un tableau avec toujours le même nombre de colonnes, mais qui ne sont
pas toutes renseignées, je souhaiterais trouver la dernière ligne utilisée.
Avec ActiveCell.SpecialCells(xlLastCell).Select, excel garde parfois en
mémoire des données qui ont été effacées, aussi, un test par colonne semble
plus adéquat, mais je ne sais pas faire la boucle xl.up.
Merci et bonne journée.

6 réponses

Avatar
JpPradier
Re Daniel

LigneMax = 1
NbCol = 10
For i = 1 To NbCol
Ligne = Cells(65536, i).End(xlUp).Row
If Ligne > LigneMax Then LigneMax = Ligne
Next

MsgBox LigneMax


j-p
Avatar
Youky
msgbox [A:Z].find("*",,1,,1,2).row
ceci pour la col de Aà Z
Youky
"danielrv" a écrit dans le message de news:
%
Bonjour,
Dans un tableau avec toujours le même nombre de colonnes, mais qui ne sont
pas toutes renseignées, je souhaiterais trouver la dernière ligne
utilisée. Avec ActiveCell.SpecialCells(xlLastCell).Select, excel garde
parfois en mémoire des données qui ont été effacées, aussi, un test par
colonne semble plus adéquat, mais je ne sais pas faire la boucle xl.up.
Merci et bonne journée.



Avatar
JB
Bonjour

Toutes les colonnes:
xÎlls.Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row

Colonnes A à G:

y=[A:G].Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row

Cordialement JB
Avatar
JB
Bonjour,

Sur Excel 2003, le premier 1 doit être remplacé par Xlvalues (il peut
être également supprimé)

Cordialement JB
Avatar
danielrv
Bonjour et Re...
Merci, c'est rapide, top et super...
Bonne journée à vous deux.
Daniel
Avatar
TDF
Alors là Youki, merci. C'est très malin et c'est toujours utile ce genre de
truc.
Je vais essayer de comprendre maintenant..


msgbox [A:Z].find("*",,1,,1,2).row
ceci pour la col de Aà Z
Youky
"danielrv" a écrit dans le message de news:
%
Bonjour,
Dans un tableau avec toujours le même nombre de colonnes, mais qui ne sont
pas toutes renseignées, je souhaiterais trouver la dernière ligne
utilisée. Avec ActiveCell.SpecialCells(xlLastCell).Select, excel garde
parfois en mémoire des données qui ont été effacées, aussi, un test par
colonne semble plus adéquat, mais je ne sais pas faire la boucle xl.up.
Merci et bonne journée.