Bouton forme actionable

[Julien_m]

Bonjour,
voici le fichier avec ce que je voudrais comme résultat.
Je voudrais qu'en cliquant sur le bouton ça change la couleur du bouton à côté et vise versa.
J'avais trouvé un code il y a quelques temps mais je n'arrive pas à le faire fonctionner en l'adaptant
Par avance merci

 

[mapomme]

Bonsoir @Julien_m,

Voir code dans module1:

Sub E1D_Cliquer()
  Echanger_couleur "E1G"
End Sub

Sub E1G_Cliquer()
  Echanger_couleur "E1D"
End Sub

Sub Echanger_couleur(x As String)
' x est le nom de la forma avec laquelle échanger la couluer
Dim shp1 As Shape, shp2 As Shape
  On Error GoTo ERR001
  With ActiveSheet
    Set shp1 = .Shapes(Application.Caller)
    Set shp2 = .Shapes(x)
    If shp1.Fill.ForeColor.RGB = RGB(255, 192, 0) Then
      shp1.Fill.ForeColor.RGB = RGB(166, 166, 166)
      shp2.Fill.ForeColor.RGB = RGB(255, 192, 0)
    Else
      shp2.Fill.ForeColor.RGB = RGB(166, 166, 166)
      shp1.Fill.ForeColor.RGB = RGB(255, 192, 0)
    End If
    .Range("b2") = shp1.Name
  End With

ERR001:
End Sub

edit: idem avec un autre couple de formes v1a

 

[JM27]

bonsoir

 

[Julien_m]

merci à vous deux,
j'avais penser à faire comme ça (1 macro par 1/2 cercle), cependant j'en ai une dizaine à mettre et ça va me faire pas mal de macro comme ça
Voici l'exemple que j'avais trouvé, j'aimerais bien que ça fonctionne pareil.
Pourquoi sur vos exemple si on clique 2 fois sur le même côté ça rebalance de l'autre côté ?
Dans le code que j'ai essayé d'adapter vous ne voyez pas l'erreur qui pose problème ?
Bonne soirée à vous
merci

 

[mapomme]

Re,

Pourquoi sur vos exemple si on clique 2 fois sur le même côté ça rebalance de l'autre côté ?

Parce que vous avez décrit incomplètement le fonctionnement désiré...

 

[Julien_m]

désolé, pour moi c'était logique. Comme un interrupteur

 

[mapomme]

Re,

Voir le fichier joint.

 

[Julien_m]

merci beaucoup je vais m'y plongé.
Histoire de m'intruire, vous verriez l'erreur dans le code de mon 1er tableur ?

 

[mapomme]

Re,

Histoire de m'intruire, vous verriez l'erreur dans le code de mon 1er tableur ?

Vous essayez de référencer des propriétés que ne possèdent pas les formes. Voir la copie de la fenêtre espion à l'exécution de votre code au moment de l'erreur.

 

[Julien_m]

Vous essayez de référencer des propriétés que ne possèdent pas les formes. Voir la copie de la fenêtre espion à l'exécution de votre code au moment de l'erreur.
Regarde la pièce jointe 1032805

Re,
merci, en mettant une image à la place des forme ça fonctionne bien effectivement... pas facile tout ça
Je ne connaissais pas cette fenêtre... intéressante
Merci pour tout, à la prochaine