Bulles infos

patrick

XLDnaute Nouveau
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
 

Pièces jointes

  • bulle info.xlsm
    18.3 KB · Affichages: 9

job75

XLDnaute Barbatruc
Bonsoir patrick, mapomme,

Ce n'est guère plus compliqué avec un contrôle image et ici et le format du commentaire est copié :
VB:
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.
 

Pièces jointes

  • bulle info(1).xlsm
    28.7 KB · Affichages: 11

job75

XLDnaute Barbatruc
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.
 

Pièces jointes

  • bulle info(3).xlsm
    30.4 KB · Affichages: 12

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson