XL 2019 OptionButton dans une Userform

[chinel]

Bonjour tout le monde, j'ai une petite Userform et 2 boutons d'options. 1er bouton "J'aime" et le deuxième "Je n'aime pas !". Étant novice en VBA, j'ai besoin
d'aide pour compter (finalement un compteur) combien de fois on aime et on n'aime pas , par exemple de merci !
Mon code est celui-ci (il fonctionne, ouf !)


Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Range("A1").Value = "J'AIME !"
MsgBox ("Merci !")
End If
If OptionButton2 = True Then
Range("A2").Value = "JE N'AIME PAS !"
MsgBox ("Désolé !")
End If
End Sub

 

[Phil69970]

Bonjour @chinel

Je te propose ce fichier
J’espère que c'est pas pour noter le fichier de ton post précédent

@Phil69970

 

[chinel]

@Phil69970 merci beaucoup et comme je vois, tu as toujours beaucoup d'humour et pour te répondre non ce n'est pas pour mon projet précédent (c'était un planning donc je ne vois pas l'utilité de mettre une évaluation dedans). Merci encore !