Discussion :

[balata9]

Bonjour à tous,

Je souhaiterais à l'aide d'une macro colorer les cellules d'une plage en rouge si le texte qu'elles contiennent est le même que le texte contenu dans une des cellules d'une autre plage.

Par exemple, je veux que les cellules de la plage A50:A5000 soient colorée en rouge si elles contiennent le même texte que l'une des cellules contenues dans la plage A1:A45.

Je l'ai déjà fait par mise en forme conditionnelle, cependant c'est beaucoup trop long car j'ai une base de donnée importante. Par macro cela devrait être plus rapide non?

Merci beaucoup pour vos réponse

Balata 9

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Plage As Range, Base As Range, c As Range, v As Range
 
Application.ScreenUpdating = False
With Sheets("Feuil1")                   'Adapte nom de feuille et palges
    Set Base = .Range("A1:A45")
    Set Plage = .Range("A50:A50000")
    For Each c In Plage
        Set v = Base.Find(c.Value, lookat:=xlWhole)
        If Not v Is Nothing Then
            c.Interior.ColorIndex = 3
            Set v = Nothing
        Else
            c.Interior.ColorIndex = xlNone
        End If
    Next c
End With
Set Plage = Nothing
Set Base = Nothing