Discussion :

[nrdz83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chouchouilloux]

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.

[Invité]

Bonjour,

Peut-être une solution toute simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nrdz83]

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

[chouchouilloux]

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

[nrdz83]

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