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

Temjeh

XLDnaute Accro

• 26 Juin 2019

• #2

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Juin 2019

• #3

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

 

Vote positif 0 Vote négatif

J

jhones

XLDnaute Nouveau

• 27 Juin 2019

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2019

• #5

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.

 

Vote positif 0 Vote négatif

J

jhones

XLDnaute Nouveau

• 27 Juin 2019

• #6

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2019

• #7

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

 

Vote positif 0 Vote négatif

J

jhones

XLDnaute Nouveau

• 27 Juin 2019

• #8

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: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2019

• #9

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

 

Vote positif 0 Vote négatif

J

jhones

XLDnaute Nouveau

• 27 Juin 2019

• #10

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2019

• #11

Ç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

 

Vote positif 0 Vote négatif

J

jhones

XLDnaute Nouveau

• 27 Juin 2019

• #12

MERCI
je vais travailler dessus

cordialement

 

Vote positif 0 Vote négatif