Match en Macro:

Bonjour,


Voila je reviens vers vous avec une autre question

Je dispose de 2 fichiers

1-

Nom couleur
sam bleu
loic vert
jean rouge
stef orange


2-
Nom couleur
jean
sam


j aimerais savoir s il est possible de rappatrier les couleurs dans le fichier numero 2 (correspondant aux noms respectifs...) - tout cela en passant par une macro bien sur

si oui comment faire je suis perdu :'(

Amicalement

:aie:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub match() Dim Var As Variant, Nom As String, Prenom As String, Groupe As String, Repertoire As String   ''''''Worksheets("sheet3").Select ''''''Range("A1").Select Worksheets("sheet1").Activate Range("a2:a100").Select   For Each a In Selection Nom = Range(a.Address) couleur = Range(a.Address).Offset(0, 1)   Var = Application.Index(Worksheets("sheet2").Range("A1", "A100"), Application.match(a, Worksheets("sheet2").Range("A1", "A100"), 0), 1)   If Not IsError(Var) Then Worksheets("sheet2").Select ''''''''Range("A2").Select ActiveCell.Value = Var ActiveCell.Offset(0, 1).Value = couleur ''''''''ActiveCell.Offset(1, 2).Value = Nom ''''''''ActiveCell.Offset(0, 1).Select Worksheets("sheet1").Activate End If Next a End Sub

---

...

voici une idee de balbutiement de code... mayday mayday :'(

bonjour,

si j'ai bien compris, un début de solution peut-être...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub WbLookUp() Dim WBsrc As Workbook, SHsrc As Worksheet Dim WBdest As Workbook, SHdest As Worksheet Dim C As Range   'définir les classeur 'a adapter selon les cas Set WBsrc = Workbooks(1) Set WBdest = Workbooks(2)   For Each C In WBdest.Sheets(1).Range(WBdest.Sheets(1).Cells(2, 1), WBdest.Sheets(1).Cells(1, 1).End(xlDown)).Cells ' a adapter selon les cas C.Offset(0, 1) = Application.WorksheetFunction.VLookup(C, WBsrc.Sheets(1).Range("A1:B100"), 2, False) Next C   End Sub

---

Avec FIND :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub match()   Set F1 = Worksheets("Feuil1") Set F2 = Worksheets("Feuil2")   NbreLigne1 = F1.Cells(1, 1).End(xlDown).Row NbreLigne2 = F2.Cells(1, 1).End(xlDown).Row   With F1.Range("a1:a" & NbreLigne1)   For i = 2 To NbreLigne2 Set c = .Find(F2.Cells(i, 1), LookIn:=xlValues) If Not c Is Nothing Then F2.Cells(i, 2).Value = F1.Cells(c.Row, 2).Value End If Next i   End With

---

je vais m y atteler ...ve voir ce code par contre le vlookup me fait peut c pas trop lourd?....car en fait je compte adapter ce code pour des fichiers bien plus gros.. :(

en tous cas merci pour la reactivite - je vous tiens au jus...