Quitter le mode edition d'une cellule apres un BeforeDoubleClick

nougitch

XLDnaute Occasionnel
Bonjour a tous,

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

Code:
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

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

Bonjour,

place un :

Code:
Cancel = True
en fin de procédure.

bonne journée
@+
 

nougitch

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

C'est parfait. Merci beaucoup Pierrot !
 

Discussions similaires


Haut Bas