Fonctionnement CheckBox
Résolu
VELO1222
Messages postés
3
Statut
Membre
-
VELO1222 Messages postés 3 Statut Membre -
VELO1222 Messages postés 3 Statut Membre -
Bonsoir le forum,
Pouvez vous m'aider sur cette programmation car elle fonctionne a moitié lorsque je coche les 4 CheckBox seulement ma 1er feuille s'imprime et pas les 3 autres
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1 = True Then
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf CheckBox2 = True Then
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf CheckBox3 = True Then
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf CheckBox4 = True Then
Sheets("Feuil4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Unload Me
Sheets("PARAMETRE").Select
Application.ScreenUpdating = True
End Sub
merci d'avance pour votre aide
Tony
Pouvez vous m'aider sur cette programmation car elle fonctionne a moitié lorsque je coche les 4 CheckBox seulement ma 1er feuille s'imprime et pas les 3 autres
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1 = True Then
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf CheckBox2 = True Then
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf CheckBox3 = True Then
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf CheckBox4 = True Then
Sheets("Feuil4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Unload Me
Sheets("PARAMETRE").Select
Application.ScreenUpdating = True
End Sub
merci d'avance pour votre aide
Tony
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
bonjour :)
c'est a cause de tes ElseIf ...
If CheckBox1 = True Then //imprime la feuille 1
...
ElseIf CheckBox2 = True Then //ne le fait pas cu que le 1er if est correct et imprime..
=>
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CheckBox1 = True Then
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end if
If CheckBox2 = True Then
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end if
If CheckBox3 = True Then
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end if
If CheckBox4 = True Then
Sheets("Feuil4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Unload Me
Sheets("PARAMETRE").Select
Application.ScreenUpdating = True
End Sub
là il va tester toutes tes checkbox et en fonction, imprimera celles qui sont cochées ;) -
Bonjour,
c'est OK elle fonctionne correctement merci pour ton aide
bon dimanche
cordialement
Tony
