Afficher / masquer un formulaire ou controle active X

Bonjour à tous et merci de m'accueillir sur ce forum.

Je vous expose ma question.

J'ai une liste de prénoms et je dois en choisir un quand je clique sur une cellule (à la manière d'un menu déroulant).

Je ne peux pas utiliser de menu déroulant classique car je travaille avec un petit pc/tablette et avec les doigts c'est très peu pratique.

J'ai donc crée une zone de liste qui renvoie à ma liste de prénoms.

J'ai réussi à faire que la zone soit masquée à l'ouverture du fichier et qu'elle n'apparaisse qu'au double clic dans la cellule.

Le souci est que la sélection de se fait pas dans la cellule "cible" et que j'aimerai pouvoirr fermer la fenêtre du formulaire une fois mon choix fait.

Voici le code que j'ai inséré et à partir duquel je bloque

listbox1 est mon formulaire/contrôle active X

c2 est la cellule cible qui déclenche affichage du formulaire et dans laquelle le choix du prénom dans la liste doit se faire.

Merci à tous

Private Sub ListBox1_Click()

ListBox1.Visible = False

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("c2")) Is Nothing Then

ListBox1.Visible = True

End If

End Sub

Bonjour est bienvenu sur le forum

As-tu tester ceci ci-dessous si, j'ai bien compris ta question :

Unload NomDeTaForm

unload pour décharger ton userform

NomDeTaForm = le nom que tu lui a donné à cette userform

crdlt,

André

Je viens d'essayer mais cela ne fonctionne pas. Voici le code:

Private Sub ListBox1_Click()

ListBox1.Visible = False

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("c2")) Is Nothing Then

ListBox1.Visible = True

End If

End Sub

Sub unload()

unload (ListBox1)

End Sub