Discussion :

[diss10]

Bonjour a tous ,

Voila ma macro qui devrait colorier les cellules présente en colonne 8 si la date colonne " est dépassée et si la cellule colonne 8 est vide .

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne As Integer
Dim cellu As Range
Ligne = 4
 
With Sheets("Suivi")
        For Each cellu In Range("C4:C5000")
 
        If .Cells(Ligne, 3).Value < Date & .Cells(Ligne, 8).Value = "" Then
 
            .Cells(Ligne, 8).Interior.Color = RGB(250, 0, 0)
            Ligne = Ligne + 1
 
        End If
 
        Next cellu
 
End With
End Sub

Merci d'avance

[BENNASR]

Bonsoir
Je propose Worksheet_SelectionChange à la place de Worksheet_BeforeDoubleClick
dans le code il faut écrire (and) et non pas (&)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ligne As Integer
Dim cellu As Range
Dim DernLigne As Long
DernLigne = Range("C" & Rows.Count).End(xlUp).Row
Ligne = 4
With Sheets("Suivi")
        For Each cellu In Range("C4:C" & DernLigne)
        If cellu.Value <> "" And cellu.Value < Date And .Cells(cellu.Row, 8).Value = "" Then
            .Cells(cellu.Row, 8).Interior.Color = RGB(250, 0, 0)
        End If
        Next cellu
End With
End Sub

[diss10]

Merci J'ai testé ca marche

Mtn j'aimerais que les cellule redevienne normale cette condition n'est plus d'actualités .

[diss10]

Solution :

Code :

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

Else: .Cells(cellu.Row, 8).Interior.Color = RGB(255, 255, 255)

C bon j'ai trouvé