Discussion :

[louis.dekermel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Comment est ce que je pourrais corriger cette erreur?

Cdt,
Louis

[Philippe Tulliez]

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

[louis.dekermel]

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

[casefayere]

Bonjour,

Enfin je croîs

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

[Philippe Tulliez]

Bonjour,

Enfin je croîs

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

[louis.dekermel]

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

tes chexbox sont dans un usf ?

Non elles sont sur une feuille

[casefayere]

Non elles sont sur une feuille

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

[louis.dekermel]

ActiveX

[casefayere]

une solution, il y en a d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[louis.dekermel]

Merci de votre réponse et de votre temps.

Je suis arrivé à un code semblable ;-)

Cdt,
Louis