Forcer l'activation de bouton d'option à l'ouverture

Bonjour,

Dans le fichier ci-joint, j’ai trois boutons d’option en E11:J11, sans zone de groupe, et deux autres boutons d’option dans une zone de groupe en E27:F27.

Je souhaiterais qu’à l’ouverture du fichier, se soient les boutons tout à gauche de chaque groupe qui soient activés, mais je ne sais pas comment m’y prendre. J’ai tenté un code VBA, mais les diverses instructions tentées – comme SetFocus – n’ont rien donné.

Pouvez-vous m’aider ?

Cordialement.

11demo-forum.xlsm (41.58 Ko)

Bonjour Yvouille,

à tester,

Sub RemiseAZero_Bouton_OPtion_Formulaire()
With ActiveSheet
    For Each C In .OptionButtons
     Select Case C.Name
      Case "Option Button 2", "Option Button 13": C.Value = 1
      Case Else: C.Value = 0
     End Select
    Next
End With
End Sub

Salut Isabelle,

Pour la deuxième fois aujourd'hui, tu me sauves la vie

Ton code fonctionne parfaitement.

On peut également simplifier passablement avec simplement ces deux lignes de code :

ActiveSheet.OptionButtons("Option Button 2").Value = 1
ActiveSheet.OptionButtons("Option Button 13").Value = 1

Très bonne fin de dimanche (ou peut-être à tout à l'heure, mon projet n'est de loin pas fini).

Rechercher des sujets similaires à "forcer activation bouton option ouverture"