checkbox

Mimi · 9 Juillet 2007

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 · 9 Juillet 2007

Re : checkbox

Salut mimi
Bonjour le Forum

il faut mettre un truc du Genre

Code:

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 · 9 Juillet 2007

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

checkbox

Mimi

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Mimi

XLDnaute Occasionnel

Discussions similaires