Filtre auto VBA

Yldie

XLDnaute Junior
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)

XLDnaute Barbatruc
Re : Filtre auto VBA

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

En plus court cela donne
Code:
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
 

Discussions similaires

Réponses
3
Affichages
778
Réponses
5
Affichages
331

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna