XL 2016 macro quand changement option button

[ViroMajor]

Bonjour,

J’ai des ronds option button, dont la valeur changeante est reliée à une cellule D4

J’aimerais que quand je sélectionne un autre rond, une cellule dans une autre feuille ait sa valeur modifiée

J’ai mis ce code à la racine de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4")) Is Nothing Then
    Worksheets("Best circuit").Range("C3") = Range("G11")
End If
End Sub

Problème, la macro ne se déclenche pas. Ca ne reconnait pas le changement de valeur en D4 quand je change de rond

 

[ViroMajor]

Alternative,

J’ai essayé d’assigner cette macro

Sub test()
    Worksheets("Best circuit").Range("C3") = Range("G11")
End Sub

aux ronds option button, mais ça ne veut pas, ça me dit que “la macro est trop compliquée pour être prise en compte”

Toute aide est la bienvenue. merci

 

[ViroMajor]

Personne, ou bien ma requête est incompréhensible ?

Bonne journée

 

[piga25]

Bonjour,
Un peu dans ce style là

 

[piga25]

Bonjour,
Il faut passer par un code pour chaque optionbutton comme montré dans l'exemple sinon rien ne sera reconnu

 

[piga25]

Re,
La je sais pas. Cela dépasse mes compétences.
Peut voir avec un module de classe