Macro changer le .value des ctrl d'une feuill

Résolu
james405 Messages postés 173 Statut Membre -  
james405 Messages postés 173 Statut Membre -
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

5 réponses

  1. m@rina Messages postés 27534 Date d'inscription   Statut Modérateur Dernière intervention   11 562
     
    Bonjour,

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

    m@rina
    0
  2. james405 Messages postés 173 Statut Membre
     
    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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
    2. james405 Messages postés 173 Statut Membre
       
      le problème est que j'ai bien des options button ...
      0
  3. james405 Messages postés 173 Statut Membre
     
    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
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. james405 Messages postés 173 Statut Membre
     
    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