Macro mettre value de ts les otionbutton a false

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

Bonjour,

Inutile de mettre des codes qui ne fonctionnent pas,

envoie ta feuille

Amicalement

Claude

reBonjour M Dubois !!

j'ai réussi à trouver une réponse par michel m

Pour ceux que cela interresse :

Dim form As OLEObject 
    For Each form In ActiveSheet.OLEObjects 
        If TypeOf form.Object Is MSForms.CheckBox Then form.Object = False 
    Next form 
End Sub

VOila !

Merci encore pour l'interressement DUBOIS et la prochaine fois, je mets directement le fichier !!

Amicalement,

James405