contrôle de CheckBox

Bonjour à tous,

Dans un userform:

à partir d'une checkbox je souhaite cocher (ou décococher d'autres checbox dans le même userform). Voici ce que j'ai essayé:

Code:

---

1 2 3 4 5

If CheckBox10 = True Then For n = 1 To 9 Controls ("CheckBox" & n) = true Next n End If

---

Pouvez-vous m'aider MERCI ! :ccool:

Salut,

Et la question est?? :koi:

Ton code fonctionne...

Salut,

Non, mon code ne fonctionne pas

en fait je souhaite que lorsque je coche la checkbox10, que les checkbox 1,2,3,4,5,6,7,8,9 soient en même temps cochées

Bonjour,

Comme le dit Minick, votre code fonctionne :

Code:

---

1 2 3 4 5 6 7

Private Sub Checkbox10_Click() If CheckBox10 = True Then For n = 1 To 9 Controls("CheckBox" & n) = True Next n End If End Sub

---

Re,

Je persiste le code fonctionne :mouarf:

Mais il me manquait:

Citation:

---

lorsque je coche la checkbox10, que les checkbox 1,2,3,4,5,6,7,8,9 soient en même temps cochées

---

Utilise l'evenement Change de ChekBox10:

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox10_Change() Dim n As Byte If CheckBox10 = True Then For n = 1 To 9 Controls("CheckBox" & n) = True Next n End If End Sub

---

En effet cela fonctionne très bien, à présent !

Vraiment désolé pour le dérangement et Merci pour vos réponses :ccool: