Fonctionnement CheckBox
Résolu/Fermé
VELO1222
Messages postés
3
Date d'inscription
samedi 26 septembre 2009
Statut
Membre
Dernière intervention
7 janvier 2011
-
26 sept. 2009 à 18:59
VELO1222 Messages postés 3 Date d'inscription samedi 26 septembre 2009 Statut Membre Dernière intervention 7 janvier 2011 - 27 sept. 2009 à 10:10
VELO1222 Messages postés 3 Date d'inscription samedi 26 septembre 2009 Statut Membre Dernière intervention 7 janvier 2011 - 27 sept. 2009 à 10:10
A voir également:
- Fonctionnement CheckBox
- Fonctionnement du protocole http - Guide
- Fonctionnement onedrive - Guide
- Chromecast fonctionnement - Guide
- Notice de fonctionnement - Guide
- Fonctionnement dns - Guide
2 réponses
jjsteing
Messages postés
1670
Date d'inscription
vendredi 11 mai 2007
Statut
Contributeur
Dernière intervention
21 mai 2012
181
27 sept. 2009 à 09:32
27 sept. 2009 à 09:32
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 ;)
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 ;)
VELO1222
Messages postés
3
Date d'inscription
samedi 26 septembre 2009
Statut
Membre
Dernière intervention
7 janvier 2011
27 sept. 2009 à 10:10
27 sept. 2009 à 10:10
Bonjour,
c'est OK elle fonctionne correctement merci pour ton aide
bon dimanche
cordialement
Tony
c'est OK elle fonctionne correctement merci pour ton aide
bon dimanche
cordialement
Tony