Cocher/Decocher option button par vba

[THIERRY35]

Bonjour,

j'ai créé en fouinant dans le forum un fichier qui permet avec deux optionbutton et une VBA d'installer/désinstaller un filtre et de sélectionner soit l'année 2015 et d'afficher toute la liste, soit de sélectionner juin 2015
j'ai installé les deux codes suivants qui fonctionnent trés bien :

Private Sub OptionButton1_Click()
OptionButton2 = Not OptionButton1
ActiveSheet.Range("$B$6:$j25000").AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(1, "6/30/2015")
End Sub

Private Sub OptionButton2_Click()
OptionButton1 = Not OptionButton2
ActiveSheet.Range("$B$6:$j$25000").AutoFilter Field:=2
End Sub

Par contre lorsque l'utilisateur a sélectionné le mois et revient à la synthèse en cliquant sur le bouton correspondant, j'aimerai que l'optionbutton tout 2015 se sélectionne automatiquement avant de quitter la page pour éviter que l'optionbutton du mois reste sélectionné.
J'ai récupéré le code suivant : OptionButton2.Select = True, mais ça bug sans que je comprenne pourquoi.
Ci-joint un fichier pour être plus clair.

Merci

 

[phlaurent55]

Re : Cocher/Decocher option button par vba

Bonjour Thierry,

Private Sub OptionButton1_Click()
OptionButton2 = Not OptionButton1
ActiveSheet.Range("$B$6:$j25000").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "6/30/2015")
End Sub

Private Sub OptionButton2_Click()
OptionButton1 = Not OptionButton2
ActiveSheet.Range("$B$6:$j$25000").AutoFilter Field:=2
End Sub


Private Sub Worksheet_Activate()
OptionButton1.Value = False
OptionButton2.Value = True
End Sub

il suffit d'ajouter les 4 dernières lignes du code montré ci-dessus

à+
Philippe