Bonjour,
Faites un click droit sur l'onglet PV caisse puis choisissez "Visualiser le code"
Remplacez le code Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) par celui ci-dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Macro Dan - 22/05/17
'https://forum.excel-pratique.com/excel/modification-code-incrementation-t93006.html
Dim Msg As String, Style As String, Titre As String
Dim Rep As Integer
If Target.Count > 1 Then Exit Sub
ok = True
If Not Intersect(Target, Range("C24:C35")) Is Nothing Then
Cancel = True
If Target = "" Then Exit Sub
Msg = "Voulez-vous supprimer la valeur " & Target.Value & " ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Titre = "Suppression"
Rep = MsgBox(Msg, Style, Titre)
If Rep = vbYes Then
Target.ClearContents
End If
Cancel = False
End If
ok = False
End Sub
Cordialement