comparaison de listing excel

[sioum]

Bonjour,

J'ai trouvé sur un forum un fichier excel qui permet de comparer une feuille1 avec une feuille2 et de créer sur une feuille3 les lignes supplémentaires

mais je voudrais faire la meme chose mais également dans le sens inverse

soit faire une feuille 4 qui compare la feuille 2 avec la feuille 3

ou faire une feuille regroupant la feuille 3 et 4 en une seule

j'espere avoir été clair

Merci de m'aider

 

[sioum]

Re : comparaison de listing excel

est-ce que ca vous parait trop compliqué ?

je dois tenter différemment ?

 

[JNP]

Re : comparaison de listing excel

Bonjour Sioum ,
Une possibilité en inversant la macro :

Sub supprimer()
Dim Sht2 As Worksheet, Sh1 As Worksheet
Dim derlign1 As Long, derlign2 As Long, i As Long
Dim c As Range
    Application.ScreenUpdating = False
    Set Sht2 = Sheets(2)
    Sht2.Copy after:=Sht2
    derlign1 = Sheets(1).[f65536].End(xlUp).Row
    derlign2 = Sht2.[f65536].End(xlUp).Row
    i = 2
    Do While Cells(i, 6) <> ""
        Set c = Sheets(1).Range("f2:f" & derlign1).Find(Cells(i, 6), LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            Rows(i).EntireRow.Delete
        Else
            i = i + 1
        End If
    Loop
    Set Sht1 = Sheets(1)
    Sht1.Copy after:=Sheets(Sheets.Count)
    derlign1 = Sheets(2).[f65536].End(xlUp).Row
    derlign2 = Sht1.[f65536].End(xlUp).Row
    i = 2
    Do While Cells(i, 6) <> ""
        Set c = Sheets(2).Range("f2:f" & derlign1).Find(Cells(i, 6), LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            Rows(i).EntireRow.Delete
        Else
            i = i + 1
        End If
    Loop
End Sub

te créera 2 feuilles : feuil1/feuil2 et feuil2/feuil1 .
Bon WE

 

[sioum]

Re : comparaison de listing excel

merci beaucoup

c'est parfait j'ai passé des heures à retourner ca dans tout les sens
faut vraiment que je prenne des cours de vba car seule c'est pas simple
a comprendre

bon we merci encore

 

[sioum]

Re : comparaison de listing excel

je teste de plusieur facon le programme

et je me demandais si je comprends bien il compare la colonne f

et si je voulais comparer également une autre colonne en meme temps

vous pourriez me dire comment faire

merci

 

[JNP]

Re : comparaison de listing excel

Re ,

et si je voulais comparer également une autre colonne en meme temps
vous pourriez me dire comment faire

Tout dépend, tu souhaites, par exemple, F ET G différents, ou F OU G différents ?
C'est pas du tout la même chose ...
A +

 

[sioum]

Re : comparaison de listing excel

en gros je voudrai comparé toute la ligne

donc genre feuille1 f1 et feuille 1 g1 = feuille2 f1 et feuille 2 g1

car il peut y avoir des changements entre la feuille et la feuille 2 dans n'importe quel cellule et donc je voudrai ke ca ressorte

est-ce possible docteur

merci de beaucoup pour ton aide

 

[JNP]

Re : comparaison de listing excel

Re ,
Le principe de la macro, c'est

        If Not c Is Nothing Then
            Rows(i).EntireRow.Delete
        Else
            i = i + 1
        End If

en bon français, s'il a trouvé la même valeur, il efface la ligne entière, sinon, i vaut 1 de plus pour scanner la ligne suivante .
Donc il va falloir rajouter un test pour comparer toute la ligne

        If Not c Is Nothing Then
            If Sheets(1).Cells(c.Row, 1) = Cells(i, 1) And Sheets(1).Cells(c.Row, 2) = Cells(i, 2) Then
                Rows(i).EntireRow.Delete
            Else
                i = i + 1
            End If
        End If

là, j'ai comparé sur la colonne 1 (A) et 2 (B), mais il te faudra autant de And que de colonnes que tu souhaites vérifier ...
Pour la deuxième, il faudra modifier tous les Sheets(1) en Sheets(2).
Bon courage

 

[sioum]

Re : comparaison de listing excel

merci beaucoup je fais tenté tout ca

je pense que ca va me prendre pas mal de temps

je reviendrais sur le sujet quand j'aurais pu tester

merci encore