vba : jointure pour creation feuille 3 avec donnees de 2 feuilles

[olives]

re-bonjour les amis !

voila mon petit problème pour des connaisseurs , je galère, si vous avez le code vba pour cela :

je veux parcourir toutes les cellules de la colonne A de la 1ere feuille ,
puis chercher/ parcourir dans la 2ieme feuille l'existence de cette cellule dans la colonne A (plusieurs fois trouvée possible ou pas)
si trouvé ou pas , créer une 3ieme feuille avec données de la feuille 1 en ligne et données de la feuille 2 associée en colonne , si pas trouvé , alors je laisse les données de feuille 2 à blanc

je mets un exemple très simple pour aider

merci d'avance

 

[olives]

Re : vba : jointure pour creation feuille 3 avec donnees de 2 feuilles

bonjour a tous,
personne n'a une petite solution?
si quelqu'un pouvait m'aider ce serait gentil 🙂
merci d'avance

 

[olives]

Re : vba : jointure pour creation feuille 3 avec donnees de 2 feuilles

qu'est ce qui est bloquant selon vous ?

 

[olives]

Re : vba : jointure pour creation feuille 3 avec donnees de 2 feuilles

bon, ben je croyais que...

 

[tototiti2008]

Re : vba : jointure pour creation feuille 3 avec donnees de 2 feuilles

Bonjour olives,

Il y a surement moyen d'optimiser un peu plus mais ça devrait marcher

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

 

[olives]

Re : vba : jointure pour creation feuille 3 avec donnees de 2 feuilles

testé ,
bravo , c top ! trop fort !

un graaaaaaaaand merci 😉

A charge de revanche 🙂