Macro - Comparer deux colonnes de feuilles différentes

Résolu

epaude Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
epaude Messages postés 15 Date d'inscription Statut Membre Dernière intervention - 3 août 2016 à 10:29

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

Afficher la suite

A voir également:

Comparer deux feuilles excel et afficher différence vba
Word et excel gratuit - Guide
Liste déroulante excel - Guide
Nombre de jours entre deux dates excel - Guide
Différence entre tcp et udp - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

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

epaude Messages postés 15 Date d'inscription Statut Membre Dernière intervention

Merci gbinforme, c'est impeccable :)

Discussions similaires

Afficher toutes les lignes masquées excel

Votre réponse

Discussions similaires