Compilation résultat d'un OptionButtom

Bonjour à tous,

Je viens de créer un fichier ou lorsque l'utilisateur clique sur un bouton, un UserForm apparait.

Dans ce UserForm, l'utilisateur doit cocher un résultat parmi 3 choix. Ces 3 choix sont matérialisés par 3 OptionButton.

Une fois coché, le choix de l'utilisateur apparait dans une cellule prédéterminé dans le code (lié à l'OptionButton). Voici ce code (pour le 1er bouton d'option) :

Private Sub OptionButton1_Click()
If Controls("OptionButton1").Value = True Then
[A1] = Controls("OptionButton1").Caption
End If
End Sub

Le problème est que lorsque l'utilisateur clique de nouveau sur le bouton (pour faire apparaitre l'UserForm), comme une cellule est prédéterminé pour le résultat (ici A1), son nouveau choix écrase l'ancien. Alors que je recherche à compiler ces choix.

Comment puis-je faire pour que les choix se succèdent à chaque utilisation de l'UserForm ? (Ex> A1, B1, C1, D1, ... et non A1 à chaque fois).

Merci par avance !

Bonjour

A tester

Private Sub OptionButton1_Click()
  If Controls("OptionButton1").Value = True Then
    If Cells(1, 1) = "" Then
      [A1] = OptionButton1.Caption
    Else
      Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = OptionButton1.Caption
    End If
  End If
End Sub

Merci ! Ça marche parfaitement