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
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