With Target
If .Column < 5 Then
Cancel = True
If .Comment Is Nothing Then .AddComment
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Text Text:=dt
End If
End With
If Target.Column = 1 Then
....
End If
If Target.Column = 2 Then
....
End If
If Target.Column = 5 Then
....
End If
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lig As Long, Col As Long
Col = Target.Column
Lig = Target.Row
If Col >= 3 And Col <= 5 Then ' on traite les colonnes 3,4 et 5
If Target.Interior.ColorIndex = xlNone Then 'si pas de couleur
Target.Interior.Color = Cells(1, Col).Interior.Color 'on met la couleur de la ligne 1
Cells(Lig, 6) = Date 'on affiche date en col F
Else
Target.Interior.ColorIndex = xlNone 'on supprime la couleur
Cells(Lig, 6) = "" ' on supprime la date de la co F (à conserver ou pas)
End If
End If
End Sub
de nouvelles précisions à chaque post ?Or, je veux que si on clique par exemple en C20 puis en D20, ça enlève la coloration rouge de C20.
Range("C" & Lig & ":E" & Lig).Interior.ColorIndex = xlNone
If Target.Interior.ColorIndex = xlNone Then