Bonjour Brigitte, André, le forum,
JJ a déjà eu ces réponses, mais comme il repose les mêms questions ailleurs... alors
http://www.excel-downloads.com/forum...e-non-vide.htm
mais si vous voulez, j'ai toujours un petit fichier texte qui me suit... Je vous en fait profiter...
Code:
a = Sheets(1).Range('A65536').End(xlUp).Row
Range('C2', Selection.End(xlDown)).CurrentRegion.Select
DerLgn = Range('A65536').End(xlUp).Row
=RECHERCHE(9^9;A:A) pour les valeurs numériques
=INDIRECT('A' & EQUIV('';A:A;-1)) pour les cellules de texte
=EQUIV('';A:A;-1) détermine le numéro de la dernière ligne de texte
DerCol = Mid(Range('IV1').End(xlToLeft).Address(0, 0), 1, 1)
DerCol = Sheets('IDATA').Range('IV4').End(xlToLeft).Column
A chaque fois que je rencontre un renseignement sur 'Comment trouver la dernière ligne ou la dernière colonne', je le rajoute dand mon fichier texte.
Bonne journée... Guy