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

Signaler
Messages postés
15
Date d'inscription
vendredi 15 juillet 2016
Statut
Membre
Dernière intervention
4 octobre 2016
-
Messages postés
15
Date d'inscription
vendredi 15 juillet 2016
Statut
Membre
Dernière intervention
4 octobre 2016
-
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.

<code>
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
<code>

Merci de votre aide

1 réponse

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 359
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
15
Date d'inscription
vendredi 15 juillet 2016
Statut
Membre
Dernière intervention
4 octobre 2016

Merci gbinforme, c'est impeccable :)