XL 2013 atteindre la dernière ligne sans sélectionner

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

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,
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir Philippe,

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,
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

@arthour973
C'est pourquoi il me serait utile de pouvoir atteindre la dernière ligne du classeur sans sélection.
la dernière ligne se trouve comme ceci ;)
VB:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400