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
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