Macro - Comparer deux colonnes de feuilles différentes Résolu/Fermé

Question

Bonjour, J'essaye de comparer deux colonnes de feuilles différentes et dès que le code trouve une similarité je mets un tag sur une autre colonne. Je suis débutante en vba donc j'ai du mal. Voici mon code que j'essaye de corriger.


Sub Purger()
Dim Cel, Celbis, x  As Range
Dim Nb As Integer

' Sélectionne l'ensemble des données (utile pour qu'Excel ne "réfléchisse" pas sur les 65000 lignes)
Sheets(1).Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select



For Each Cel In Sheets("export-TT").Range("A2:A" & Selection.Rows.Count)

    For Each Celbis In Sheets("Feuil1").Range("A2:A" & Selection.Rows.Count)
Set x = Sheets("export-TT).Cel.Find(What:=Sheets("Feuil1").Celbis, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If x Is Nothing Then
Nb = 7 'simplement pour remplir la conditions ce que je souhaite vraiment c'est le Else
Else
    Sheets("export-TT").Range("J" & Cel.Rows) = "Match"
End If
    Next Celbis
    
Next Cel

End Sub


Merci de votre aide

gbinforme · Answer

Bonjour, 
 
Ta macro modifiée qui devrait te donner ton résultat :
Sub Purger()
Dim Cel As Range, x As Range
' Sélectionne l'ensemble des données (utile pour qu'Excel ne "réfléchisse" pas sur les 65000 lignes)
With Sheets("export-TT")
    For Each Cel In .UsedRange.Columns("A").Cells
        Set x = Sheets("Feuil1").Cells.Find(What:=Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
        If Not x Is Nothing Then
            .Range("J" & Cel.Row) = "Match"
        End If
    Next Cel
End With
End Sub

Macro - Comparer deux colonnes de feuilles différentes

1 réponse

Discussions similaires