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

Résolu
Emi80110 Messages postés 50 Date d'inscription jeudi 30 septembre 2021 Statut Membre Dernière intervention 8 avril 2024 - 8 avril 2024 à 14:48
Emi80110 Messages postés 50 Date d'inscription jeudi 30 septembre 2021 Statut Membre Dernière intervention 8 avril 2024 - 8 avril 2024 à 16:08

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

A voir également:

1 réponse

danielc0 Messages postés 1268 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 19 novembre 2024 143
Modifié le 8 avril 2024 à 15:47

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 50 Date d'inscription jeudi 30 septembre 2021 Statut Membre Dernière intervention 8 avril 2024 1
8 avril 2024 à 16:08

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