Dans mon classeur ce ne sont pas les bonnes couleurs ?

[anthoYS]

Bonjour,

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

 

[mapomme]

Bonjour @anthoYS,

Vraiment à tout hasard, essayer

ActiveWorkbook.ResetColors

puis tester à nouveau votre macro évènementielle

 

[Modeste geedee]

Bonsour®

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 ?

les ColorIndex sont liés à la palette du classeur
cela signifie que la palette à été modifiée...
pour la remettre aux valeurs par defaut :
ThisWorkbook.ResetColors