XL 2010 MouseMove inopérant sur Contrôles

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #2

Bonjour le fil, Eric_C

Eric_C
Test OK sur Excel 2013
(avec un Label Active X( donc non issu de la BO Formulaires)
Avec ce code dans le code de la feuille où se situe le Label

VB:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox Label1.TopLeftCell.Address
End Sub

EDITION: Bonjour Paf

 

Dernière édition: 30 Novembre 2019

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 30 Novembre 2019

• #3

Bonjour,

si j'ai bien compris le besoin, sous XL 2007 ça ne fonctionne pas . Aucun événement lié à un control invisible n'est déclenché ni déclenchable.

A+

edit : Bonjour Staple1600

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 30 Novembre 2019

• #4

Re,
Bonjour Staple, bonjour Paf
@Paf : Cela fonctionnait sous XL 2007 mais je suis passé à 2010 et nombreux blèmes ???? - Pour Win 10 64bits -
@Staple : merci du retour donc cela vient de mon XL !!!
Avec cet exemple qui fait disparaître les Contrôles lors du survol, cela fonctionne ??? Je vais peut être devoir revoir l'installation de mon Excel ....
Bonne fin d'après midi
Eric c

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Novembre 2019

• #5

Bonjour Eric C, JM, Paf,

Si je comprends bien vous voulez que l'évènement MouseMove se déclenche sur un contrôle invisible.

Cela me paraît impossible, en tout cas il ne se crée pas chez moi sur Win 10 - Excel 2019.

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #6

Bonsoir le fil, Eric C, Paf, job75

En mettant la propriété BackStyle sur fmBackStyleTransparent, et pas de Caption
On simule un Label invisible et MouseMove fonctionne
(je viens de faire le test)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Novembre 2019

• #7

OK JM, mais un objet transparent et un objet invisible ce n'est pas du tout pareil, ici on parle bien d'invisible.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Novembre 2019

• #8

Re

job75
C'est bien pour cela que j'ai employé le verbe simuler dans mon précédent message 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Novembre 2019

• #9

je rejoins Staple1600
et j'ajouterais que ca ne peut avoir fonctionner un jour c'est impossible comme le dit Job75
sans doute un copier coller incomplet 😉 et cela sur n'importe quelle version XL
rien que le premier mouse move pour le bouton est assez rigolo le label aussi de la même manière
et encore plus rigolo ils sont invisible a l’initialize tout les deux

VB:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.CommandButton1.Visible = True
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = True
End Sub

Private Sub UserForm_Initialize()
   Me.Label1.Visible = False
   Me.CommandButton1.Visible = False
End Sub

conclusion si ca fonctionnait avant tu a bien fait de changer de version d'excel 😛 😉

 

Dernière édition: 30 Novembre 2019

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 30 Novembre 2019

• #10

Re le fil,
Bonjour Job75, bonsoir Patrick

J'avais oublié de mettre le second fichier qui fonctionne mais par à coup (il faut rester sur le contrôle pour que cela soit effectif) ???

 

Pièces jointes

• Mouse Down avec Label & CommandButton qui disparaissent (2).xlsm

  22.2 KB · Affichages: 5

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Décembre 2019

• #11

re
ouais
pourrait tu nous expliquer l'utilité d'avoir un label ou un commandbutton que l'on ne peut utiliser
car des que tu passe dessus il sont inaccessibles

surtout que de cette façon des que la souris bouge d'un millimètre ça fait clignoter le control
non vraiment je pige pas l'intention

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 1 Décembre 2019

• #12

Bonsoir le forum
Bonsoir le fil

Désolé d'avoir mis ce post en ligne. Je n'ai même pas fait attention qu'il n'y avait aucun contrôle visible pour activer mon Label ???? Je viens seulement de prendre connaissance des réponses d'hier. Encore désolé.
@patrick : le dernier fichier (#10) faisait référence au #4
Bon allez... n'en parlons plus .... Je mets quand même le bon fichier en ligne
Bonne soirée à toutes & à tous
@+ Eric c

 

Pièces jointes

• Mouse Down avec Label qui apparaît.xlsm

  24.5 KB · Affichages: 6

Vote positif 0 Vote négatif