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 5454 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 20 octobre 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 

Votre réponse

3 réponses

cs_Le Pivert 5454 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 20 octobre 2018 Dernière intervention - Modifié par cs_Le Pivert le 20/03/2018 à 09:10
0
Merci
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
Merci
Qu'est-ce que tu appelles "Controls" ? A quoi servent-ils ?
cs_Le Pivert 5454 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 20 octobre 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.