boullitt93
XLDnaute Nouveau
Hier Staple1600 et LII, m'ont donné la programmation pour "colorier " mon bouton macro "Sourire".
Mais comment pourrait-on modifier la macro pour que le bouton s'affiche "sourire et jaune" quand le filtre trouve une donnée correspondante à un critère de recherche et " la moue et rouge" quand il ne trouve rien ?
Merci de vos idées!
A+
Ci-dessous 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
Mais comment pourrait-on modifier la macro pour que le bouton s'affiche "sourire et jaune" quand le filtre trouve une donnée correspondante à un critère de recherche et " la moue et rouge" quand il ne trouve rien ?
Merci de vos idées!
A+
Ci-dessous 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