impression de zone sélectionnée

Bonjour à tous , je cherche par le biais d'un usf et d'optionbutton l'impression de zone définies dans une feuille excel.

j'utilise ces macros pour l'impression des zones:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub imprimerZone1() Sheets("Feuil1").PageSetup.PrintArea = Sheets("Feuil1").Range("zone1").Address ActiveSheet.PrintPreview Sheets("Feuil1").PrintOut End Sub   Sub imprimerZone2() Sheets("Feuil1").PageSetup.PrintArea = Sheets("Feuil1").Range("zone2").Address ActiveSheet.PrintPreview Sheets("Feuil1").PrintOut End Sub   Sub imprimerZone3() Sheets("Feuil1").PageSetup.PrintArea = Sheets("Feuil1").Range("zone3").Address ActiveSheet.PrintPreview Sheets("Feuil1").PrintOut End Sub Sub imprimerZone4() Sheets("Feuil1").PageSetup.PrintArea = Sheets("Feuil1").Range("zone4").Address ActiveSheet.PrintPreview Sheets("Feuil1").PrintOut End Sub

---

Je n'arrive pas à faire le code de mon usf pour l'impression avec le choix d ela zone à imprimer.

Je joint un condensé de ce que je cherche à réaliser.

Par avance merci à tous , mes amitiés:ccool:

je ne sais pas ce qu'est l'USF mais a tu essayé en faisant enregistrer une nouvelle macro, tu fais toute ta manip de selection de zone, fichier imprimer puis selection puis clic sur bouton imprimer.
Ensuite tu retourne dans outils/arreter l'enregistrement et tu va dans vbeditor et tu regarde ton code créer.

Bonjour,

Peut-être une solution toute simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton2_Click() If OptionButton1 = True Then imprimerZone1 ElseIf OptionButton2 = True Then imprimerZone2 ElseIf OptionButton3 = True Then imprimerZone3 ElseIf OptionButton4 = True Then imprimerZone4 End If End Sub

---

Bonjour jacques jean, merci pour ton aide ça fonctionne en partie c'ets a dire que je selectionne ma zone a imprimer, la previsualisation se fait avec l'usf en apparence et là tout se bloque. Pour quitter je suis obligé de faire ctl+alt+sup
d'ou peut provenir l'erreur ?
par avance merci.

à quoi correspond dans le code ElseIf

amitiés

C'est du conditionnel, cela te permet de passer d'un if à un autre si .... sinon si ... sinon si ...

merci pour l'info chouchouilloux.
As tu une idée pourquoi ça plante le code?
amitiés

Oui bien sûr, je n'étais pas allé jusqu'au bout de votre code.

Vous avez 3 boutons sur votre formulaire, or, dans votre procédure vous avez écrit :

Code:

---

1 2 3 4 5

Sub imprimerZone2() Sheets("Feuil1").PageSetup.PrintArea = Sheets("Feuil1").Range("zone2").Address ActiveSheet.PrintPreview Sheets("Feuil1").PrintOut End Sub

---

Donc vous visualisez puis vous imprimez, et il faut un seul bouton pour les 2 fonctions (Visualiser puis imprimer). Le bouton "Quitter" ne sert que si vous décidez de ne pas exécuter ces 2 fonctions.

Et de plus il faut fermer le formulaire et fermer la fenêtre de visualisation dès que ce sera fait l'impression se lancera.

Code:

---

1 2 3 4 5 6

Sub imprimerZone1() Sheets("Feuil1").PageSetup.PrintArea = Sheets("Feuil1").Range("zone1").Address Unload USF_Printzones ActiveSheet.PrintPreview Sheets("Feuil1").PrintOut End Sub

---

Si vous voulez d'abord visualiser et choisir ensuite d'imprimer ou non il faut décomposer vos 4 procédures en 2 parties.

RE bonsoir jacques jean , c'est bon j'ai compris mon erreur, grace à ton aide ça fonctionne, ton aide et d'une personne d'un autre site que je remercierais egalement, encore merci pour tout amitiés.¨Pour ma part sujet résolu.:ccool: