Sub Impression()
Sheets("Feuil1").PrintPreview 'Visualise l'impression
'Sheets("Feuil1").PrintOut 'Lance l'impression
End Sub
Sub Impression()
'Sheets("Feuil1").PrintPreview 'Visualise l'impression
Sheets("Feuil1").PrintOut 'Lance l'impression
End Sub
Merci
Sub Impression()
Sheets("Feuil1").PrintPreview 'Visualise l'impression
'Sheets("Feuil1").PrintOut 'Lance l'impression
End Sub
Sub Impression()
'Sheets("Feuil1").PrintPreview 'Visualise l'impression
Sheets("Feuil1").PrintOut 'Lance l'impression
End Sub
Bonsoir@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@Seddiki_adz
Et bien tu rajoutes une colonne et tout devrait fonctionner normalement
Quel est le problème ?
@Phil69970
Merci@Seddiki_adz
Avec cette version tu peux rajouter autant de ligne et de colonne que tu veux
@Phil69970
Merci@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
le bouton filter ne fonctionne pas je fait manuellementMerci
Merci@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