Microsoft 365 Une forme change de couleurs à chaque clic (3 couleurs)

[pat66]

Bonjour le Forum,

J'ai besoin de votre expertise car je galère depuis quelques heures pour rédiger cette macro.

Je sais rédiger une macro qui alterne entre 2 valeurs et 2 couleurs sur une forme, mais pas entre 3 valeurs et 3 couleurs sur une forme

Donc je souhaiterai pouvoir faire en sorte qu'à chaque clic, ma forme alterne entre 3 couleurs et que simultanément saisisse une valeur (1,2,0) dans C7)

tout est expliqué dans le fichier ci joint

Merci d'avance pour votre aide et vos conseils

cdt

 

[sylvanu]

Bonjour Pat,
Peut être simplement avec :

Sub Clic()
    Select Case [C7]
        Case 0: [C7] = 1: ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(0, 0, 200)
        Case 1: [C7] = 2: ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(255, 255, 0)
        Case 2: [C7] = 0: ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(0, 255, 0)
    End Select
End Sub

 

[job75]

Bonjour pat66, sylvanu,

Avec la fonction Switch :

Sub Clic()
ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = Switch([C7] = 0, RGB(0, 0, 200), [C7] = 1, RGB(255, 255, 0), [C7] = 2, RGB(0, 255, 0))
[C7] = ([C7] + 1) Mod 3
End Sub

A+

 

[pat66]

Bonjour le forum,
Bonjour le fil,

merci beaucoup pour votre aide, les deux solutions fonctionnent parfaitement et j'ai un faible pour la solution de Job75 avec la fonction Switch

Bonne journée

 

[mapomme]

Bonsoir à tous 😉,

Une variante du code de @job75 (que je salue) :

Sub Clic()
   ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = Array(RGB(0, 0, 200), RGB(255, 255, 0), RGB(0, 255, 0))([C7])
   [C7] = Array(1, 2, 0)([C7])
End Sub

 

[vgendron]

Faudrait arreter de multiplier les posts pour la meme chose !

P

Microsoft 365 Discussion 'Validation des données avec VBA'

7 Avril 2025

Bonjour le forum,

merci pour votre aide,

j'aimerai pouvoir remplacer Formula2:=[C12] par Formula2:="MIN[C12;2]" car je souhaite plafonner à 2 la saisie dans C14,
j'ai essayé bien des solutions mais sans trouver la bonne, quelqu'un aurait-il une idée ?

With Range("C14").Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:=[C12]
End With

merci beaucoup

• pat66
• Réponses: 16
• Forum: Forum Excel