encore un petit complement
si je veux en plus griser ma cellule et la degriser en double cliquant dessus?
j ai essaye de mixer deux codes mais seulement la couleur disparait si je reclick dessus.
Comment dois-je faire ?
merci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 48
End If
End With
End If
If Target.Address = '$A$1' Then
Range('A1') = Range('B1')
End If
End Sub