Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Filter et impression automatiser

Seddiki_adz

XLDnaute Impliqué
Bonsoir
j'ai besoin d'un code pour filtre et un code pour imprimer automatiser
Merci
 

Pièces jointes

  • filter et impresion1.xlsx
    21.7 KB · Affichages: 3
Solution
@Seddiki_adz

Tout est dans le code

VB:
Sub Impression()

Sheets("Feuil1").PrintPreview   'Visualise l'impression
'Sheets("Feuil1").PrintOut      'Lance l'impression

End Sub

Il te suffit de désactiver avec une apostrophe la 1ere ligne et d'activer la 2eme ligne

VB:
Sub Impression()

'Sheets("Feuil1").PrintPreview   'Visualise l'impression
Sheets("Feuil1").PrintOut      'Lance l'impression

End Sub

*Merci de ton retour

@Phil69970

Phil69970

XLDnaute Barbatruc
@Seddiki_adz

Tout est dans le code

VB:
Sub Impression()

Sheets("Feuil1").PrintPreview   'Visualise l'impression
'Sheets("Feuil1").PrintOut      'Lance l'impression

End Sub

Il te suffit de désactiver avec une apostrophe la 1ere ligne et d'activer la 2eme ligne

VB:
Sub Impression()

'Sheets("Feuil1").PrintPreview   'Visualise l'impression
Sheets("Feuil1").PrintOut      'Lance l'impression

End Sub

*Merci de ton retour

@Phil69970
 

Seddiki_adz

XLDnaute Impliqué
Bonsoir
si possible d'ajouter un colonne pour numérotation pour avoir nombre de enveloppe (voir feuuil2)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…