Boucle sur checkbox

[Pascal76]

Bonjour tout le monde,

Voilà j'ai un userform avec des checkbox.

Je veux vérifier qu'au moins 1 des checkbox est coché.

Peu-on utiliser une boucle for each (si oui quelle est la syntaxe) ou doit-on tester les checkbox 1 à 1 ?

Vous remerciant d'avance.

Pascal

 

[wally]

Bonjour Pascal et le forum,

Oui, il est possible d'utiliser une boucle For Each, selon l'exemple ci-dessous :

Dim oCtl As Control

For Each oCtl In UserForm1.Controls
If TypeName(oCtl) = "CheckBox" And oCtl = True Then
MsgBox "Le checkbox " & oCtl.Name & " est coché !"
End If
Next oCtl


Slts

wally

 

[Pascal76]

Salut Wally

Impeccable t'es un chef.

En plus cela fait un bout de temps que je cherchais et je n'arrivais pas à trouver la syntaxe In Controls (j'essayais In Checkboxes et apparentés sans succès)

Je te remercie vivement

Pascal