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

jhones

XLDnaute Nouveau
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 :)
VB:
Sub formulaire3()
UserForm3.Show
    If CommandButton_Click = False Then
        Unload UserForm3
    End If
End Sub

je vous remercie par avance !
la bise
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Essayez ça, dans le module de l'UserForm :
VB:
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

XLDnaute Nouveau
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
 

jhones

XLDnaute Nouveau
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
 

Pièces jointes

  • PARC MATIERE brute.xlsm
    168.2 KB · Affichages: 4

Dranreb

XLDnaute Barbatruc
Ç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 :
VB:
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
 
Haut Bas