Discussion :

[jp014]

Bonjour

Dans un userform on peut adresser un contrôle en utilisant le code suivant

Code :

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

Me.controls(nom du contrôle)

Dans une feuille de calcul quel est le code similaire pour des contrôles obtenus avec la barre d'outils "Boite à outils Contrôles".


Merci d'avance pour vos réponses

JP

[laetitia]

bonjour jp014 le forum un exemple simple boucle sur les 3 CheckBox de ma feuille
dans un module standard

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 3
ActiveSheet.Shapes("CheckBox" & i).Visible = False
Next
End Sub

un autre exemple

Code :

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

1
2
3
4
5
Dim Obj As OLEObject
For Each Obj In Feuil1.OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then
'ton code
'ect...

[jp014]

Bonjour laetitia

Merci pour ta réponse.
Pour info
Le premier code marche parfaitement avec la propriété Visible, par contre pour Value il faut utiliser le deuxième code

Code :

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

ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = 1

JP

[laetitia]

re,c'est normal dans le premier exemple comme je l'ecris. dans le deuxieme tu peus simplifier comme cela pour tous les CheckBox de la feuille

Code :

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

1
2
3
4
5
6
Sub es()
Dim Obj As OLEObject
For Each Obj In Feuil1.OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then Obj.Object = 1
Next
End Sub

pour le premier code eventuellement!!

Code :

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

1
2
3
4
5
6
Sub es()
Dim i As Byte, Obj As OLEObject
For i = 1 To 3
ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = 1
Next
End Sub

ps: oublie pas les balises !!!