Bonjour,
J'utlise actuellement ce code pour remplir une cellule par un doucle clic.
Pourriez vous m'aider à compléter ce code pour avoir ce résulat :
1er double click : la cellule se rempli noir
2eme double click : la cellule se rempli rouge
3eme double click : la cellule est non rempli
merci
J'utlise actuellement ce code pour remplir une cellule par un doucle clic.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:BW40")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 3
End If
End If
Cancel = True
End Sub
Pourriez vous m'aider à compléter ce code pour avoir ce résulat :
1er double click : la cellule se rempli noir
2eme double click : la cellule se rempli rouge
3eme double click : la cellule est non rempli
merci