Boucle sur checkbox

Pascal76 · 23 Décembre 2003

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 · 23 Décembre 2003

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 · 23 Décembre 2003

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

Boucle sur checkbox

Pascal76

Guest

wally

Guest

Pascal76

Guest

Discussions similaires