Discussion :

[eurom]

Bonjour,

J’ai dans un USF une Combo qui liste des médicaments et 4 CheckBox relatifs à la posologie du remède sélectionné. Ces 4 contrôles correspondant à divers moments de la journée (matin, midi, soir et nuit). Ils peuvent être tous sélectionnés ou seulement quelques-uns. Par contre, s’ils sont tous décochés au moment de la validation, je voudrais qu’un message apparaisse pour avertir l’utilisateur de cette anomalie. Donc, j’ai besoin d’aide pour réaliser une boucle qui détecte que tous les CheckBox sont FALSE et qui empêche la validation tant qu’il n’y a pas au moins un TRUE.

Merci d’avance.

[parmi]

Bonjour,

Si les checkbox ont le même nom avec le chiffre qui est différent (noms par défaut), tu peux vérifier avec le nom.
Par contre, si les noms sont différents d'un à l'autre, tu peux vérifier par le type de contrôle.

Ici, j'utilise un bouton de commande pour faire la vérification, mais ça peut se faire autrement...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
    If AuMoinsUnCoché Then
        MsgBox "Au moins un checkbox est coché"
    Else
        MsgBox "Aucun checkbox n'est coché"
    End If
End Sub
 
Function AuMoinsUnCoché() As Boolean
    Dim Ctl As Control
 
    For Each Ctl In Me.Controls
        If TypeOf Ctl Is MsForms.CheckBox Then
            If Ctl.Value = True Then
                AuMoinsUnCoché = True
                Exit Function
            End If
        End If
    Next
End Function

[SfJ5Rpw8]

Bonsoir,

En même temps cette idée de faire une boucle pour tester l'état de 4 bits c'est bien ce compliquer la vie pour rien.. .. pourquoi ne pas tout simplement tester l'état de ces bits avec un if et des and ? Le code serait beaucoup plus lisible..

[parmi]

pourquoi ne pas tout simplement tester l'état de ces bits avec un if et des and ?

Effectivement, pour 4 contrôles, on peut faire plus simple...

[clementmarcotte]

Deuxième essai pour le fichier-joint. Cette fois, le zip n'est pas vide.

Je vais essayer d'effacer mon autre réponse.

[Invité]

Code :

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

If CheckBox1 + CheckBox2 + CheckBox3 + CheckBox4 = false then msgbox "ERR" : Exit sub

[SfJ5Rpw8]

Code :

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

If CheckBox1 + CheckBox2 + CheckBox3 + CheckBox4 = false then msgbox "ERR" : Exit sub

Bonsoir,
pourquoi ne pad utiliser des opèrateurs binaires pour une opèration binaire ?

[Invité]

Je ne me suis pas posé la question mais oui

De tous les façons un Or est égale à + et un And à * ça fait moins à écrire! Dans ce cas de figure