Bloquer checkbox si 2 autres sont déjà cochés

[joums]

Bonjour à tous,

je bloque sur un code vba où je souhaite bloquer un checkbox si 2 autres sont déjà cochés. l'ensemble est dans un userform
Voici le code que j'ai commencé

Dim Ctrl As Control
 Dim I As Integer
 For Each Ctrl In UserForm1.Controls
  If TypeName(Ctrl) = "CheckBox" Then
    If Ctrl.Value = True Then
                                      I = I + 1 ' boucle sur les checkbox pour connaitre leur nombre

               Elseif I = 2 then  
                                    Ctrl.Value = false
               End if
   
    End If
 
End If
 Next Ctrl

Qu'en pensez vous ? Car cela ne marche pas
Merci de votre aide

 

[mécano41]

Re : Bloquer checkbox si 2 autres sont déjà cochés

Bonjour,

Peut-être ainsi ...

Cordialement

 

[joums]

Re : Bloquer checkbox si 2 autres sont déjà cochés

Bonjour,
merci pour votre aide, j'ai également avancé en ayant indiqué le même code que vous mais cela ne marche toujours pas.
En effet, si on coche la checkbox1 et 2 impossible de sélectionner la 3 et 4 => OK
mais si on coche la checkbox2 et 3 on peut sélectionner la 1 =>

je devrais peut être contourner le problème en donnant un nombre maximal de case à cocher ?
Mais comment faire ? en utilisation la propriété enable ?

 

[job75]

Re : Bloquer checkbox si 2 autres sont déjà cochés

Bonjour joums, mecano41,

Avec un module de classe dans le fichier joint.

A+

 

[mécano41]

Re : Bloquer checkbox si 2 autres sont déjà cochés

Comme ceci alors...

Cordialement

 

[joums]

Re : Bloquer checkbox si 2 autres sont déjà cochés

Comme ceci alors...

Cordialement

Bonjour,

merci cela marche parfaitement
je ne connais pas le TAB pourriez vous m'expliquer?

 

[mécano41]

Re : Bloquer checkbox si 2 autres sont déjà cochés

Bonjour,

merci cela marche parfaitement
je ne connais pas le TAB pourriez vous m'expliquer?

Par ex. CheckBox3.TabIndex donne la position du contrôle CheckBox3 dans l'Userform parmi tous les contrôles.

Cordialement

Avec le module de classe de Job75, c'est un peu plus "Pro" ...

 

[joums]

Re : Bloquer checkbox si 2 autres sont déjà cochés

je vais voir ca
merci à vous tous