checkbox

[Mimi]

Bonjour à tout le forum,
Voila, dans un Userform, j'ai un checkbox, quand je coche ça me fait ceci :

Selection.AutoFilter Field:=8, Criteria1:="Yvan"

Quand je décoche le checkbox je voudrais faire ceci :

Sheets("Clients").AutoFilterMode = False

et là je ni arrive pas

D'avance merci
Michel

 

[ChTi160]

Re : checkbox

Salut mimi
Bonjour le Forum

il faut mettre un truc du Genre

Private Sub CheckBox1_Change() 'ou Click
Select Case CheckBox1
 Case Is = [COLOR=Blue]True[/COLOR]
       Selection.AutoFilter Field:=8, Criteria1:="Yvan"
 Case Is = [COLOR=Red]False[/COLOR]
      Sheets("Clients").AutoFilterMode = False
 End Select
End Sub

Non testé
Bonne Journée

 

[Mimi]

Re : checkbox

Salut Jean-Marie,

Impect le code sa marche nikel, merci de ta réponse et de bien vouloir passer du temps pour répondre à nos questions.

Encore merci et à bientôt
Michel