extraction d'un fichier vers un autre

[NICOALBERT]

Bonjour a tt le forum.

Je viens vers vous car je suis entrain de réaliser une base de donnée sur le turf. et je voudrais importer des informations d'un fichier vers un autre selon critère. j'ai deux fichier le 1er:"2008" qui est la base, et le 2èm: "Etude cheval". ce que je voudrais c'est que selon le nom du cheval se trouvant en I3 du fichier Etude cheval, on extrait tous les lignes ou le nom du cheval se trouve dans le fichier "2008" dans les feuilles 1 et 2.

Pouvez vous m'aider . en vous remerciant d'avance.

 

[job75]

Re : extraction d'un fichier vers un autre

Bonsoir NICOALBERT,

Le code d'effacement concerné :

derlig = Columns("I").Find("Allocation", After:=Cells(Target.Row + 1, "I"), LookIn:=xlValues).Row - 2
If derlig < lig Then derlig = 65536
Rows(lig & ":" & derlig).Clear 'vide la plage de recopie

Il recherche en colonne I l'occurence suivante du mot "Allocation", et retranche 2 du n° de ligne obtenu, ce qui définit derlig.

Si "Allocation" n'est pas trouvé, derlig vaut 65536 (dernière ligne de la feuille).

Il est indispensable d'effacer jusqu'à derlig avant de renseigner la plage.

C'est tout ce que je puis dire.

A+