Userform OptionButton Click

Bonjour,

J'ai un userform avec deux boutons OUI/NON (OptionButton1_Click1 et OptionButton2_Click) dans un frame.

Je mémorise mon choix dans une feuille excel, mais je ne sais pas le remonter sur l’appel suivant, les 2 cases sont vides.

C'est peut-être très simple mais j'avoue que je sèche.

Besoin humblement d’une aide.

Merci.

Jean-Jacques

Bonjour

Merci de préciser votre version excel dans le profil de votre compte. on ne sait pas si vous avez excel 2003, 2007, 2010, 2016 ou plus récent ou si vous êtes sur excel MAC 2011, MAC 2016...

Pour votre demande un fichier serait utile afin de comprendre comment vous fonctionnez et ce que vous voulez dire par "remonter sur l'appel"

Cordialement

Merci pour votre réponse rapide.

J'ai fait un petit fichier très simple pour aller à l'essentiel.

J'ai mis ma version excel à jour (Excel 2019 FR 64bits) au cas où elle en serait pas prise ne compte immédiatement.

Cordialement.

Jean-Jacques.

Bonsoir User_673 et salut @Dan
Quelque chose comme ceci:

Private Sub OptionButton1_Click()
    If Me.OptionButton1 = True Then Sheets("Feuil1").Range("A1") = "Oui"
End Sub
Private Sub OptionButton2_Click()
    If Me.OptionButton2 = True Then Sheets("Feuil1").Range("A1") = "Non"
End Sub
Private Sub UserForm_initialize()
    If Sheets("Feuil1").Range("A1") = "Oui" Then Me.OptionButton1 = True
    If Sheets("Feuil1").Range("A1") = "Non" Then Me.OptionButton2 = True
End Sub

Cdt
Papy Henri

Re

Vous allez dans votre userform et vous remplacez tous les codes par ceci

Dim ok As Boolean
Private Sub OptionButton1_Click()
If ok = True Then Exit Sub
    Sheets("Feuil1").Range("A1") = "Oui"
End Sub
Private Sub OptionButton2_Click()
If ok = True Then Exit Sub
    Sheets("Feuil1").Range("A1") = "Non"
End Sub

Private Sub UserForm_Initialize()
Select Case Sheets("Feuil1").Range("A1")
    Case Is = "Oui": ok = True: OptionButton1 = True
    Case Is = "Non": ok = True: OptionButton2 = True
End Select
ok = False
End Sub

Si ok, pensez à cloturer le fil

Crdlt

Magnifique

==================

Basique quand on sait....

mais galère quand on essaie vainement (plus d'une heure).

Je ne peux que vous remercier très chaleureusement.

Merci encore et bonne soirée.

Pardon,

Je n'avais pas fait attention.

Merci pour votre contribution .... à tous deux.

Bonjour,

@AFEH : Déjà désolé pour mon post. Je n'avais pas vu votre réponse.
Par contre juste un truc, avec le code proposé, attention que dans la sub initialize, le fait de mettre ceci

OptionButton2 = True ou OptionButton1 = True

selon le cas, cela relance à chaque fois le code

Private Sub OptionButton1_Click() ou Private Sub OptionButton2_Click()

On voit cela en mode pas à pas dans l'exécution du code.
Raison pour laquelle j'ai utilisé une variable Boolean

Crdlt