Discussion :

[Invité]

Bonjour à tous

besoin d'aide en VBA

J'ai une feuille "Feuille1", où la date d’aujourd’hui est notée en C1.

Une série de date sont affichées en B6, C6, D6.
je souhaiterais, que les cellules B6:Q6, change de couleur quand la date notée en D6 est plus petite que celle affichée en C1, et que soit noté en Q6, la mention "OK".
Si D6 est plus grand que C1, alors rien n'est changé.
Je souhaiterais, faire cela de la ligne B6 à B15

Effectivement, je pourrais faire avec la mise en forme conditionnelle, mais je préférerais en VBA.

merci encore

je joint à ma demande un exemple. Il y a déjà une ébauche en VBA, mais je n’arrive pas à le généraliser pour toutes les lignes.

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
Private Sub Worksheet_Activate()
 
    Worksheet_Change Range("C1")
 
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim dt1 As Date
    Dim dt2 As Date
 
 
    If Target.Count > 1 Then
        Exit Sub
    End If
 
    If Target.Address = "$C$1" Or Target.Address = "$D$6" Then
        If DateDiff("d", Range("C1").Value, Range("D6").Value) < 0 Then
            Range("B6:Q6").Interior.Color = RGB(230, 215, 200)
            Range("Q6").Value = "OK"
        Else
            Range("B6:Q6").Interior.Color = RGB(255, 255, 255)
            Range("Q6").Value = ""
        End If
    End If
 
End Sub

Merci encore

Titi32600