Discussion :

[Jiprès]

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

[Menhir]

Que représente la variable "Number" ?

Si les variables D, G, H et autres sont supposées représenter des références de cellules, tu devrais lire ça (au moins) :
https://docs.microsoft.com/fr-fr/off....range(object)

[Jiprès]

Merci de votre réponse.

Effectivement, j'ai remplacé number par j, ça devrait être un peu mieux ^^
J'ai modifié mes références de cellules en me basant sur le lien que vous avez indiqué :

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
Sub fusion()
Dim j As Integer
Dim i As Integer
j = 0
i = 7
 While Cells(D, i) <> ""
    If Cells(D, i) <> Cells(D, i + 1) Then
        If j = 0 Then i = i + 1
            Select Case j
                Case 0
                i = i + 1
                Case 1
                Cells(H, (i - j)) = Cells(H, (i - 1))
                Cells(G, (i - j)) = Cells(G, (i - 1))
                j = 0
                Case 2
                Cells(H, (i - j)) = Cells(H, i)
                Cells(G, (i - j)) = Cells(G, (i - 1))
                j = 0
            End Select
        End If
    Else
        j = j + 1
        i = i + 1
    End If
 Wend
End Sub

La macro avance jusqu'au Else, et m'indique une erreur "Else sans If", alors que je pensais fermer le deuxième If juste avant, et j'étais censé avoir encore le premier If à fermer.

[Menhir]

Si tu veux créer une structure If, tu ne peux pas écrire If j = 0 Then i = i + 1.
Une telle écriture n'est possible que si le Then n'engendre qu'une action. Et dans ce cas, le Else aussi doit être sur la même ligne et il ne doit pas y avoir de End If, la fin de ligne le remplaçant.

En résumé, place ton i = i + 1 sur une autre ligne.