bonjour Sur le principe du code ci dessous je souhaiterai que cela me colorie de la colonne 1 à la colonne 13 et non pas un point
Code : Sélectionner tout - Visualiser dans une fenêtre à part
cells
pouvez vous avoir des propositions svp
cordialement
et bon noël 2013 à tous

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
 Dim i As Long
    Dim colonne As Integer
    Dim dernlig As Long
    With Sheets(Name)
        colonne = 1
        dernlig = .Cells(Rows.Count, colonne).End(xlUp).Row
 
        For i = 1 To dernlig
            If InStr(1, .Cells(i, colonne), "Vendredi") > 0 Or InStr(1, .Cells(i, colonne), "Vendredi") Then
                .Cells(i, colonne).Offset(0, 11).Interior.Color = RGB(0, 0, 0)
                 .Cells(i, colonne).Offset(0, 11).Font.ColorIndex = 2
 
            End If
        Next i
 
 
    End With