Discussion :

[BRUNO71]

Bonjour,
J'ai quatre cases d'option que l'utilisateur doit ce servir, une fois cette option réaliser il peut cliquer sur trois boutons afin d'accéder aux onglets concernés.
Mais voilà !
Si il oubli les cases d'option il peut quand même cliquer sur ces fameux boutons.
Comment lui dire sous forme de message, sur chaque bouton cliqué s’il a oublié de cocher une case d'option ?
Et qu’elle en est le code ?
Me suis-je clairement expliqué ?

Bien cordialement,

Bruno

[alsimbad]

tu as plusieurs solutions
tu peux asservir le code du bouton a tes cases d'option
bouton quand clik

Code :

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

1
2
3
4
 
si ma case est coché alors
variable est vrai
execute le code

tu peux aussi utilisé les propriété visible ou enabled des bouton

Code :

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

1
2
3
4
 
si ma case est cochée alors
bouton.visible = true
ou bouton.enabled = false

et si tu veux juste mettre un message, la syntaxe est

Code :

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

1
2
 
msgbox "vous avez oublié la case a cocher"

[fring]

Bonjour tlm,

Perso je ne jouerais pas sur les propriétés "visible" des boutons, l'utilisateur risque de ne pas comprendre pourquoi il ne peut pas cliquer.
J'agirais dans l'évènement "click" des boutons et en supposant que tout se trouve sur un UserForm, ça donnerait un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim i%
For i = 1 To 4
If Me.Controls("checkbox" & i).Value = False Then
MsgBox "veuillez choisir la couleur des fraises tagada"
Exit Sub
End If
Next
'...
'reste du code
'...
End Sub

[BRUNO71]

Bonjour,

Je viens d'essayer avec :

Code :

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

bouton.enabled = false

Ca fonctionne .... merci

Avec ce 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 CommandButton1_Click()
Dim i%
For i = 1 To 4
If Me.Controls("checkbox" & i).Value = False Then
MsgBox "veuillez choisir la couleur des fraises tagada"
Exit Sub
End If
Next
'...
'reste du code
'...
End Sub

Et bien ça bloque sur " Controls" je suis sur une feuille et non sur un UserForm.
Comment faire avec ce code, il peut-être bien d'avoir un message.

Merci à vous.

[Gorfael]

Salut BRUNO71

Code :

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

If Me.Controls("checkbox" & i).Value = False Then

à remplacer par

Code :

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

ActiveSheet.Shapes("checkbox" & i)=false then

A+

[BRUNO71]

Merci,

Je vais opter pour

Code :

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

bouton.enabled = false

Ta macro bloque sur la ligne

Code :

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

ActiveSheet.Shapes("checkbox" & i)=false then

problême sur

Code :

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

End If

et sur then

Merci beaucoup pour votre aide.

Bien cordialement à tous.