Discussion :

[pilounet54]

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

[parmi]

Bonjour,

Tu pourrais changer ceci

Code :

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

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

par ceci

Code :

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

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

[pilounet54]

merci beaucoup !et bonne fête à vous