Après double clic = noir

[anthoYS]

Bonjour,

Quelquesoit l'IneriorColor, il me le colore en noir...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
    Cells(Target.Row, 3).Interior.Color = 2
    Cells(Target.Row, 4).Interior.Color = 2
End If
End Sub

Pourquoi?



Je le veux jaune.

Merci par avance.

 

[Pierrot93]

Re : Après double clic = noir

Bonjour Anthonys

pas tout compris, mais si tu utilises "colorindex" à la place "color" ce sera en blanc....

If Target.Column = 7 Then
    Cells(Target.Row, 3).Interior.ColorIndex = 2
    Cells(Target.Row, 4).Interior.ColorIndex = 2
End If

bonne soirée
@+

 

[Pierrot93]

Re : Après double clic = noir

Re,

A noter pour le jaune, le colorindex est 6, enfin chez moi....

 

[Pierrot93]

Re : Après double clic = noir

Re,

si tu utilises la propriété "color" pour obtenir le jaune, il faut utiliser la valeur 65535...

@+

 

[anthoYS]

Re : Après double clic = noir

Merci Pierrot93;

 

[MJ13]

Re : Après double clic = noir

Bonjour Anthoys, Pierrot

Un petit fichier à tester: