Fonction recherche + copie [Résolu]

[boom47]

Bonjour a tous,

Je cherche a ecrire un mot sur une feuille 1 dans une cellule (C,26) et que a partir de cette cellule (C,26), le programme me fasse une recherche dans un tableau d'une autre feuille2, colonne B et me retourne dans la feulle 1 a la cellule (D,26) la valeur en face de la ligne où ce situe la valeur trouvé, par exemple si on marque "GB" en feuille 1 cell C26; la recherche trouve le mot "GB" en cellule B45 de la feuille 2;et retourne la valeur C45 feuille 2 dans la cellule D26 de la feuille 1.

Voici le code que j'ai essaiyé de mettre en place mais qui ne fonctionne pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro4()
Dim i As Integer
 
i = 2
 
If Sheets("FRT").Cells(C, 26) <> "" Then
 
If Worksheets("FRT").Cells(C, 26).Value = Worksheets("Destinations").Cells(b, i).Value Then
Worksheets("Destinations").Range(b, i).Copy
Worksheets("FRT").Range(D, 26).PasteSpecial xlPasteAll
 
Else
If Worksheets("Destinations").Cells(b, i).Value <> Worksheets("FRT").Cells(C, 26).Value Then
i = i + 1
 
End If
End If
End If
 
End Sub

[Daniel.C]

Bonjour,

J'ai un petit doute sur ta référence aux cellules. J'ai supposé qu'il s'agissait de C26 et D26 :

Code :

[Feuil1!D26] = Application.VLookup([Feuil1!C26], [Feuil2!B:C], 2, 0)

[boom47]

voila mon vrai problème

je veux ecrire un mot (ex: GB) en feuil "FRT", cell C26
Ensuite que la fonction recherche en feuille "Destination" dans la colone B le mot ecrit précédent
Puis, une fois la valeur trouvé, prend la valeur de la colone a coté et sur la meme ligne et la copier dans la feuille "FRT" a la cellule D26 ( ex pour GB: Feuil "destination" cell B57 = GB alors copier la valeur Feuil "destination" cell C57 et la coller en feuil "FRT", cell D26

[boom47]

j ai du mal a voir comment l'intégrer a ma fonction...

Envoyé par Daniel.C

Bonjour,

J'ai un petit doute sur ta référence aux cellules. J'ai supposé qu'il s'agissait de C26 et D26 :

Code :

[Feuil1!D26] = Application.VLookup([Feuil1!C26], [Feuil2!B:C], 2, 0)

[Daniel.C]

Quelle fonction ? Remplace ta macro par celle-ci :

Code :

1
2
3
Sub Macro4()
    [FRT!D26] = Application.VLookup([FRT!C26], [Destination!B:C], 2, 0)
End Sub

[boom47]

Envoyé par Daniel.C

Quelle fonction ? Remplace ta macro par celle-ci :

Code :

yes ca marche a fond les ballons xd Merci beaucoup

[Daniel.C]

Alors marque le problème comme résolu, ça évitera aux autres de chercher (et grâce aux points que ça me rapportera peut-être, je deviendrai plus étoilé qu'un maréchal de feu l'Armée rouge :-))