XL 2016 Filter et impression automatiser

Phil69970 à dit:

Bonjour @Seddiki_adz

Je te propose ce fichier

*Merci de ton retour

@Phil69970

Cliquez pour agrandir...

Phil69970 à dit:

@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

Cliquez pour agrandir...

Phil69970 à dit:

@Seddiki_adz

Et bien tu rajoutes une colonne et tout devrait fonctionner normalement
Quel est le problème ?

@Phil69970

Cliquez pour agrandir...

Phil69970 à dit:

@Seddiki_adz

Avec cette version tu peux rajouter autant de ligne et de colonne que tu veux

@Phil69970

Cliquez pour agrandir...

Phil69970 à dit:

@Seddiki_adz

Tu as modifier le fichier

Mon fichier :
Regarde la pièce jointe 1138542

Ton fichier :
Regarde la pièce jointe 1138543

Donc c'est normal que cela ne fonctionne plus

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

@Phil69970

Cliquez pour agrandir...

Seddiki_adz à dit:

Merci

Cliquez pour agrandir...

Phil69970 à dit:

@Seddiki_adz

C'est normal tu rajoutes des colonnes n'importe où !
Quand on rajoute des colonnes on les rajoute à la fin pas au début

Regarde la pièce jointe 1138545

@Phil69970

Cliquez pour agrandir...