Checkbox et conditions simultanées.

Signaler
Messages postés
2
Date d'inscription
lundi 19 mars 2018
Statut
Membre
Dernière intervention
21 mars 2018
-
Messages postés
7378
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 mai 2021
-
Bonjour,

Je dispose d'un UF comprenant principalement 3 Checkbox. Pour chaque Checkbox j'ai une action. Cependant, je peux avoir 2 ou 3 actions simultanées (Suivant les cases qui sont cocher).

J'ai testé avec une boucle If mais cela ne fonctionne pas puisque une fois que la première condition est atteinte, le programme s'arrête.

Quelle boucle dois-je utiliser pour pouvoir gérer les conditions simultanées ?

Merci

2 réponses

Messages postés
7378
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 mai 2021
122
bonjour,

http://silkyroad.developpez.com/VBA/ControlesUserForm/#LI-A

faire une boucle sur les controls pour en sortir leur numéro, comme ceci:

Dim Ctrl As Control
Dim numero As Integer
'Boucle sur la collection de contrôles
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
  If Ctrl.Object.Value = True Then
   numero = Replace(Ctrl.Name, "CheckBox", "") 'numero checkBox seul
  Select Case numero
            Case Is < 2
             MsgBox "check 1"
              Case Is < 3
               MsgBox "check 2"
                 Case Is < 4
               MsgBox "check 3"
            End Select
 End If
  End If
   Next


ou aussi cela :

 Select Case numero
            Case Is = 1
             MsgBox "check 1"
              Case Is = 2
               MsgBox "check 2"
                 Case Is = 3
               MsgBox "check 3"
            End Select


suivant le cas

Messages postés
2
Date d'inscription
lundi 19 mars 2018
Statut
Membre
Dernière intervention
21 mars 2018

Qu'est-ce que tu appelles "Controls" ? A quoi servent-ils ?
Messages postés
7378
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 mai 2021
122
As-tu regardé le site que j'ai indiqué avant de poser cette question????