Dans mon classeur ce ne sont pas les bonnes couleurs ?

anthoYS à dit:

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.color=vbYellow '  jaune
End If
If Target.Column = 11 Then
Cells(Target.Row, 11) = Date
Cells(Target.Row, 10).Interior.color=vbGreen ' Vert
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 ?

Cliquez pour agrandir...