Discussion :

[Estaque3394]

Bonjour

Je voudrais comparer deux colonnes se trouvant dans deux onglets différents.
Les informations dans cette colonne sont en format txt.
Je souhaiterais donc regrouper les informations des deux onglets à partir du moment où deux cellules sont identiques et copier ainsi les informations des deux lignes correspondantes dans un troisième onglet.
Les colonnes à comparer sont en A.

J'espère avoir été suffisament clair et je vous remercie de votre aide.

Estaque3394

[Vadorblanc]

Bonjour
J'ai adapté ce code pour comparer 2 onglets différents et qui affiche les différences en couleurs, il est génial et il est du forum, essaie de l'adapter pour toi.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Module2Compare()
Dim Kol As New Collection
Dim LastLig1 As Long, LastLig2 As Long, i As Long
Dim k As Byte
Dim c As Range, v As Range, w As Range
Dim Data1 As String, Data2 As String
 
Application.ScreenUpdating = False
With Sheets("Référentiel BAL")
    .AutoFilterMode = False
    LastLig2 = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastLig2
        On Error Resume Next
        Kol.Add .Range("A" & i).Value, .Range("A" & i).Value
        On Error GoTo 0
    Next i
    For i = 1 To Kol.Count
        With Sheets("Envois")
            .AutoFilterMode = False
            LastLig1 = .Cells(Rows.Count, 1).End(xlUp).Row
        End With
        .Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
        Set c = Sheets("Envois").Range("A1:A" & LastLig1).Find(Kol(i), lookat:=xlWhole)
        If Not c Is Nothing Then
            Sheets("Envois").Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
            For Each v In .Range("A2:A" & LastLig2).SpecialCells(xlCellTypeVisible)
                Data1 = vbNullString
                For k = 1 To 12
                    Data1 = Data1 & "_" & .Cells(v.Row, k)
                Next k
                For Each w In Sheets("Envois").Range("A2:A" & LastLig1).SpecialCells(xlCellTypeVisible)
                    Data2 = vbNullString
                    For k = 1 To 12
                        Data2 = Data2 & "_" & Sheets("Envois").Cells(w.Row, k)
                    Next k
                    If Data1 = Data2 Then
                        .Range("A" & v.Row & ":C" & v.Row).Interior.ColorIndex = 4 'vert
                        Exit For
                    Else
                        .Range("A" & v.Row & ":C" & v.Row).Interior.ColorIndex = 8 'Cyan bleu
                    End If
                Next w
            Next v
            Set c = Nothing
        Else
            .Range("A2:C" & LastLig2).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 22 'rose
            .Range("A2:C" & LastLig2).SpecialCells(xlCellTypeVisible).Copy Sheets("Envois").Range("A" & LastLig1 + 1)
        End If
    Next i
    .AutoFilterMode = False
End With
Sheets("Envois").AutoFilterMode = False
End Sub

[PPz78]

Bonjour,
Je n'ai pas tout compris:

Je voudrais comparer deux colonnes se trouvant dans deux onglets différents.
Les informations dans cette colonne sont en format txt.
Je souhaiterais donc regrouper les informations des deux onglets à partir du moment où deux cellules sont identiques et copier ainsi les informations des deux lignes correspondantes dans un troisième onglet.
Les colonnes à comparer sont en A.

Si dans l'onglet 1 tu as :
A
Z
E
R
T
U
I
O
P

et dans l'onglet 2 :
Q
S
E
R
T
J
I
O
P

Que souhaites tu dans le 3 onglet ?

PPz

[Vadorblanc]

Bonjour, code de Gorfael super
Lignes roses = cellule colonne A introuvables à Onglet1 et Onglet2 + lignes manquantes ajoutées à Onglet1
Lignes vertes = lignes complètes identiques
Lignes bleues = cellule colonne A identhique à Onglet1 et Onglet2

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Module2Compare()
Dim Kol As New Collection
Dim LastLig1 As Long, LastLig2 As Long, i As Long
Dim k As Byte
Dim c As Range, v As Range, w As Range
Dim Data1 As String, Data2 As String
 
Application.ScreenUpdating = False
With Sheets(2)
    .AutoFilterMode = False
    LastLig2 = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastLig2
        On Error Resume Next
        Kol.Add .Range("A" & i).Value, .Range("A" & i).Value
        On Error GoTo 0
    Next i
    For i = 1 To Kol.Count
        With Sheets(1)
            .AutoFilterMode = False
            LastLig1 = .Cells(Rows.Count, 1).End(xlUp).Row
        End With
        .Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
        Set c = Sheets(1).Range("A1:A" & LastLig1).Find(Kol(i), lookat:=xlWhole)
        If Not c Is Nothing Then
            Sheets(1).Range("A1").AutoFilter field:=1, Criteria1:=Kol(i)
            For Each v In .Range("A2:A" & LastLig2).SpecialCells(xlCellTypeVisible)
                Data1 = vbNullString
                For k = 1 To 12
                    Data1 = Data1 & "_" & .Cells(v.Row, k)
                Next k
                For Each w In Sheets(1).Range("A2:A" & LastLig1).SpecialCells(xlCellTypeVisible)
                    Data2 = vbNullString
                    For k = 1 To 12
                        Data2 = Data2 & "_" & Sheets(1).Cells(w.Row, k)
                    Next k
                    If Data1 = Data2 Then
                        .Range("A" & v.Row & ":C" & v.Row).Interior.ColorIndex = 4 'vert
                        Exit For
                    Else
                        .Range("A" & v.Row & ":C" & v.Row).Interior.ColorIndex = 8 'Cyan bleu
                    End If
                Next w
            Next v
            Set c = Nothing
        Else
            .Range("A2:C" & LastLig2).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 22 'rose
            .Range("A2:C" & LastLig2).SpecialCells(xlCellTypeVisible).Copy Sheets(1).Range("A" & LastLig1 + 1)
        End If
    Next i
    .AutoFilterMode = False
End With
Sheets("Envois").AutoFilterMode = False
End Sub

[androginius]

Bonjour!

Si tu ne veux pas utiliser de code VBA,tu peux toujours utiliser la fonction excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=EXACT()

Par exemple, tu fais une copie complète de l'onglet qui contient le plus de lignes (si tes 2 onglets n'ont pas le même nombre de lignes) dans un onglet3.
Dans onglet3, dans une colonne tout à droite de tes données tu écris

=EXACT(onglet1!A:A;onglet2!A:A)

Tu obtiendras "vrai" si les données des colonnes A sont identiques "Faux" si elles ne le sont pas.
Tu peux ensuite utiliser les filtres sur cette colonne pour ne montrer que les lignes qui contiennent "vrai".

Bien sur, si tu as besoin de répéter ceci souvent, alors utilise VBA (je n'ai pas vérifié, mais teste ce que Vadorblanc t'a gentillement proposé).
Cordialement

[Joel_]

Bonjour,
Je n'ai pas tout compris:

Si dans l'onglet 1 tu as :
A
Z
E
R
T
U
I
O
P

et dans l'onglet 2 :
Q
S
E
R
T
J
I
O
P

Que souhaites tu dans le 3 onglet ?

PPz

Bonjour PPz
J'ai ce soucis de scrutage de données de valeurs entre deux onglets actuellement,

Moi je souhaiterais qu'apparaisse les valeurs non communes aux deux onglets dans le 3e onglet (soit Q, S et J).

Merci PPz pour ta réponse.