Copier la ligne contenant la valeur saisie

Fermé
saadiil1 Messages postés 27 Date d'inscription jeudi 17 mars 2011 Statut Membre Dernière intervention 6 avril 2011 - 28 mars 2011 à 12:12
Bonjour tt le monde ,

ça fait plus que 4h que je bosse sur cette macro sans réussir a voir le bon résultat et je ne sais meme pas c'est koi l'erreur ( je suis debutant en VBA ).

En fait je veu une macro qui permet de copier la ligne ou les lignes qui contienent l'anné (qu'on doit saisir ).dans une la feuil2 du fichier "Macro-somme-des-cdes" vers la feuil 1 du fichier "20110314 Ind0146bis_Carnet_Commande(1)".en sautant deux ligne a chaque fois. c'est la colenne B du la feuil2 du fichier "Macro-somme-des-cdes" qui contient les année. En fait je veux que ma macro demande de saisir l'anné année .

Voici ce que j ai met comme code :

Sub saisie()

On Error Resume Next
Dim Lig As Long

Dim NbrLig As Long
Dim col As String

Dim myVar As Variant

col = "B"
NumLig = 1

Message = ("Entrer l'année :")

myVar = InputBox(Message

Workbooks("Macro-somme-des-cdes.xls").Activate
Sheets("Feuil2").Select

NbrLig = Sheets("Feuil2").Cells(65536, col).End(xlUp).Row
For Lig = 1 To NbrLig


If Sheets("Feuil2").Cells(Lig, col).Value = myVar Then

NumLig = NumLig + 2

Sheets("Feuil2").Rows(Lig).Copy



Workbooks("20110314 Ind0146bis_Carnet_Commande(1).xls").Activate
Sheets("Feuil1").Select



Rows(NumLig).PasteSpecial Paste:=xlPasteAll



End If
Next Lig
End Sub


je ne sais pas c'est quoi l'erreur
merci de votre aide