[XL-2013] Rows Count colonne

Rows Count colonne

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:

cells

pouvez vous avoir des propositions svp
cordialement
et bon noël 2013 à tous

Code:

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

Bonjour,

Tu pourrais changer ceci

Code:

.Cells(i, colonne).Offset(0, 11)

par ceci

Code:

.Range(.Cells(i, 1), .Cells(i, 13))

1 à 13

merci beaucoup !et bonne fête à vous :ccool: