Filtre auto VBA

[Yldie]

Bonjour,

J'ai un souci avec le code suivant notamment à la 4 ème ligne, pourriez vous me dire ce qui ne va pas :

(1)Sub Saisie()
(2)Sheets("BD tableur").Select
(3)ActiveSheet.Unprotect ("A")
(4)ActiveSheet.Range("$B$1:$H$300").AutoFilter Field:=7, Criterial:=Range("A1").Value
(5)Range("B2:H300").Select
(6)Selection.Copy
(7)Sheets("saisie").Select
(8)Range("B4").Select
(9) Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
(10) xlNone, SkipBlanks:=False, Transpose:=False
(11)End Sub

Sincères remerciements

Yldie

 

[youky(BJ)]

Re : Filtre auto VBA

Bonjour
C'est pas Criterial, mais Criteria1 . . . .avec 1 au lieu de L

En plus court cela donne

Sub Saisie()
Sheets("BD tableur").Select
ActiveSheet.Unprotect ("A")
Range("$B$1:$H$300").AutoFilter Field:=7, Criteria1:=Range("A1").Value
Range("B2:H300").Copy
Sheets("saisie").Range("B4").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Bruno