Macro : aller à la fin du tableau et recouvrir l'ensemble des cellules

[abeg1966]

J'espère avoir été assez clair dans le titre..

Quand j'utilise l'enregistreur de Macro, et que j'utilise les touches Fin Bas pour aller à la fin de mon fichier, le développeur me change cet ordre en me disant en gros "aller à la ligne 46" si celle-ci est la dernière ligne du fichier.

Si mon fichier etait de taille constante pas de souci, mais bien sûr ce n'est pas le cas...

J'aimerais donc connaitre la syntaxe pour aller en fin de tableau à partir d'une ligne ou d'une cellule

par exemple : pour définir une zone d'impression ou pour détruire la dernière ligne

Merci d'avance

 

[Pierrot93]

Re : Macro : aller à la fin du tableau et recouvrir l'ensemble des cellules

Bonjour,

regarde peut être ceci, après fonction de ce que tu veux faire réellement :

Range("A1").CurrentRegion.Select
'ou ceci
MsgBox "dernière ligne " & Range("A65536").End(xlUp).Row

bonne journée
@+

 

[abeg1966]

Re : Macro : aller à la fin du tableau et recouvrir l'ensemble des cellules

merci de la rapidité

ci dessous un exemple

Rows("5:46").Select
Selection.RowHeight = 38.25

donc, ça va me changer la hauteur des lignes 5 à 46, et je voudrais que ce soit la dernière ligne à la place de 46

j'suis sûr que c'es tout con...

 

[Pierrot93]

Re : Macro : aller à la fin du tableau et recouvrir l'ensemble des cellules

Re,

en se basant sur la colonne A pour déterminer la dernière ligne :

Rows("5:" & Range("A65536").End(xlUp).Row).RowHeight = 38.25

 

[abeg1966]

Re : Macro : aller à la fin du tableau et recouvrir l'ensemble des cellules

Merci beaucoup Pierrot

Ce fut long (c'est normal pour la première) mais le résultat me va très bien

A bientôt 🙂