Bonjour
J'ai un code VBA qui crée un filtre automatique jusque là ça marche bien mais le problème est que quand je met les critères de sélection du filtre il me met "erreur de syntaxe".
Voici le code en question.
j'ai pourtant regardé sur divers forum et appliqué ce qui y était écrit mais l'erreur persiste.
J'ai un code VBA qui crée un filtre automatique jusque là ça marche bien mais le problème est que quand je met les critères de sélection du filtre il me met "erreur de syntaxe".
Voici le code en question.
Code:
Sub Filtre_auto()
Dim Deb As Integer, Lignes As Long, Bws As Worksheet, Dws As Worksheet, Fin As Integer
Set Bws = Worksheets("maintenance préventive")
Set Dws = Worksheets("Resultats")
Deb = 4
With Bws
Fin = Range("A65536").End(xlUp).Row
End With
Application.ScreenUpdating = False
With Bws
.Range("C" & Deb, "I" & Fin).Copy
If Not .AutoFilterMode Then .Range("A4:I4").AutoFilter
With Dws.Range("C2")
.PasteSpecial Paste:=xlPasteAll
End With
End With
Dws.Activate
With Dws
If Not .AutoFilterMode Then .Range("C2:I2").AutoFilter
With Selection
.Sort Key1:=Range("G" & Deb), order1:=xlDescending, Header:=xlGuess, Orientation:=xlTopToBottom
.AutoFilter Field = 5, Criteria1:">=10"
End With
End With
End Subj'ai pourtant regardé sur divers forum et appliqué ce qui y était écrit mais l'erreur persiste.