Automatiser la "remise à zéro" des cases d'options

Bonjour le forum,

Modification du sujet (et du post), sans réponse, et problème résolu (copier-coller... long, mais efficace).

J'ai (donc) créé un questionnaire utilisant des boutons d'options afin de pouvoir calculer des scores. J'ai fait plusieurs essais pour tester mes formules.

J'aimerais maintenant remettre à zéro tous les boutons d'options. Il y en a plus d'une centaine. L'enregistreur me donne le code suivant, qui permet de remettre à zéro un bouton d'option.

' Macro1 Macro
'Sub Macro1()' Macro enregistrée le 02/06/2008 par V_Elbie

    ActiveSheet.Shapes("Option Button 70").Select
    With Selection
        .Value = xlOff
    End With
    Next

End Sub

Relancer la macro sur chaque bouton, c'est mieux que rien, mais c'est quand même long...

Ce que j'aimerais faire, c'est modifier ce code pour y ajouter une boucle afin de pouvoir remettre à zéro tous mes boutons en une seule opération. Il me manque le nom des objets ou je ne sais quoi, je n'y arrive pas.

Merci d'avance,

V_Elbie

Un petit UP.

Je fais appel aux spécialistes VBA...

Cordialement,

V_Elbie

hello

remettre à "zéro" la colonne des cases liées aux boutons ?

Bonjour, v_elbie

je suppose que tes boutons d'option proviennent de la barre d'outils "Formulaire"...

Essaie :

Sub efface()
For Each opt In ActiveSheet.Shapes
    If Left(opt.Name, 6) = "Option" Then _
        opt.ControlFormat = False
Next opt
End Sub

Bonsoir,

Oui, mes boutons proviennent bien de la barre d'outils Formulaire, et ...

WAOUHHH, trop cool, ça marche impeccablement bien,

Deux petites questions cependant :

Tu as utilisé Controlformat. Où peut-on trouver la liste des propriétés associées aux contrôles de la BO Formulaire ? Je l'ai cherchée partout, mais apparemment pas au bon endroit...

Tu as mis un IF sans ENDIF, et ça marche quand même. Une raison ?

Merci en tout cas, ça me sauve la vie !

Amicalement,

V_Elbie

Re-,

Le tort d'utiliser F1, c'est qu'il t'emmène directement sur la première réponse qu'il trouve

Quand tu tapes Shapes dans la case d'aide, en haut à droite, tu as accès à une foultitude de réponses.

Sélectionne Shapes, Collection, et tu auras alors l'aborescence de la collection

Ensuite, une recherche sur chaque te donne une aide

Pour ce qui est du End If oublié, tu as remarqué qu'en bout de ligne, il y avait un espace et un _

C'est pour venir à la ligne dans le VBE, ainsi la ligne n'en fait qu'une

If [A1] = Date Then MsgBox "Aujourd'hui"
If [A1] = Date Then _
    MsgBox "Aujourd'hui"

ces deux lignes sont identiques

Merci,

En fait si j'avais utilisé le mot clé "option button", tout simplement parce que c'est ce que l'enregistreur m'avait donné, mais c'est vrai qu'on obtient beaucoup plus d'infos avec "shapes".

Par ailleurs, j'avais pas remarqué le _... où le endif n'est pas obligatoire (puisque si j'ai bien compris, ça permet d'écrire sur 2 lignes comme si c'était sur une ligne...). J'ai pris l'habitude de mettre toutes mes conditions sur 3 lignes, cas où le ENDIF est obligatoire, mais quand on a des choses assez courtes à écrire, cette méthode est certes plus rapide. Je vais tâcher de m'en souvenir.

Merci encore,

V_Elbie