Rajouter une autre condition

[yves03]

Bonjour à tous,
J'utilise le code suivant pour colorier une ligne en fonction d'une date qui est dans la colonne G.

Dim c as range
Mydate = date
For each c In range("G10:G91")
If Mydate > c Then
Range("A" & c.row & ":R" & c.row).Interior.Colorindex = 4
End if
Next

Je voudrais rajouter une condition, mais je ne sais pas comment m'y prendre.
Si dans la plage de cellule ("A10:G91") une cellule est vide et que dans la plage de cellules ("G10:G91") Mydate > c alors je colorie la ligne.

Merci d'avance de votre aide.

 

[skoobi]

Re : Rajouter une autre condition

Bonjour,

Je suis pas sûr d'avoir compris mais je pense que c'est ceci:

If Mydate > c And range("A" & c.Row).Value = "" Then

Si pas ça, explique plus clairement.

 

[Pierrot93]

Re : Rajouter une autre condition

Bonjour Yves

modifies peut être ainsi :

Option Explicit
Sub test()
Dim Mydate As Date, c As Range
Mydate = Date
For Each c In Range("G10:G91")
    If Mydate > c.Value And IsEmpty(Range("A" & c.Row)) Then
        Range("A" & c.Row & ":R" & c.Row).Interior.ColorIndex = 4
    End If
Next
End Sub

bon après midi
@+

Edition : bonjour Skoobi

 

[yves03]

Re : Rajouter une autre condition

Merci beaucoup Skoobi et Pierrot93, les 2 solutions fonctionnent.
🙂