anthoYS
XLDnaute Barbatruc
Bonjour,
le code couleur 6 colore de vert, et le 4 de bleu or ce doit être de jaune et de vert respectivement.
est-ce moi ou les codes ont changés ?
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing And IsEmpty(Target) Then
F_calendrier1dateTableur.Show
End If
Cancel = True
If Target.Column = 8 Then
Cells(Target.Row, 8) = Date
Cells(Target.Row, 6).Interior.ColorIndex = 6
End If
If Target.Column = 11 Then
Cells(Target.Row, 11) = Date
Cells(Target.Row, 10).Interior.ColorIndex = 4
End If
End Sub
le code couleur 6 colore de vert, et le 4 de bleu or ce doit être de jaune et de vert respectivement.
est-ce moi ou les codes ont changés ?
Color Palette and the 56 Excel ColorIndex Colors
Excel Color Index, coloring of fonts, cell interiors
dmcritchie.mvps.org