Titre du sujet : Re: vba : jointure pour creation feuille 3 avec donnees de 2 feuilles
par Mytå le 16/03/2012 02:35:48
Salut le forum
Solution proposée sur un autre forum, et Olives qui ne la pas signalée.
Sub test()
Dim i As Long, j As Long, k As Long, Col As Long, Code As Long
j = 2
With Sheets("feuil1")
For i = 2 To .Range("A65536").End(xlUp).Row
Code = .Cells(i, 1).Value
Sheets("Feuil3").Range("A" & j).Value = Code
Sheets("Feuil3").Range("B" & j).Value = .Cells(i, 2).Value
If Application.CountIf(Sheets("feuil2").Range("A1:A65536"), Code) > 0 Then
Col = 3
For k = 2 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
If Sheets("Feuil2").Range("A" & k).Value = Code Then
Sheets("feuil3").Cells(j, Col).Value = Sheets("Feuil2").Range("B" & k).Value
Sheets("feuil3").Cells(j + 1, Col).Value = Sheets("Feuil2").Range("C" & k).Value
Col = Col + 1
End If
Next k
j = j + 2
Else
j = j + 1
End If
Next i
End With
End Sub
Mytå
|
Didier FOURGEOT