Problème avec checkbox

[Backhandshot]

Bonjour à tous!
Je fais appel encore une fois au forum j'ai de la difficulté avec ma checkbox quand je coche la case sur feuille1 elle doit faire un filtre élaboré sur feuille2 puis copier ces lignes sur la feuille 3. Mes 2 macros fonctionnent très bien je les ai copiées dans checkbox mais là il me dit erreur 1004...
Avez-vous une solution ?
Merci

 

[Grand Chaman Excel]

Re : Problème avec checkbox

Bonjour Backhandshot,

Voici ta macro version "améliorée"... De grâce, évite les .Select quand c'est possible, ça ralentit le code et c'est inutile...

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("Feuil2").Range("$A$1:$E$6").AutoFilter Field:=2, Criteria1:="=1", _
        Operator:=xlAnd
    Sheets("Feuil2").Range("A2:E9").Copy Sheets("Feuil3").Range("A1")
    Application.CutCopyMode = False
    Sheets("Feuil1").Select
Else

    Sheets("Feuil3").Range("A1:E4").ClearContents
    Sheets("Feuil2").Range("$A$1:$E$6").AutoFilter Field:=2
    Sheets("Feuil1").Select
End If
End Sub

A+

 

[Backhandshot]

Re : Problème avec checkbox

Bonjour Grand Chaman Excel!
C'est exactement ce que je recherchais.
Merci à toi

GO NORDIQUES GO !!!!