Checkbox et conditions simultanées.

sbobii 2 Messages postés lundi 19 mars 2018Date d'inscription 21 mars 2018 Dernière intervention - 19 mars 2018 à 16:32 - Dernière réponse : cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention
- 21 mars 2018 à 16:52
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
Afficher la suite 

3 réponses

Répondre au sujet
cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention - Modifié par cs_Le Pivert le 20/03/2018 à 09:10
0
Utile
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

Commenter la réponse de cs_Le Pivert
sbobii 2 Messages postés lundi 19 mars 2018Date d'inscription 21 mars 2018 Dernière intervention - 21 mars 2018 à 16:41
0
Utile
1
Qu'est-ce que tu appelles "Controls" ? A quoi servent-ils ?
cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention - 21 mars 2018 à 16:52
As-tu regardé le site que j'ai indiqué avant de poser cette question????
Commenter la réponse de sbobii

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.