Apparition MsgBox par double-clic sur une cellule donnée

Bonjour, ;)

J'ai suivi le sujet suivant afin de créer une macro qui ouvre une msgbox (ou un userform) lors d'un double-clic sur n'importe laquelle des cellules d'une colonne donnée.
> https://www.developpez.net/forums/d5...-clic-cellule/

J'ai mis le code dans la feuille de code VBA feuil1, toutefois rien ne se passe lorsque j'essaye de double-cliquer sur les cellules de la colonne concernée, ici la colonne M (treizième colonne).

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worsheet_SelectionChange(ByVal Target As Range, Cancel As Boolean) If Target.Column = 13 Then   MsgBox ("Hello World")   End If   End Sub

---

En vous remerciant par avance pour votre aide, :D
Je vous joins le fichier concerné.

Baptiste.
Pièce jointe 501876

Bonjour,

Normal, Worsheet_SelectionChange c'est pas Worksheet_BeforeDoubleClick.

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 13 Then MsgBox ("Hello World") End If End Sub

---

Bonjour,

Merci beaucoup tout fonctionne !

Merci.