Discussion :

[toma65]

Bonjour,

J'ai un soucis avec des checkbox
j'ai mis une instruction dedans mais ca s'execute tout de suite
alors que je voudrai que se soit le commandbutton qui execute
les instructions des checkbox sélectionnées.

Merci

[Invité]

Bonjour

Il faut que tu mettes l'instruction sur ton bouton en testant l'état de ta checkbox.

Starec

[toma65]

Je ne comprend pas trop ta réponse
je te montre mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CheckBox1_Click()
Slide113.Delete
Slide90.Delete
End Sub
 
Private Sub CheckBox2_Click()
Slide129.Delete
End Sub
 
Private Sub CheckBox3_Click()
Slide146.Delete
End Sub

et je voudrai que ma commandbutton empeche l'execution directe en reprenant les infos

Code :

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

1
2
3
4
Sub CommandButton1_Click()
??????????????
UserForm1.Hide
End Sub

[tonton fred]

Bonjour,
En fait tu t'es simplement trompe d'evenement:

Code :

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

1
2
3
4
Private Sub CheckBox1_Click()
Slide113.Delete
Slide90.Delete
End Sub

Signifie que quand tu cliques sur la checkbox1 l'action est executee. Il faut supprimer cette procedure et modifier celle ci:

Code :

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

1
2
3
4
5
6
7
8
Sub CommandButton1_Click()
If Userform1.Checkbox1.Value = True Then 'ou Sheets("Feuil1").Checkbox1 = True a adapter a ton cas
 
'le code
 
End If
UserForm1.Hide
End Sub

[toma65]

Merci beaucoup c'est nikel