Limiter nombre de checkbox possibles

Bonjour à vous et tout d'abord merci à ceux qui prendront quelques minutes pour lire ce message !

Je viens de créer un document Excel pour des besoins professionnels. Je bloque juste sur un truc :

Par l'intermédiaire d'un bouton, je fais appel à userform. Dans userform j'ai 8 cases à cocher (checkbox) .

Je souhaite que l'utilisateur ne puisse choisir que 1,2 ou 3 cases sur les 8 et afficher un message d'erreur si plus de 3.

Si quelqu'un peut m'aiguiller dans ma recherche,

Merci d'avance à vous

Ced

Bonjour,
Une solution simple serait de créer une fonction qui renvoie une valeur Boolean suivant que le nombre maximum de choix est atteint ou pas
Exemple (L'argument optionnel MaximumChoice permet d'éventuellement modifier le nombre de choix autorisé).

Code:

---

1 2 3 4 5 6 7

Private Function IsMaxOption(Optional MaximumChoice As Byte = 3) As Boolean Dim Count As Byte, c As Byte For c = 1 To 8 Count = Count + Abs(Controls("CheckBox" & c).Value) If Count > MaximumChoice Then IsMaxOption = True: Exit Function Next End Function

---

Dans la procédure événementielle de chaque CheckBox invoquer la fonction.

Code:

---

1 2 3

Private Sub CheckBox5_Click() If IsMaxOption Then MsgBox "Trop d'options" End Sub

---

On pourrait aussi prévoir le message dans la fonction.
Le nombre de procédures événementielles pourrait être réduit en utilisant un module de classe.

Super :ccool: Philippe,

Merci pour cette réponse rapide et complète.

Juste pour peaufiner la chose:

L’événement (message box) apparaît au 4ème clic ...mais le choix 4 reste validé dans le formulaire.

Si je clic sur messagebox Ok, je peux toujours les valider (mais avec le message d'erreur)
Au final je peux quand même valider avec les 8 options cochées ...

Je vais faire des essais en essayant d'adapter le code, si vous voulez me donner un coup de main ...je suis preneur

Ced

Bonjour,

Dans la solution jointe, on utilise la propriété Enabled pour désactiver les autres CheckBox lorsque le nombre maximum de choix est atteint.

Cordialement.

Bonjour,
Alors une solution avec la procédure événementielle BeforeUpdate

Code:

---

1 2 3

Private Sub CheckBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = IsMaxOption End Sub

---

Dans la fonction, modifier le test > par = (en rouge)

Code:

---

1 2 3 4 5 6 7

Function IsMaxOption(Optional MaximumChoice As Byte = 3) As Boolean Dim Count As Byte, c As Byte, c1 As Byte For c = 1 To 8 Count = Count + Abs(Controls("CheckBox" & c).Value) If Count = MaximumChoice Then IsMaxOption = True: Exit Function Next End Function

---

Merci à vous 2 pour vos réponses et votre aide!

Les 2 solutions marchent mais j'ai un petit faible pour le solution de gFZT82 avec la propriété Enabled...
ça en jette !

Encore merci pour votre disponibilité et ne changez rien ! :ccool::ccool:


:merci:
Ced