Discussion :

[ced285]

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

[Philippe Tulliez]

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 :

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

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 :

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

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.

[ced285]

Super 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

[gFZT82]

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.

[Philippe Tulliez]

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

Code :

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

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 :

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

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

[ced285]

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 !



Ced