anthoYS
XLDnaute Barbatruc
Bonjour,
Or je veux que ça colore également la cellule de vert comme indiqué dans le code...
Voici le code :
Si j'enlève le "Else" c'est pire. Rien ne se passe ensuite...
Merci par avance
Or je veux que ça colore également la cellule de vert comme indiqué dans le code...
Voici le code :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 15 Then
If Cells(Target.Row, 15).Interior.ColorIndex = 4 Then
Else
Cells(Target.Row, 15) = Date
End If
End If
End Sub
Si j'enlève le "Else" c'est pire. Rien ne se passe ensuite...
Merci par avance