Macro changer le .value des ctrl d'une feuill

Résolu
james405 Messages postés 154 Date d'inscription   Statut Membre Dernière intervention   -  
james405 Messages postés 154 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

5 réponses

Réponse 1 / 5
m@rina Messages postés 23060 Date d'inscription   Statut Contributeur Dernière intervention   11 440
 
Bonjour,

Me c'est utilisé pour la Userform, pas pour une feuille.

m@rina
0
Réponse 2 / 5
james405 Messages postés 154 Date d'inscription   Statut Membre Dernière intervention  
 
Comment dois-je faire pour faire ce qque je veux quand même? (les codes des bouton sont dans le code de la deuille !)
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour et bisous à Marina

àmodifier: checkbox en optionbutton 

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
0
james405 Messages postés 154 Date d'inscription   Statut Membre Dernière intervention  
 
le problème est que j'ai bien des options button ...
0
Réponse 3 / 5
james405 Messages postés 154 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 4 / 5
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
J'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....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
james405 Messages postés 154 Date d'inscription   Statut Membre Dernière intervention  
 
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
0