Afficher un UserForm par un clic sur cellule

Bonjour à tous,

J'ai déjà fait cela, mais je ne retrouve plus le code.

J'aimerai que lorsque je clique sur la cellule A5 d'une feuille de calcul, l'userform UFMenu1 s'affiche et que lorsque je clique sur la cellule B5 il ne soit plus affiché.

Pouvez-vous m'aider s'il vous plait ?

Merci par avance

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A5")) Is Nothing Then UFMenu1.Show False End If If Not Intersect(Target, Range("B5")) Is Nothing Then Unload UFMenu1 End If End Sub

---

ctac

ou

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$5" Then UserForm1.Show 0 ElseIf Target.Address = "$B$5" Then Unload UserForm1 End If End Sub

---

Bonjour à tous,

Merci beaucoup ça fonctionne bien.
Bonne journée et à plus tard
Amicalement