Problème optionbutton

Bonjour !

Je rencontre un petit soucis sur un bout de code et je bloque complètement..

J'ai un userform ou pour répondre à une question l'usager à le choix entre deux OptionButton: "oui" et "non".

Un fois que le choix est fait, la caption de l'optionbutton sélectionné apparaît dans la case prédestinée.

Ce qui nous donne le code suivant :

For Each OptionButton In Frame1.Controls

        If OptionButton.Value Then
        Worksheets("BDD").Cells(Ligne, "I") = OptionButton.Caption
        End If

    Next

J'ai rajouté le code suivant pour que, si aucun bouton n'est coché, la case soit vide même si lors du dernière enregistrement du formulaire il y avait "Oui" ou "Non" dedans :

For Each OptionButton In Frame1.Controls
        If OptionButton.Value Then
        Worksheets("BDD").Cells(Ligne, "I") = OptionButton.Caption
        Else
        Worksheets("BDD").Cells(Ligne, "I") = ""
        End If

    Next

Cependant depuis, lorsque je coche le bouton "Oui" : la case devient/reste vide et lorsque je coche "Non" : le texte "Non" apparaît bien dans la case.

Je suis un poil perdue du coup...

Si quelqu'un a une idée, je suis preneuse !

(fichier joint, c'est l'userform 2 lors du click sur comandbutton1)

Bonsoir

il faut enlever les frame

voila un essai a toi de voir

A+

Maurice

Bonsoir

un deniere avec une routine a toi de continuer

bon je vais me coucher

A+

Maurice