VBA: zone d'impression jusqu'a la dernière ligne de données

Résolu
Emi80110 Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   -  
Emi80110 Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

Je cherche une macro me permettant de définir automatiquement ma zone d'impression (des colonnes a a F) jusqu'à la dernière ligne de données, sur une seule page en largeur et en automatique en longueur.

Sauriez-vous m'aider svp ?

fichier exemple ci-dessous

https://www.cjoint.com/c/NDimT5RBLkr

Par avance merci de votre aide :-)


Windows / Edge 123.0.0.0

1 réponse

danielc0 Messages postés 1857 Date d'inscription   Statut Membre Dernière intervention   229
 

Bonjour,

Essaie (ZI est la zone d'impression) :

Sub test()
  Dim Ligne As Long, ZI As Range
  Ligne = Range("A:F").Find("*", , , xlPart, xlByRows, xlPrevious).Row
  Set ZI = Range("A1:F" & Ligne)
End Sub

0
Emi80110 Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   2
 

Merciiii j'ai finalement trouvé avant de voir votre réponse. Je pense que votre réponse et la clôture de mon message se sont croisés :-)

Merci tout de même de votre aide :-D

0