Microsoft 365 unload quand j’arrête de 'cliquer'

[jhones]

Bonjour,
j'ai un userform que je souhaite afficher quand je clique dessus mais quand je relâche le bouton mon formulaire ce ferme...
pour l'instant j'ai bidouiller ça ... mais ça ne marche pas 🙂

Sub formulaire3()
UserForm3.Show
    If CommandButton_Click = False Then
        Unload UserForm3
    End If
End Sub

je vous remercie par avance !
la bise

 

[Temjeh]

Bonjour
À première vue:

Sub formulaire3()
UserForm3.Show 'Apelle le Userform
End Sub

Sous un bouton dans le UserForm juste:

Private Sub CommandButton1_Click()
Unload UserForm3
End Sub


A+

 

[Dranreb]

Bonjour.
Essayez ça, dans le module de l'UserForm :

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Unload Me
   End Sub

 

[jhones]

Dranreb ce que tu as marqueé fonctionne bien mais je cherchais plutot un style de bouton poussoir ?

 

[Dranreb]

Bonjour.
Les évènements MouseDown et MouseUp existent pour des objets représentant d'autres choses que les UserForm.
Mais en fait je ne comprends maintenant plus du tout ce que vous voulez.

 

[jhones]

je suis pas claire dessolé,

j'ai une image transformé en bouton ( je lui ai affecté la macro formulaire3 )
ce formulaire est juste une aide visuel je souhaite que temps que je maintient mon clic souris dessus le formulaire s'affiche et des que je relache le clic le formulaire se ferme

 

[Dranreb]

Je pense que ce n'est pas possible avec une image de formulaire. Essayez avec une image ActiveX.

 

[jhones]

activeX est un peu complexe pour moi .... je vous met le fichier
j'active le formulaire 3 avec l'image "JOAL"
il est appelé au module 6

cet excel a pour but de simplifier la vie a des personne non formé au logiciel

 

[Dranreb]

Bon ben impossible un point c'est tout.
(activeX un peu complexe … n'importe quoi !)

 

[jhones]

je vous remercie beaucoup! je débute sur excel donc je ne connais pas encore ses capacité
Passé une bonne journée
et merci encore

 

[Dranreb]

Ça marche probablement avec de nombreux contrôles pourvu qu'ils soient de type ActiveX et non pas formulaire.
Mettez le en place par menu Developpeur, groupe Contrôle, commande Insérer.
À la différence des objets de formulaire on ne peut pas leur affecter de macro. Par contre ils déclenchent des évènements dans le module de l'objet représentant l'entité qui les porte.
Par exemple dans le module de l'objet Worksheet représentant la feuille Excel portant un contrôle nommé Image1 :

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   UserForm4.Show vbModeless
   End Sub
Private Sub Image1_Click()
   Unload UserForm4
   End Sub

 

[jhones]

MERCI
je vais travailler dessus

cordialement