Microsoft 365 Cellule A & dernière ligne non vide

Patrice33740

XLDnaute Impliqué

• 9 Octobre 2020

• #2

Bonjour,

VB:

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

et

VB:

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

Essayer la touche magique : F1

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 9 Octobre 2020

• #3

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

Code:

Range("A" & lz)

Cependant, cela se complique:

VB:

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

 

Dernière édition: 9 Octobre 2020

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 10 Octobre 2020

• #4

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

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 10 Octobre 2020

• #5

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.

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 11 Octobre 2020

• #6

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif