Bonsoir le forum, j'ai créé une fonction MsgBox mais elle ne fonctionne pas. Avec clique droit je supprime une ligne et j'affiche un message "Voulez-vous supprimer la ligne ? Si je répond " oui ou Non " ça supprime. Il doit me manquer un bout de code. Voici que j'ai écrit.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Relevé_Hebdo").Unprotect
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Dim Rep As Integer
Rep = MsgBox("Voulez vous supprimer cette ligne ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation")
Application.CutCopyMode = False
Merci de votre aide.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Relevé_Hebdo").Unprotect
If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Dim Rep As Integer
Rep = MsgBox("Voulez vous supprimer cette ligne ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation")
Application.CutCopyMode = False
Merci de votre aide.