Copier caption optionbutton groupname dans cellule Excel

Question

Bonjour, j'ai créé un groupname "Classification" regroupant 5 optionbutton (4 à 8)

Je souhaiterai que la caption de l'optionbutton sélectionné parmi les 5 se colle dans la cellule A1 de l'onglet excel appelé "Photos"

J'ai réussi à coder ça mais ca ne l'affiche que dans une message box et non dans la cellule. Je n'y arrive pas.

Pourriez vous m'aider

Merci à tous

Sub test()
  Dim n As Byte
  For n = 4 To 8
    If Me.Controls("OptionButton" & n) Then _
       MsgBox Me.Controls("OptionButton" & n).Caption
  Next

End Sub

saboh12617 · Accepted Answer

Si la MsgBox affiche le résultat attendu, alors vous pouvez écrire dans la cellule désignée ainsi : ThisWorkbook.Worksheets("Photos").Range("A1").Value = Me.Controls("OptionButton" & n).Caption à placer à la place, ou après, de l'instruction MsgBox...

galopin01 · Answer

Quand tes problèmes sont résolus : ...à droite de la réponse qui a résolu ton problème. A+...