Bonjour le forum,

je n'arrive pas à transcrire ce que je veux faire :
j'ai un tableau avec des dates colonnes F et des numéros de dossier colonne G
si j'ai plusieurs dates pour un meme dossier, G est fusionné

je veux comparer les dates en F par rapport à la date du jour. Si la date est dépassé, je mets une couleur, jusque là tout va bien.
Si G est fusionné (par exemple G10 et G11 fusionnés), j'ai donc une date en F10 et une en F11.
=>Si F10 est dépassé, je mets une couleur, si F11 n'est pas dépassé je laisse tel quel.
=> Si F10 est dépassé, je mets une couleur, si F11 est dépassé, je mets une couleur différente de F10
=> si aucune date n'est dépassé je ne touche à rien

Voilà le début de mon code :
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
33
34
35
Sub Couleurs()
 
Dim plage As Range, cell As Range
Dim DerLigne As Long
Dim LigDate As Date
 
DerLigne = Range("A65536").End(xlUp).Row
Set plage = Range("F10:F" & DerLigne)
 
Range("f10").Select
For Each cell In plage
    LigDate = ActiveCell
    If cell.Offset(0, 2).MergeCells Then
        If Date > LigDate Then
        cell.Interior.Color = RGB(125, 147, 99)
        cell.Offset(0, -1).Interior.Color = RGB(125, 147, 99)
        cell.Offset(0, -2).Interior.Color = RGB(125, 147, 99)
        cell.Font.Color = RGB(255, 255, 255)
        cell.Offset(0, -1).Font.Color = RGB(255, 255, 255)
        cell.Offset(0, -2).Font.Color = RGB(255, 255, 255)
        End If
        Else:
    LigDate = ActiveCell
        If Date > LigDate Then
            cell.Interior.Color = RGB(127, 127, 127)
            cell.Offset(0, -1).Interior.Color = RGB(127, 127, 127)
            cell.Offset(0, -2).Interior.Color = RGB(127, 127, 127)
            cell.Font.Color = RGB(255, 255, 255)
            cell.Offset(0, -1).Font.Color = RGB(255, 255, 255)
            cell.Offset(0, -2).Font.Color = RGB(255, 255, 255)
        End If
     End If
     ActiveCell.Offset(1, 0).Select
Next cell
End Sub
le problème est que là, je n'arrive pas, si F10 et F11 sont dépassées, à mettre des couleurs différentes à F10 et F11...
d'autant que pour un autre dossier, G12 et G13 peuvent aussi être fusionnés, et là je me perds...

J'ai besoin d'un peu d'aide svp