Copier une ligne a partir d'un critere

[lufy50]

Bonjour,

J'ai un probleme sur mon programmme et je trouve pas l'erreur.

Je souhaite qu'une macro passe sur mes lignes de la feuille "mediaire" et les copie sur la feuille dont le nom est egale a la valeur de la colonne 25.

Sheets("mediaire").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

rw = ligne

For Each rw In Selection.Rows

[COLOR="Red"]rw.Copy Destination:=Worksheets(CStr(Sheets("mediaire").Cells(ligne, 25))).Cells(ligne, 1).EntireRow[/COLOR]

Next rw

End Sub

La ligne en rouge indique lebug.

j'espere que vous pourrez m'aider.

Lucy

 

[skoobi]

Re : Copier une ligne a partir d'un critere

Bonsoir,

essaye en remplaçant
Cells(ligne, 1).EntireRow
par
Rows(ligne)

Sans garantie.

 

[lufy50]

Re : Copier une ligne a partir d'un critere

merci pour ta reponse mais ca marche toujours pas ....
Je sais plus quoi faire, si vous avez une autre solution, je prends ..

 

[skoobi]

Re : Copier une ligne a partir d'un critere

Re,

sûrement en nous envoyant le fichier.

 

[lufy50]

Re : Copier une ligne a partir d'un critere

voila le fichier...

 

[skoobi]

Re : Copier une ligne a partir d'un critere

La variable ligne est vide donc forcément ça plante.
Autre chose:
rw = ligne ne sert à rien car ensuite rw est un objet: For Each rw In.....

Puis avec:
Sheets("mediaire").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

Comprends pas vu que la feuille "mediaire" est vide.