Macro recherche et copie

[Kouks]

Bonjour tout le monde,

je viens encore une fois soliciter votre aide. Il me faudrait une macro qui recherche des informations dans une feuille et vient les copier dans une autre selon des critéres précis. Ci-jont un fichier qui explique ce que je ve faire.

Merci pour votre temps en espérant trouver une solution à mon problème

 

[Épaf]

Re : Macro recherche et copie

Dans l'aide de VBA Excel, tu as un excellent exemple de recherche de donnée dans une feuille de calculs.
Dans cet exemple, tu as une condition "if not c = nothing then"
Là, c correspond à la cellule, qu'il te suffit donc de copier là où tu veux qu'elle soit.

if not c = nothing then
    Worksheets("NomFeuilDestination").Cells(NoLigne,NoCol) = c
endif

Si tu penses n'avoir qu'une fois cette valeur, la boucle Do -> While est inutile

 

[Cousinhub]

Re : Macro recherche et copie

Bonjour Kouks, Epaf
Pourquoi une macro, une fonction index/equiv suffit.
Regarde le fichier joint

 

[Kouks]

Re : Macro recherche et copie

Merci beaucoup pour vos réponses

Celle de Bhbh me convient le mieux