XL 2016 Correction code BVA, efface le contenu d'une cellule

Scorpio

XLDnaute Impliqué
Bonjour à tous,
Ce code dont je ne suis pas l'auteur, surligne en rouge par double clic la ligne "A".
Et, j'aimerais en même temps, effacer le contenu de la cellule 10 sur la même ligne.
J'essaye cette correction: Cells(Target.Row, 10) = False 'supprime la date en colonne 10
Mais c'est pas ça.
Pourrier-vous s'il vous plaît me donner un petit coup de pouce, je vous en remercie
A ++++

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Cancel = True
Target.Font.ColorIndex = IIf(Target.Font.ColorIndex = 3, 0, 3) '3=rouge, 0=Noir
Cells(Target.Row, 6) = Date 'Date en colonne F
Cells(Target.Row, 10) = False 'supprime la date en colonne 10
End If
End Sub
 

Discussions similaires