Microsoft 365 Cellule A & dernière ligne non vide

[Aloha]

Bonsoir,

Cela fait un moment que je n'ai plus rien fait dans Excel et je n'arrive même plus à définir la cellule à l'intersection de la colonne A (ou autre) avec la dernière ligne occupée.
Le code

Dim lz As Integer
'
  lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  Cells("A", lz).Select

ne fonctionne pas et

Dim lz As Integer
'
  lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  Cells("A" & lz).Select

non plus

Bonne soirée
Aloha

 

[Patrice33740]

Bonjour,

Dim lz As Integer
'
  lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  Cells(lz, "A").Select

et

Dim lz As Integer
'
  lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  Range("A" & lz).Select

Essayer la touche magique : F1

 

[Aloha]

Bonsoir,
Merci pour le tuyau!
Entretemps j'avais mieux utilisé mon cerveau et en remplaçant Cells par Range ça fonctionne:

Range("A" & lz)

Cependant, cela se complique:

ActiveCell.FormulaR1C1 = "=SUMIF(R6C[-1]:R63C[-1],RC3,R6C:R63C)"

Comment faire dans ce cas? La ligne 63 est la dernière ligne occupée.
Bonne soirée

Aloha

 

[Patrice33740]

Une règle de base :
Ne pas utiliser Select, ni les objets actifs (ActiveCell, ActiveSheet, Selection, ....)

 

[Aloha]

En principe ce principe m'est connu, ...mais apparemment pas à l'enregistreur de macro. J'ai réussi à supprimer une partie des Select, mais je n'ai pas réussi lorsqu'il s'agissait de saisir une formule.
Qui plus est, respecter cette règle ne me fait pas avancer puisque mon problème est un autre.

 

[Aloha]

J'ai trouvé la solution.
Merci à ceux qui se sont penchés peut-être sur mon problème!

 

[Usine à gaz]

Bonjour Aloha, le Forum,

Puisque vous avez trouvé la solution.
Ce serait sympa de la poster ici pour en faire profiter ceux qui en ont besoin
Bon dimanche à toutes et à tous,
lionel