Discussion :

[patrickbateman]

Salut à tous,

J'ai du mal à effectuer un dernier contrôle sur un tableau qui a été traité par plusieurs macros.

Parfois certaines cellules en doublons ne se colorisent pas correctement, je cherche à les reformater dans la même couleur via ce contrôle.

Je joins le fichier excel ou j'explique cela en détail. Je mets aussi une capture d'écran ici si ça peut aider. J'espère que c'est faisable, le but serait d'ajouter cette fonction aux autres que j'ai compilé en une seule macro lancée via un raccourci clavier. Merci d'avance pour vos lumières.

[Invité]

Bonjour,

A tester :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Option Explicit
 
Sub ModifierCouleur()
 
Dim AireDate As Range, Cellule As Range
Dim DerniereLigne As Long
Dim MonDico As Object
 
    With Sheets("Feuil1")
        DerniereLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
        Set AireDate = .Range(.Cells(2, 2), .Cells(DerniereLigne, 2))
        AireDate.Offset(0, 1).Interior.ColorIndex = xlNone
    End With
 
    For Each Cellule In AireDate
        If Cellule.Offset(0, -1) <> "" Then
           Set MonDico = CreateObject("Scripting.Dictionary")
        End If
        If Cellule <> "" Then
           If Not MonDico.Exists(Cellule.Value) Then
                  MonDico.Add Cellule.Value, Cellule.Value
                  Cellule.Offset(0, 1).Interior.Color = RGB(255, 255, 0)
           Else
                  Cellule.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
           End If
        End If
    Next Cellule
 
    Set MonDico = Nothing
 
End Sub