Discussion :

[casual92]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :'(

[mayekeul]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[delphine35]

Avec FIND :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casual92]

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...