Discussion :

[dodo28]

bonjour,
voici une macro qui colorie les cellules selon une condition; je voudrais si possible, en plus quel force en noir et gras les caracteres quel contient.
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
17
18
Sub MfcDateDeDemande()
 
Dim y As Variant
 
n = 18
For Each sh In Sheets
 With sh
 While .Cells(n, 30) <> ""
    If CDate(.Cells(n, 30).Value) > CDate("13/3/2009") Then
    .Cells(n, 30).Interior.ColorIndex = 3
 
    End If
 n = n + 1
 Wend
 n = 18
 End With
 Next
End Sub

merci

[casefayere]

Bonsoir toutes et tous

essaies ce 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
Sub MfcDateDeDemande()
 
Dim y As Variant
 
n = 18
For Each sh In Sheets
 With sh
 While .Cells(n, 30) <> ""
    If CDate(.Cells(n, 30).Value) > CDate("13/3/2009") Then
    .Cells(n, 30).Interior.ColorIndex = 3
     .Cells(n, 30).Font.Bold = True
    .Cells(n, 30). font.ColorIndex = xlAutomatic
 
    End If
 n = n + 1
 Wend
 n = 18
 End With
 Next
End Submerci

[dodo28]

merci beaucoup ca marche