Macro changer le .value des ctrl d'une feuill
Résolu
Bonjour,
Je souhaite mettre le .value de tous mes optionsbuttons(contrôle) à false
voici mon conde qui ne fonctionne pas, il me dit utilisation incorrect du mot clé Me quelqu'un à une idée??
Sub razzzzz()
Dim Nom As String
Nom = "OUI" & NumLigne & ""
Dim ctrl As Object
Set ctrl = Me.OLEObjects(Nom)
Dim NumLigne As Integer
NumLigne = Right(ctrl.Name, Len(ctrl.Name) - 3)
For Each ctrl In Me.OLEObjects(Nom)
ctrl.Value = False
Next ctrl
End Sub
Merci pour votre aide
Je souhaite mettre le .value de tous mes optionsbuttons(contrôle) à false
voici mon conde qui ne fonctionne pas, il me dit utilisation incorrect du mot clé Me quelqu'un à une idée??
Sub razzzzz()
Dim Nom As String
Nom = "OUI" & NumLigne & ""
Dim ctrl As Object
Set ctrl = Me.OLEObjects(Nom)
Dim NumLigne As Integer
NumLigne = Right(ctrl.Name, Len(ctrl.Name) - 3)
For Each ctrl In Me.OLEObjects(Nom)
ctrl.Value = False
Next ctrl
End Sub
Merci pour votre aide
5 réponses
-
ModérateurBonjour,
Me c'est utilisé pour la Userform, pas pour une feuille.
m@rina -
Comment dois-je faire pour faire ce qque je veux quand même? (les codes des bouton sont dans le code de la deuille !)
-
Tss j'ai parlé trop vite !!! Ca fonctionne ! Mais du coup je me sens tout bête et ne comprend pas ton code.
Dim form As OLEObject => jusque la ca va !!
For Each form In ActiveSheet.OLEObjects => La aussi
If TypeOf form.Object Is MSForms.CheckBox Then form.Object = False
=> je découvre le typeof . object | et la je ne comprend plus pk checkbox???et pk form object et pas form.value??
Next form
End Sub
En tout cas merci pour ton aide michel_m! et merci également à Marin@
James 405 -
ContributeurJ'ai mis checkbox parce que j'avais ça sous la main
donc avec optionbutton
If TypeOf form.Object Is MSForms.optionbutton Then form.Object = False
'si le type de l'objet est un optionbutton de la collection MSforms....
-
D'accord, mais je n'ai pas mis optionbutton, et ta macro a marché sur tous mes optionbutton (ce qui est marrant c'est qu'elle n'arien rien fait sur mes checkbox...)
Merci pour ton aide michel m
James
