Bonjour, j'ai 3 listes différentes, dans lesquels je dois fusionner les informations, j'ai commencé par copier/coller les 3 listes les unes en dessous des autres, avec le numéro d'identifiant dans la même colonne, pareil pour le nom, et j'ai une colonne en plus pour chaque liste que j'ai rajouté, une fois le tri par identifiant effectué, j'ai donc des doublons, voir des triplons avec le même code/nom.

J'ai donc créé la macro suivante pour essayer d'envoyer les infos dans la première ligne, il me suffira ensuite de supprimer les lignes vides, mais je pense faire une erreur sur la sélection de la case, je fais ma vérification sur la case D7, j'essaye de rapatrier les infos situées dans les colonnes G et H, puis je descend.
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
Sub fusion()
Dim j As Integer
Dim i As Integer
j = 0
i = 7
 While D(i) <> ""
    If D(i) <> D(i + 1) Then
        If j = 0 Then i = i + 1
            Select Case Number
                Case 0
                i = i + 1
                Case 1
                H(i - j) = H(i - 1)
                G(i - j) = G(i - 1)
                j = 0
                Case 2
                H(i - j) = H(i)
                G(i - j) = G(i - 1)
                j = 0
            End Select
        End If
 
    Else
        j = j + 1
        i = i + 1
    End If
 Wend
End Sub
Quelqu'un voit une solution ?
Merci de votre aide