Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

WorkSheet_MouseMove

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion systmd
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

systmd

XLDnaute Occasionnel
[Résolu] InfoBulle

Bonjour à toutes et à tous

J'avais besoin, dans un planning, de faire afficher des infos bulles au passage de la souris, hors la fonction MouseMove n'éxiste pas sur les feuilles, aussi en fouinant un peu, je suis tomber sur la manière de faire une horloge en VBA, et ça ma donné l'idée de récupérer le timer pour afficher mes bulles sur mon planning .
Mais je trouve que celà prend pas mal de ressource système, et donc je l'active qu'au moment d'afficher la feuille "planning".
J'ai essayé de faire une ceinture bidoulle avec 8 images pour faire 2 cadres l'un qui active et l'autre qui désactive, mais ça fait pas terrible.

Je recherche donc , ...

edité [Résolu] ... plus rien

Merci
 
Dernière édition:
Trier par date Trier par votes
Re : WorkSheet_MouseMove

@ boisgontier

Effectivement c'est une solution, mais (j'ai pas essayé) tu peut aussi mettre en forme le texte (retour à la ligne, couleur,bold, italique etc.) ?

Si oui c'est parfais
 
Vote positif 0 Vote négatif
Re : WorkSheet_MouseMove

Voir PJ

Code: 
 With fplan.Cells(result.Row, début)
            .AddComment
            .Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
             temp = fbd.Cells(i, 1) & vbLf
             temp = temp & fbd.Cells(i, 5)
            .Comment.Text Text:=temp
            .Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(fbd.Cells(i, 1))).Font.Bold = True
            .Comment.Shape.TextFrame.AutoSize = True
            .Resize(, fin - début + 1).Interior.ColorIndex = _
               [couleurs].Find(Stage, LookAt:=xlWhole).Interior.ColorIndex
           End With
Couleur de fond du commentaire:

.Comment.Shape.Fill.ForeColor.SchemeColor = 10

Testé avec 2002 et 2007



JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : WorkSheet_MouseMove

j'ai excel 2000 et l'application fonctionne. toutefois j'ai noté quelques situations d'instabilité. Par exemple lorsque on regarde le code puis lorsque l'on retourne sur Excel.
Visiblement ça plante sur d'autres version d'excel. Ca reste donc à consolider.
 
Vote positif 0 Vote négatif
Re : WorkSheet_MouseMove

re
@boisgontier
j'avais pas vu que tu avais édité ton post. J'utilisé
.Comment.Shaperange.Fill...... au lieu de .Comment.Shape.Fill..., mais ça ne change rien.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : WorkSheet_MouseMove

Finalement ,je suis allé sur ton site à la page commentaire, où j'ai trouvé toute les explications nécessaire notamment dans jb-commentaires.xls

Merci pour tout 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…