Checkbox sélectionant plusieurs Checkbox

Bonjour à tous j'aimerai avoir une checkbox qui quand elle est cochée coche plusieurs autres checkbox.
J'ai donc créer le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CheckBox79_Click() If CheckBox79 = True Then For i = 1 To 14 Me.Controls("CheckBox" & i).Value = True Next i Else For i = 1 To 14 Me.Controls("CheckBox" & i).Value = False Next i End If End Sub

---

malheureusement j'ai une erreur de compilation sur le:

Code:

---

Me.Controls("CheckBox" & i).Value = True

---

Comment est ce que je pourrais corriger cette erreur?

Cdt,
Louis

Bonjour,
Une erreur est numérotée et comporte un texte, on pourrait les connaître ?
Quelle est la valeur de la variable I au moment de l'erreur ?
Le contrôle CheckBox avec comme numéro la valeur de I n'existe peut-être pas

Bonjour j'obtient l'erreur "membre de méthode ou de données introuvable" il semblerait que ce soit l'erreur 461(d'après mes recherches sur le web).

Etant donné que j'ai des checkbox allant de 1 à 75 j'ai bien une checkbox avec comme numéro la valeur de I (Enfin je croîs).

Cdt,
Louis

Bonjour,

Citation:

---

Enfin je croîs

---

eh bien, vérifies....
tes chexbox sont dans un usf ?

Bonjour,

Citation:

---

Enfin je croîs

---

:mouarf:
Cela me semble peut probable que le programme t'envoie une erreur comme celle là si le contrôle existe

J'ai bel et bien des checkbox ayant les différentes valeurs de I (1 jusqu'a 14)

Citation:

---

tes chexbox sont dans un usf ?

---

Non elles sont sur une feuille

Citation:

---

Non elles sont sur une feuille

---

je t'arrache les explications controle "Formulaire" ou "ActiveX" ?

ActiveX

une solution, il y en a d'autres

Code:

---

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

Private Sub CheckBox79_Click() Dim i As Integer, Obj As OLEObject If CheckBox79 Then For Each Obj In Me.OLEObjects For i = 1 To 14 If Obj.Name = "CheckBox" & i Then Obj.Object = True End If Next i Next Obj End If End Sub

---

Merci de votre réponse et de votre temps.

Je suis arrivé à un code semblable ;-)

Cdt,
Louis