Discussion :

[charangab]

Bonjour,

Ayant beaucoup de mal à saisir le fonctionnement des macros, je me tourne vers ce forum.
Mon problème est très simple, j'aimerais pouvoir comparer un feuillet 1 avec un feuillet 2, en faisant apparaître avec un code couleur sur le feuillet 2, ce qui est similaire (vert) et différent (jaune).
Chacune des cases sur un feuillet est au même endroit sur l'autre.
En vous remerciant par avance, la solution est sans doute très simple pour un connaisseur, mais pour un profane tel que moi, cela m'échappe totalement.

[Menhir]

Ayant beaucoup de mal à saisir le fonctionnement des macros...

C'est un handicap congénital ou juste une flemme aigüe ?

Mon problème est très simple, j'aimerais pouvoir comparer un feuillet 1 avec un feuillet 2, en faisant apparaître avec un code couleur sur le feuillet 2, ce qui est similaire (vert) et différent (jaune).
Chacune des cases sur un feuillet est au même endroit sur l'autre.

Inutile de faire une macro pour ça, une mise en forme conditionnelle suffit.
Tu commences par mettre toutes les cellule de feuille 2 en vert.
Ensuite, tu sélectionnes toutes les cellules de la feuille 2 > Ruban Accueil > Icone Mise en forme conditionnelle > Nouvelle règle > Utiliser une formule

En supposant que la zone de tes cellules commence en A1, tu mets dans la champ de formule : =(A1<>Feuil2!A1).

Tu cliques sur le bouton Format > Onglet Remplissage > Tu choisis le jaune souhaité.

[Marc-L]

Bonjour,

p'tit rappel …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[charangab]

Bonjour,

L'utilisation de la mise en forme conditionnelle était éminemment plus simple qu'un macro, je vous remercie.
Pour autant, j'aimerais y avoir recours pour pouvoir réaliser d'autres formes de traitement.
A ce stade, voilà où en est mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test1()
    Dim CompareRange As Variant, x As Variant, y As Variant
    Set CompareRange = Worksheets("Feuil2").Range("A1:G20")
    For Each x In Selection
        For Each y In CompareRange
            If x <> y Then x.Interior.ColorIndex = 3
        Next y
    Next x
End Sub

En l'exécutant, toutes les cellules de ma sélection sont en rouge.
J'aimerais savoir ce qui cloche, pour pouvoir par la suite remplacer la fonction Interior.ColorIndex par une autre.

[patricktoulon]

re
un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test1()
    Dim CompareRange As Variant, cel As Range
    Set CompareRange = Worksheets("Feuil2").Range("A1:A10")
    For Each cel In CompareRange    'on liste la plage de feuil2
        'on regarde si ca se trouve dans feuil1 meme plage
        If Application.CountIf(Worksheets("Feuil1").Range("A1:A10"), cel.Value) Then cel.Interior.Color = vbGreen Else cel.Interior.Color = vbYellow
    Next
End Sub