Nouveau petit souci de fonctionnement et malgré mes recherches, je ne trouve pas.
Peut-être n'y a-t-il pas de solution.
J'ai ce code : ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(1).Select
Mais, toujours dans mon fichier de course, quand je sélectionne une ligne, le format hauteur de la ligne sélectionné change.
C'est pourquoi il me serait utile de pouvoir atteindre la dernière ligne du classeur sans sélection.
En fait, ce que je voudrais c'est : ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(1)sans le ".Select"
Mais est-ce possible ?
Un grand merci à vous d'être toujours et encore à l'écoute.
Bonne journée à toutes et à tous,
Amicalement,
Arthour973,
Super et un grand merci pour ce code qui fonctionne parfaitement.
Je ne pensais pas qu'un fichier test serait à faire et bêtement je ne l'ai pas fait.
Toutes mes excuses pour ça. A l'avenir, je ferai un fichier pour tout.
Merci de l'avoir fait Philippe
Bonne fin de journée,
Amicalement,
Arthour973,
Sub LaDerDesDer()
MsgBox Rows(Rows.Count).Row
' si version Xl > à 2010
MsgBox Rows(2 ^ (1600 / (4 * 20))).Row
'ou en simplifiant ;-)
MsgBox Rows((32 ^ 2) ^ 2).Row
End Sub
ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(1)
Ceci donne la première cellule non vide en partant de la fin de feuille
Mais pourquoi le (1) ?
Car..
VB:
Sub DerLigNonVide()
Cells(1, 1).Resize(1600) = "=INT(LOG(ROW()))"
MsgBox ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(1).Address
MsgBox ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Address
MsgBox Cells(Rows.Count, 1).End(3).Address
End Sub