Excel - 2 Listes en 1 Résolu/Fermé

Question

Bonjour,

Je cherche une fonction, marco, idée qui me permettrait d'automatiser un travail très pénible. 

Tout débute sur Excel, j'ai 2 listes :

- 1ère : des mots l'un en dessous de l'autre (ex: Z-EV, CMM01-PU, BP(SAL), ...) 

       ___Colonne 1 : 
       ___Z-EV
     ___CMM01-PU
       ___BP(SAL)
       ___...

- 2ème : liste complète de la 1ère liste  (ex: Z-EV.A, Z-EV.B, Z-EV.R, CMM01-PU.X, CMM01-PU.Y, ...)

        ___Colonne 1 :
        ___Z-EV.A
        ___Z-EV.B
        ___Z-EV.C
        ___CMM01-PU.X
        ___CMM01-PU.Y


Vous l'aurai compris, j'ai une liste synthétique qui représente mes bases et une liste développé qui comporte la base, point, autre chose. 

J'ai ces 2 listes sur des feuilles séparer et mon but est de pouvoir assembler les 2 listes sur une feuille, de la manière suivant :

Colonne 1 :__________Colonne 2 :
Z-EV________________Z-EV.A
____________________Z-EV.B
____________________Z-EV.C
saut de ligne
CMM01-PU___________CMM01-PU.X
___________________CMM01-PU.Y
saut de ligne
...


Merci pour votre aide

eriiic · Answer

Bonjour,

Si liste2 comprend toutes les bases de liste1 ça simplifie le programme.
Est-ce le cas ?

eric

eriiic · Answer

Re, 

essaie sur une liste plus grande : 
http://www.cijoint.fr/cjlink.php?file=cj201109/cijzMHC2jY.xls 

eric

edit : je viens seulement de lire ton commentaire de 11:05 donc ma proposition ne va pas. Trop tard.
Je suis absent cette am, si qcq'un veut reprendre...

eriiic · Answer

Bonjour,

Liste2 est supposée triée.
A tester :
http://www.cijoint.fr/cjlink.php?file=cj201109/cijSCtOK1t.xls

eric

dubol · Answer

Bcp de boulot, je testerai aujourd'hui ou plus tard et essaierai de comprendre le code. Je vous tiens au jus

bonne journée

dubolg · Answer

Vraiment superbe !

Par contre je ne comprend pas exactement la manière du procéder, 

pourrais-tu me l'expliquer ? Je rappel le code que j'ai adapté à mes feuilles : 


Sub Remplissage_Connecteur()

'-------------------------
'Déclaration des variables

    Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
    Dim lig1 As Long, lig2 As Long, lig3 As Long, base As String, c As Range
    Set sh3 = Worksheets("F_connecteurs")
    Set sh2 = Worksheets("LIDA")
    Set sh1 = Worksheets("travail_temporaire")

'--------------
'Initialisation
    lig2 = 2: lig3 = 5: base = "vide"
    
'----
'Code

    For lig1 = 2 To sh1.[A65536].End(xlUp).Row
        If Left(sh2.Cells(lig2, 1), Len(base)) <> base Then
            lig3 = lig3 + 1
            base = sh1.Cells(lig1, 1)
            sh3.Cells(lig3, 2) = base
        End If
        Set c = sh2.Columns(1).Find(base & "*", LookIn:=xlValues)
        If c Is Nothing Then
            lig3 = lig3 + 1
        Else
            lig2 = c.Row
            While Left(sh2.Cells(lig2, 1), Len(base)) = base
                sh3.Cells(lig3, 3) = sh2.Cells(lig2, 1)
                lig2 = lig2 + 1
                lig3 = lig3 + 1
            Wend
        End If
    Next lig1
End Sub

Excel - 2 Listes en 1

5 réponses

Discussions similaires