macro comparer 2 feuilles

[loloiss]

bonjour,

je cherche a comparer 2 feuilles et et afficher dans une autre couleur sur une de ces 2 feuilles les cellules qui sont différentes.

j'ai compris que ça ne peut pas etre fait simplement avec les MEFC, j'ai donc fait une macro, methode boeuf:

problème, elle est lente ! comment l'accelerer ? ou autre methode pour faire cette comparaison ?

Merci !

Sub Macro1()
Dim i, j As Integer
i = 1

While i < 60
    j = 1
    While j < 60
        If Worksheets("en exploitation").Cells(i, j).Value <> Worksheets("en préparation").Cells(i, j).Value Then
            Worksheets("en préparation").Activate
            Worksheets("en préparation").Cells(i, j).Select
            With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .Color = 255
        End With
        Else
            Worksheets("en préparation").Activate
            Worksheets("en préparation").Cells(i, j).Select
            With Selection.Interior
                .Pattern = xlNone
        End With
        End If
        j = j + 1
    Wend
i = i + 1
Wend

 

[david84]

Re : macro comparer 2 feuilles

Bonjour,
regarde sur le site de JB ici.
Il y a plein d'exemples traitant de ta demande.
A+

 

[loloiss]

Re : macro comparer 2 feuilles

Merci,

mais mis a part "Coloriage des communs à 2 BD avec numéros de ligne" que je n'arrive pas adapter,je n'en vois pas d'autre !

 

[JNP]

Re : macro comparer 2 feuilles

Bonjour le fil 🙂,

j'ai compris que ça ne peut pas etre fait simplement avec les MEFC,

Pour quelle raison 🙄 ?
Voir la PJ 😛...
Bonne suite 😎

 

[BOISGONTIER]

Re : macro comparer 2 feuilles

Bonjour,

Compare 2 champs sur 2 feuilles

JB

 

[loloiss]

Re : macro comparer 2 feuilles

Bonjour le fil 🙂,Pour quelle raison 🙄 ?
Voir la PJ 😛...
Bonne suite 😎

Comment definis-tu "mazone" ?

Bonjour,

Compare 2 champs sur 2 feuilles

JB

super, sauf qu'il faut donner des nom de champs a chaque cellule qu'on veut comparer. du coup si on veut comparer 2 feuilles, il faut donner des nom de champs a toutes les cellules...

 

[loloiss]

Re : macro comparer 2 feuilles

ok: je viens de voir comment definir mazone:

- sélectionner la zone sur laquelle on veut faire la comparaison dans la 1ere zone
- lui donner un nom
- faire reference a ce nom dans la regle conditionnelle: =INDEX(MaZone;LIGNE(A1);COLONNE(A1))<>A1

Merci !

 

[JNP]

Re : macro comparer 2 feuilles

Re 🙂,

Comment definis-tu "mazone" ?

Sur feuil1, tu sélectionne le carré des cellules que tu veux comparere, et dans la barre de formule, la où c'est marqué A1, tu tape MaZone 🙄...
Sinon, via le gestionnaire de nom, tu peux faire une plage dynamique

=DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A);NBVAL(Feuil1!$1:$1))

Bonne suite 😎

 

[BOISGONTIER]

Re : macro comparer 2 feuilles

Bonjour,

>super, sauf qu'il faut donner des nom de champs a chaque cellule qu'on veut comparer. du coup si on veut comparer 2 feuilles, il faut donner des nom de champs a toutes les cellules...

On ne donne le nom qu'à une seule cellule (en relatif) (B3 sur l'exemple)

JB