Discussion :

[dodo28]

Bonjour,
j'ai créer une macro qui permet de colorier en rouge les cellules dont la date est supérieure au 13/03/2009 mais voila elle colorie aussi des dates inférieures ou est l'erreur? merci

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
Sub MfcDateDeDemande()
 
X = Sheets.Count
n = 18
For i = 1 To X
 While Cells(n, 30) <> ""
    If Cells(n, 30) > "13 / 3 / 2009" Then
    Cells(n, 30).Interior.ColorIndex = 3
    End If
 n = n + 1
 Wend
 n = 18
 Next i
 
 
End Sub

[AllyKo]

Salut,

je pense que si tu modifie ta condition comme ceci :

Code :

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

CDate(Cells(n, 30).value) > CDate("13/3/2009")

ça devrait passer

[dodo28]

merci beaucoup ca marche
bonne journée