Voici mon code, qui permet dans la feuille en question, par double clic de colorer en vert une case parmi celles précisé dans la plage du code.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, [E3:H10]) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
End Sub
Je souhaite rajouter cette condition, savoir que si je fais un double clic sur une ligne en D, par exemple en D1, il affiche la date du jour (DATE).
Code:
If Target.Column = 4 Then
Cells(Target.Row, 4) = Date
Or en essayant d'agrégé cette parti du code je me suis heurté à un message d'erreur. "Bloc sans End if"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, [E3:H10]) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
If Target.Column = 4 Then
Cells(Target.Row, 4) = Date
End If
End Sub
Merci quand même à ceux qui auront tentés de m'aider.