RechercheV multiple à automatiser

cyjan · 25 Avril 2009

bonjour,

d'abord bravo pour ce forum..
avant de vous poser ma question, j'ai cherché dans le forum si je pouvais trouver la solution mon problème.. mais en vain.. (à priori!).

voici ma question :
j'ai 2 fichiers avec un point commun qui est le GENCOD.
je dois rapatrier sur le fichier1 des données provenant du fichier2 en utilisant le GENCOD avec la fonction RECHERCHEV.
ca, je sais faire et ca marche tres bien.

par contre, j'ai une quarantaine de RECHERCHEV à faire ! et ca me prends bcp de temps et c'est très très fastidieux..
au bout de la 10eme recherchev, parfois, je ne sais plus en j'en suis.. !

bref, ma question :

grace à une macro, comment pourrais je automatiser ces 40 RECHERCHEV ?

j'ai essayé de faire une macro avec recherchev, marche pas.. et très lourd.

est ce possible dans EXCEL 2003 ?

voila, merci pour votre coup de main.

pierrejean · 26 Avril 2009

Re : RechercheV multiple à automatiser

Re

j'ai tenté d'expliquer la macro par des commentaires sur fichier joint
Je te conseille d'explorer la notion de tableau
A cet effet j'ai mis une macro lecture de tableau (a tester )

mth · 26 Avril 2009

Re : RechercheV multiple à automatiser

bonsoir le fil 🙂

Formidable ton fichier et tes explications pierrejean 🙂
(je me le garde précieusement comme base de travail pour apprendre à manipuler les tableaux 🙂 )

bravo et merci à toi

bises,

Mireille

Cousinhub · 26 Avril 2009

Re : RechercheV multiple à automatiser

Bonsoir,

Bonsoir, Mireille 🙂
Bonsoir, PierreJean 🙂

Tant qu'à être dans les tableaux....

Une petite variante du code de PJ.....

Nota, PJ, je pense que ton tablo2 ne fait pas référence à la bonne ligne de fin, tu calcules la dernière ligne du fichier 1, et non du fichier 2.....😉

Code:

Sub test()
tablo = ActiveSheet.Range("C4:C" & Range("C65536").End(xlUp).Row)
With Workbooks("cyjan_fichier2.xls").Sheets("Feuil1")
    tablo2 = .Range("C4:C" & .Range("C65536").End(xlUp).Row)
    tablo3 = .Range("C4:H" & .Range("C65536").End(xlUp).Row)
End With
For n = LBound(tablo) To UBound(tablo)
    x = Application.Match(tablo(n, 1), tablo2, 0)
        If Not IsError(x) Then
            For i = 2 To 6
                Cells(x + 3, i + 3).Value = tablo3(x, i)
            Next i
        End If
Next n
End Sub

Bonne soirée, tout le monde....

pierrejean · 26 Avril 2009

Re : RechercheV multiple à automatiser

Re

@ mth Bises et Merci pour tes compliments
@ bhbh Merci egalement pour ta remarque parfaitement justifiée ( je corrige de ce pas)

cyjan · 26 Avril 2009

Re : RechercheV multiple à automatiser

ouah, j'analyse, je comprends et reviens vers vous...

en fait, j'essaie d'adapter ce script sur mes tableaux, en essayant de le comprendre pour mieux le manipuler..

et depuis hier, j'ai réfléchis à construire une macro "recherchev multiple" paramétrable... c'est à dire utile dans toutes les circonstances pour croiser
des données avec un critère commun.
l'utilisateur rentre les données nécessaire comme le critère commun du fichier1 et fichier2, sur le fichier1, la colonne à partir de laquelle il rapatrie les données et donner les colonnes du fichier2 à rapatrier..

voila en j'en suis... c'est un vaste projet mais en adaptant le script de PJ et l'aide de vous tous, j'espère arriver à construire ce script.

les premiers pas de la macro, deja, je ne sais pas comment avoir un fichier tiers avec la macro et les données et faire fusionner 2 fichiers..

bon, je me lance dans la compréhension du script de PJ

RechercheV multiple à automatiser

cyjan

Guest

pierrejean

XLDnaute Barbatruc

Pièces jointes

mth

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

cyjan

Guest

Pièces jointes

Discussions similaires

RechercheV multiple à automatiser

cyjan

Guest

pierrejean

XLDnaute Barbatruc

Pièces jointes

mth

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

cyjan

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency