Bonsoir,
j'ai une grille avec des cases vides. Pour les remplir, je voudrais juste bouble cliquer.J'ai fait cette macro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C4:AX25")) Is Nothing Then
Target.Value = "X"
End If
End Sub
Maintenant, je voudrais que le X s'efface quand je "redoubleclique" dessus. J'ai essayé avec un "else target.delete" , mais c'est pas bon.
Merci d'avance!!
j'ai une grille avec des cases vides. Pour les remplir, je voudrais juste bouble cliquer.J'ai fait cette macro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C4:AX25")) Is Nothing Then
Target.Value = "X"
End If
End Sub
Maintenant, je voudrais que le X s'efface quand je "redoubleclique" dessus. J'ai essayé avec un "else target.delete" , mais c'est pas bon.
Merci d'avance!!