Quitter le mode edition d'une cellule apres un BeforeDoubleClick

[nougitch]

Bonjour a tous,

J'ai un fameux code qui permet de mettre/retirer une croix dans une cellule suite a un double-clic.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Target, Range("C46:C107")) Is Nothing Then: Exit Sub

    If ActiveCell = "" Then
        ActiveCell = "X"
        ActiveCell.Font.Bold = True
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Else
        ActiveCell = ""
    End If
    
End Sub

Le souci, c'est que j'aimerais qu'apres avoir double-clique, la cellule ne soit pas en mode edition.

Je vous remercie par avance pour votre aide.
Cordialement,

 

[Pierrot93]

Re : Quitter le mode edition d'une cellule apres un BeforeDoubleClick

Bonjour,

place un :

Cancel = True

en fin de procédure.

bonne journée
@+

 

[nougitch]

Re : Quitter le mode edition d'une cellule apres un BeforeDoubleClick

C'est parfait. Merci beaucoup Pierrot !