Discussion :

[mikeduff]

Bonjour à tous,

Je sais, ce sujet a déjà été traité (sous le même titre d'ailleurs je viens de lire le topic).

Alors pourquoi revenir dessus ?
Parce que la solution proposée, qui semble très marcher chez les autres ne fonctionne pas chez moi !

Mes controles s'appellent CheckBox1,CheckBox2,... ou
ToggleButton1,ToggleButton2,...

Avec un code aussi simple que ceci :

Code :

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

1
2
3
For I = 1 To 2
    Controls("CheckBox" & I).Visible = False
Next

j'obtiens systématiquement l'erreur :

Erreur de compilation - Sub ou Fonction non définie

A l'origine, ce que je voulais était:

Code :

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

1
2
3
For I = 1 To 2
    Controls("ToggleButton" & I)= False
Next

Même erreur, d'ailleurs.

Alors, pourquoi cette erreur, alors que ce code si simple semble convenir à tout le monde ?

Si quelqu'un a une idée, merci d'avance !!!!

Mike

[mercatog]

par hasard, tu n'as pas une référence manquante?

[mikeduff]

Bonjour Mercatog,

quelle rapidité !

Mais je ne suis pas sûr de bien comprendre la question:
si tu veux savoir si les objets ToggleButton1 et ToggleButton2, ainsi que Checkbox1 et Checkbox2 existent, c'est bien le cas. Vérifié.

Si tu veux dire autre chose, je n'ai pas compris.

Merci de ton aide

Mike

[mercatog]

tes controls sont bien sur un userform?

ma précédente question portait sur les références de ton vba

[ouskel'n'or]

tes controls sont bien sur un userform?

me paraît être la bonne question

[laetitia]

bonjour, question dans userform tes controls sont pas renommées par hasard ??

si c'est le cas il faut utiliser TypeOf ou TypeName

un exemple basique a adapter

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim i As Byte, j As Control
For Each j In Controls
If TypeName(j) = "CheckBox" Then
i = i + 1
If i < 3 Then j.Visible = False
End If: Next
End Sub

si ils sont sur une feuille & non renommées tu peus tenter cela

Code :

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

1
2
3
4
5
6
Sub es()
Dim i As Byte
For i = 1 To 2
ActiveSheet.Shapes("CheckBox" & i).Visible = False
Next
End Sub

sur feuille en utilisant OLEObjects

Code :

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

1
2
3
4
5
6
7
8
Sub essai()
Dim obj As OLEObject
  For Each obj In ActiveSheet.OLEObjects
  If TypeOf obj.Object Is MSForms.CheckBox Then
     'TON CODE
       End If
 Next obj
End Sub