Recherche et transfert de données

Hello à tous,

J'aurais besoin de votre aide pour faire une macro assez automatisée avec des boucles.

Quand je vais parler de feuilles, ca sera des feuilles de 2 fichiers différents.
A savoir que chaque case de la colonne C est unique.

J'aimerais faire une recherche dans la "feuille de reception" de la 1ère cellule vierge de la colonne D.
Prendre la case correspondante de la colonne C.

Puis aller dans la "feuille source" rechercher dans la colonne C la même cellule.

Prendre la case correspondante de la colonne D et la copier dans la "feuille de reception"

Ainsi de suite jusqu'à arriver à une ligne vierge

Merci d'avance :)

Hello,

A savoir que chaque case de la colonne C est unique.

C'est pas ce que je vois dans ton fichier

du coup débrouilles toi avec ceci :

Sub Recup_Resultat()

Dim i%
Dim Concatenation$
Dim Trouve_Concat As Range
Dim Resultat As Long

i = 1

Do
    i = i + 1
    Concatenation = Sheets(2).Range("C" & i)
    Set Trouve_Concat = Sheets(1).Columns(3).Find(Concatenation, Lookat:=xlWhole, LookIn:=xlValues)
    If Not Trouve_Concat Is Nothing Then
        Resultat = Sheets(1).Range("D" & Trouve_Concat.Row).Value
        Sheets(2).Range("D" & i) = Resultat
    End If
Loop Until Sheets(2).Range("C" & i) = ""

End Sub

R@g

Hello Rag,

désolé c'est un fichier assez lourd et j'ai voulu faire un exemple.
Merci je vais tester, est-ce qu'il y a possibilité de démarrer la macro sur un bouton ?

Alexis

le résultat est erroné puisque je n'ai pas de valeur unique en C

J'ai refais les colonnes avec quelque chose de beaucoup plus représentatif

Merci beaucoup de ton aide

Par contre pour modifier la macro, à quel endroit je rajoute la mention d'un autre fichier excel ?

Disons que je veux transférer de mon fichier à celui que tu as fait

Bonsoir,

Merci pour ton aide Rag, j'ai repris mon fichier pour le faire coller au max à mon besoin.

A savoir qu'il y aura des lignes en plus dans la "feuil2".

Dans la feuille "import", prendre la 1ère cellule remplie de la colonne L; copier les cases correspondantes des colonnes I et J

Faire une recherche dans la "feuil2" et coller les données en colonnes AE et AF

Répéter l'opération jusqu'à arriver à une ligne vierge.

J'ai essayé dans l'autre sens, partir d'une recherche dans la feuil2 mais il y a des lignes qui n'auront pas de correspondance...

Merci d'avance :)

Hello,

ça n'a plus rien à voir ...

copier les cases correspondantes des colonnes I et J

Quelles cellules correspondantes ? Les colonnes I et J de la feuille import sont vides ...

R@g