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é
@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
Bonsoir
si possible d'ajouter un colonne pour numérotation pour avoir nombre de enveloppe (voir feuuil2)
 

Phil69970

XLDnaute Barbatruc
@Seddiki_adz

Tu as modifier le fichier

Mon fichier :
1651538684670.png


Ton fichier :
1651538753162.png


Donc c'est normal que cela ne fonctionne plus

Remets tout en place et cela refonctionnera ou bien modifie le code

@Phil69970
 

Discussions similaires

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16