Discussion :

[sbobi]

Bonjour,

Je dispose d'un UF qui est complété par un utilisateur. Dans cet UF, j'ai 3 cases que je peux cocher. Mais j'ai le choix entre cocher 1 des 3 cases, 2 des 3 cases ou les 3 cases en même temps.

Pour ce faire, j'ai simplement utilisé des If. Le problème c'est que je ne peux cocher qu'une seule des 3 cases puisque une fois que la condition If est vérifiée, le programme s'arrête.

Quel type de boucle puis-je utiliser ?


PS: Voici le code que j'utilise

Code :

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

1
2
3
4
5
6
7
If CAO.Value = True Then                                                     
                            '
                            '
                    If maquettage.Value = True Then                                     
                                           '
                                           '
                            If impression.Value = True Then

[Transitoire]

C'est un exemple le code peut être différent
a renouveler pour les autres cases à cocher.
Cordialement

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("j2") = "Oui"
Else
Range("j2") = "non"
End If
End Sub

[sbobi]

Merci de ta réponse,

Mais sauf erreur de ma part il me semble que "If" ne peut gérer que 2 conditions maxi , non ?

Je ne peux pas utiliser un Select Case ?

[Transitoire]

Pas du tout, la fonction if peut avoir de multiples possibilités.
exemple:

Code :

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

1
2
3
4
5
6
7
8
9
If Range("A1") = 1 then
       'Code
ElseIf Range("A1") = 2 then
       'Code
ElseIf Range("A1") = 3 then
     'Code
ElseIf Range("A1") = 4 then
      'Code
End if

[sbobi]

Je vien de tester sur un fichier "Test", voici mon code.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    If CheckBox1.Value = True Then
    Cells("1,1").Value = "X"
        ElseIf CheckBox2.Value = True Then
        Cells("2,2").Value = "X"
            ElseIf CheckBox3.Value = True Then
            Cells("3,3").Value = "X"
    End If
End Sub

Ce programme fonctionne si je coche 1 des cases. Mais si par exemple je coche 2 cases ou les 3, je n'ai que la 1ere instruction qui est réalisée. En gros je voudrais que si je coche 2 cases, les 2 instructions soit réalisées.
Quelle boucle dois-je associer ?

[unparia]

Bonjour
En écrivant des blocs if complets (sans else ni elseif) -->> exemple -->>

Code :

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

1
2
3
4
5
6
if a = b then
 ..... instructions 1
end if
if c = d then
..... instructions 2
end if

Mais en aucun cas ne seront exécutées SIMULTANEMENT les instructions 1 et les instructions 2.
Dans cet exemple : si a = b ET que c = d, les instructions 1 seront exécutées et- les instructions 2 ne le seront qu'après la fin des instructions 1