voila le lien de mon fichier peut etre ca va t aider a comprendre mon problème
http://cjoint.com/?3KrvxYo9dpX
isabelle
bonjour joseph,
si j'ai bien compris cela devrais faire l'affaire, dit moi,
Sub test() For Each c In Sheets("Feuil2").Range("A7:A638") If Not IsError(Application.Match(c, Sheets("Macro").Range("A:A"), 0)) Then rw = Application.Match(c, Sheets("Macro").Range("A:A"), 0) Sheets("Macro").Range("G" & rw).Copy Sheets("Feuil2").Range("Z" & c.Row) End If Next End Sub
-- isabelle
Le 2011-11-17 15:25, joseph84 a écrit :
voila le lien de mon fichier peut etre ca va t aider a comprendre mon problème
http://cjoint.com/?3KrvxYo9dpX
bonjour joseph,
si j'ai bien compris cela devrais faire l'affaire, dit moi,
Sub test()
For Each c In Sheets("Feuil2").Range("A7:A638")
If Not IsError(Application.Match(c, Sheets("Macro").Range("A:A"), 0)) Then
rw = Application.Match(c, Sheets("Macro").Range("A:A"), 0)
Sheets("Macro").Range("G" & rw).Copy Sheets("Feuil2").Range("Z" & c.Row)
End If
Next
End Sub
--
isabelle
Le 2011-11-17 15:25, joseph84 a écrit :
voila le lien de mon fichier peut etre ca va t aider a comprendre mon
problème
si j'ai bien compris cela devrais faire l'affaire, dit moi,
Sub test() For Each c In Sheets("Feuil2").Range("A7:A638") If Not IsError(Application.Match(c, Sheets("Macro").Range("A:A"), 0)) Then rw = Application.Match(c, Sheets("Macro").Range("A:A"), 0) Sheets("Macro").Range("G" & rw).Copy Sheets("Feuil2").Range("Z" & c.Row) End If Next End Sub
-- isabelle
Le 2011-11-17 15:25, joseph84 a écrit :
voila le lien de mon fichier peut etre ca va t aider a comprendre mon problème