Boucle pour détecter que dans un groupe de CheckBox, tous sont FALSE à un moment donné

Version imprimable

26/02/2015, 19h24
eurom

Boucle pour détecter que dans un groupe de CheckBox, tous sont FALSE à un moment donné

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.

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:

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

26/02/2015, 21h06
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..
26/02/2015, 21h19
parmi

Citation:

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...
27/02/2015, 20h46
clementmarcotte

1 pièce(s) jointe(s)

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

Je vais essayer d'effacer mon autre réponse.
27/02/2015, 21h03
Invité

Code:

If CheckBox1 + CheckBox2 + CheckBox3 + CheckBox4 = false then msgbox "ERR" : Exit sub
27/02/2015, 21h30
SfJ5Rpw8

Citation:

Envoyé par rdurupt

Code:

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

Bonsoir,
:koi: pourquoi ne pad utiliser des opèrateurs binaires pour une opèration binaire ?
27/02/2015, 21h33
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