avertissement en macro

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

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

Code:

---

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:

---

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:

---

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

---

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:

---

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

---

Bonjour,

Je viens d'essayer avec :

Code:

---

bouton.enabled = false

---

Ca fonctionne .... merci

Avec ce code

Code:

---

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.

Salut BRUNO71

Code:

---

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

---

à remplacer par

Code:

---

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

---

A+

Merci,

Je vais opter pour

Code:

---

bouton.enabled = false

---

Ta macro bloque sur la ligne

Code:

---

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

---

problême sur

Code:

---

End If

---

et sur then

Merci beaucoup pour votre aide.

Bien cordialement à tous.

Oui normal que ça bug si ils sont directement sur la feuille, à ce moment là c'est ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim i% For i = 1 To 4 If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = False Then MsgBox "veuillez choisir la couleur des fraises tagada" Exit Sub End If Next '... 'reste du code '...   End Sub

---