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

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Mars 2018

• #2

Bonjour Arthour,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  16.6 KB · Affichages: 23

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2018

• #3

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #4

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.

Cliquez pour agrandir...

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: 26 Mars 2018

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2018

• #5

Bonsoir Staple1600,

Merci encore une fois pour t'être intéressé à mon souci et un grand merci pour le code 😉
Bonne fin de journée,
Amicalement,
Arthour973,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2018

• #6

Re

Relis mon précédent message
Il ne s'agit pas de macro ou de VBA mais de nommer un chat un chat 😉

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2018

• #7

Bonjour Staple1600, le forum,

J'avais pas bien lu et pas testé.
Merci pour cette précision. 😉
Bonne journée,
Amicalement,
Arthour973,

 

Vote positif 0 Vote négatif