Discussion :

[Dosce]

Bonjour à tous,

Je vous présente ma situation : j'ai un identifiant (nombre de 5 chiffres) qui est associé à deux autres identifiants (un identifiant composé simplement d'un nombre de 1 à 10, et l'autre identifiant composé d'un F suivi d'une dizaine). Le problème est que je dispose de deux listes,une pour chaque identifiant, comme cela :



J'aimerais agréger toutes ces infos dans une seule colonne qui combinerait tous les identifiants, comme cela :



J'espère que c'est clair, n'hésitez pas à me demander des précisions.

Les listes étant faites de centaines de lignes, j'aimerais trouver un moyen de faire cela automatiquement. J'ai pensé à créer, sur un nouveau tableau, des conditions en fonction du nombre d’occurrences, mais je n'ai pas réussi.

Peut-être faut-il passer par du VBA (que je ne maîtrise pas du tout) ?

Merci d'avance

[ARTURO83]

Bonjour,

Une proposition utilisant le VBA pour construire un tableau intermédiaire avec formules(pour voir le raisonnement suivi) et pour restituer le résultat en colonne. On peut évidemment aussi faire tout en VBA sans passer par un tableau intermédiaire.

le code utilisé (sur la feuille Excel, faire ALT + F11 pour en voir le contenu):

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
26
27
28
29
30
31
32
33
34
35
Sub Creation_Tableau()
    Dim DerLigH As Long, DerLigA As Long, DerLigB As Long, DerCol As Long
    Application.ScreenUpdating = False
    'on efface l'ancien tableau de préparation et la colonne C (anciens résultats)
    If I1 <> "" Then
        DerLigH = [H2].End(xlDown).Row
        DerCol = [H110000].End(xlToRight).Row
        Range(Cells(2, "I"), Cells(DerLigH, DerCol)).Clear
    End If
    Columns(3).ClearContents
 
    'on recrée le nouveau tableau de préparation
    DerLigA = [A10000].End(xlUp).Row
    DerLigB = [B10000].End(xlUp).Row
    Range("A1:A" & DerLigA).Copy
    Range("H2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("B1:B" & DerLigB).Copy
    Range("I1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
    'Ajout des formules
    Range(Cells(2, "I"), Cells(DerLigA + 1, DerLigB + 8)).FormulaR1C1 = "=IF(LEFT(R1C,5)=LEFT(RC8,5),RC8&""_""&RIGHT(R1C,3),"""")"
    Range(Cells(1, "H"), Cells(DerLigA + 1, DerLigB + 8)).Borders().Weight = xlThin
 
    'on reconstitue la nouvelle liste
    Lig = 1
    For L = 2 To DerLigA + 1
        For C = 9 To DerLigB + 8
            If Cells(L, C) <> "" Then
                Cells(Lig, "C") = Cells(L, C)
                Lig = Lig + 1
            End If
    Next C, L
End Sub

le fichier en exemple
Pièce jointe 434626

Copiez vos listes en colonnes A et B, inutile d'effacer la colonne C et le tableau de droite (il sont effacés automatiquement), cliquez sur le bouton "Création liste".

Cdlt

[Dosce]

Merci, c'est exactement ce dont j'avais besoin

Ça marche impeccable, du premier coup, rien à redire ahah. Merci beaucoup !

Plus qu'à me mettre au VBA pour bien comprendre