WorkSheet_MouseMove

[systmd]

[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

 

[systmd]

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

 

[BOISGONTIER]

Re : WorkSheet_MouseMove

Voir PJ

 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

 

[merguez07]

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.

 

[systmd]

Re : WorkSheet_MouseMove

@merguez07: C'est exactement la manip que j'ai faite

@BOISGONTIER : Ca change rien c'est mon XL2007 ou c'est moi. la couleur de fond ne veut pas changer?

 

[systmd]

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.

 

[systmd]

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 🙂