Bulles infos

[patrick]

bonjour à tous,

je suis rédacteur de documentations technique et j'utilise souvent excel.

j’aimerais savoir si une personne parmi vous pouvait m’aider sur un petit problème ce j’essaie de solutionner, si une solution existe bien sur.
je voudrais récupéré le texte contenu dans un commentaire et m'en servir comme info bulle au survol d'un label sur un userfrom.
j 'ai essayé controlTipText mais cela ne prend que 255 caractères et sur une seule ligne.
j 'aimerais conserver la mise en forme du commentaire.
si quelqu'un peut m'aider je l'en remercie.
bonne soirée à tous et encore merci pour les éventuelles réponses ou idées.

je joint un fichier

 

[mapomme]

Bonsoir @patrick,

Un essai, sans doute loin d'être parfait, mais qui est relativement simple.

 

[patrick]

je te remercie pour ta réponse rapide et efficace. c'est parfait !!
encore une fois un grand merci.
je te souhaite une bonne fin de soirée.
au plaisir.

 

[mapomme]

Re @patrick,

Attention! Vérifie bien que la propriété ControlTypeText de Label1 soit à vide. Ce n'était pas le cas dans la version 1 que j'ai remplacée par la version v1a.

 

[patrick]

ok.merci encore
@+

 

[job75]

Bonsoir patrick, mapomme,

Ce n'est guère plus compliqué avec un contrôle image et ici et le format du commentaire est copié :

Private Sub UserForm_Initialize()
Dim s As Shape, fichier$
Set s = [D6].Comment.Shape
fichier = ThisWorkbook.Path & "\MonImage.jpg"
s.CopyPicture Format:=xlBitmap
'---création du fichier JPEG---
With ActiveSheet.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
    .Paste
    .Export fichier, "JPG"
    .Parent.Delete
End With
'---chargement---
With Image1
    .Width = s.Width
    .Height = s.Height
    .Picture = LoadPicture(fichier)
    .Visible = False
End With
Kill fichier
End Sub

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

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Visible = False
End Sub

Bonne nuit.

 

[job75]

Bonjour patrick, mapomme, le forum,

Fichier (2) avec dimensionnement de l'UserForm.

Bonne journée.

 

[mapomme]

Bonjour à tous, bonjour @job75 😉

Fichier (2) avec dimensionnement de l'UserForm.

Très très bien. Mais sur Excel 2010, il faut que le commentaire de la cellule ne soit pas masqué. Est-ce également le cas sur ta version ?

 

[job75]

Mais sur Excel 2010, il faut que le commentaire de la cellule ne soit pas masqué. Est-ce également le cas sur ta version ?

Oui c'est le cas sur Excel 2013, et je pense que c'est le cas sur toute version.

Du coup dans ce fichier (3) j'ai complété le code pour pouvoir masquer le commentaire.