mettre de la couleur dans l'autoShape sourire

[boullitt93]

Re bonjour à toutes et à tous

J'utilise la forme sourire comme bouton de lancement d'une macro; Par contre je souhaiterais la "customiser "en rajoutant la couleur jaune quand il sourit et la couleur rouge quand il fait la moue ! ci-dessous la macro.

merci d'avance de vos réponses


Sub filtre()
' filtre Macro
Range("Zone_d_impression").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:G2"), Unique:=False

End Sub
Private Sub Cde_Sourire_Click()
If Me.Cde_Sourire.Caption = "J" Then
Me.Cde_Sourire.Caption = "L"
Call filtre
Else
Me.Cde_Sourire.Caption = "J"
Call filtre
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Staple1600]

Re : mettre de la couleur dans l'autoShape sourire

Bonjour



A modifier selon tes besoins

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "J" Then
CommandButton1.Caption = "L"
CommandButton1.BackColor = &HFF&
MsgBox "rouge"
Else
CommandButton1.Caption = "J"
CommandButton1.BackColor = &HFFFF&
MsgBox "jaune"
End If
End Sub

 

[Lii]

Re : mettre de la couleur dans l'autoShape sourire

Bonjour,

à voir :

Private Sub Cde_Sourire_Click()
  Cde_Sourire.Caption = IIf(Cde_Sourire.Caption = "J", "L", "J")
  Cde_Sourire.BackColor = IIf(Cde_Sourire.Caption = "J", &HFFFF&, &HFFF)
End Sub

 

[boullitt93]

Re : mettre de la couleur dans l'autoShape sourire

Génial ! ça marche mais question subsidiaire à un PRO de la macro :

Sub filtre()
' filtre Macro
Range("recherche").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A2:I3"), Unique:=False

End Sub
Private Sub Cde_Sourire_Click()
If Me.Cde_Sourire.Caption = "J" Then
Me.Cde_Sourire.Caption = "L"
Me.Cde_Sourire.BackColor = &HFF&
Call filtre
Else
Me.Cde_Sourire.Caption = "J"
Me.Cde_Sourire.BackColor = &HFFFF&
Call filtre
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


Comment pourrait-on modifier la macro pour que le bouton s'affiche "sourire et jaune" quand il trouve une donnée correspondante à un critère de recherche et " la moue et rouge" quand il ne trouve rien ?

A te lire

Cordialement BOULLITT