Fonctionnement CheckBox

Résolu

VELO1222 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
VELO1222 Messages postés 3 Date d'inscription Statut Membre Dernière intervention - 27 sept. 2009 à 10:10

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

Afficher la suite

A voir également:

Fonctionnement CheckBox
Fonctionnement processeur - Guide
Fonctionnement du protocole http - Guide
Notice de fonctionnement - Guide
Fonctionnement onedrive - Guide
Fonctionnement time machine - Guide

2 réponses

Réponse 1 / 2

jjsteing Messages postés 1670 Date d'inscription Statut Contributeur Dernière intervention 181

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 ;)

Réponse 2 / 2

VELO1222 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Bonjour,
c'est OK elle fonctionne correctement merci pour ton aide
bon dimanche
cordialement
Tony

Discussions similaires

Durée de Fonctionnement cpu

Durée de fonctionnement

Durée de Fonctionnement processeur

Mon processeur ne "s'arrête" pas.

chameau magique

Votre réponse

Discussions similaires