Instruction For Each

Bonjour,

Je suis en train de réaliser une instruction for ... Each qui doit me permettre de verifier chaque checkbox dans mon formulaire, mais j'ai le message d'erreur suivant :

Citation:

---

Incompatibilité de type

---

Le code que j'ai utilisé est le suivant :

Code:

---

1 2 3 4 5 6

Dim chk As CheckBox For Each chk In Form.Controls chk.Enabled = False chk.Value = False Next

---

Quelq'un pourrait m'aider ?

Par avance merci.

Marsup

bonjour,
tu dois avoir un élément controls si tu fais

Code:

---

each ... in Form.controls

---

tu peux tester le type du controls sinon ;)

Et pour tester le type de controle on fait comment ?

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form_AfterUpdate() Dim i As Control dim result as boolean result= false For Each i In Me.Controls If i.ControlType = acTextBox and not result Then msgbox "pioupi \o/" result = true End If if not result then msbox "rohlala /o\" end if End Sub

---

Merci bcp...
Ca marche niquel..:D