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

XL 2021 Est-il possible d'afficher l'info bulle au passage sur une cellule ?

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous

Allé un p'tit pour me détendre lol

Sur ce fil : https://excel-downloads.com/threads...s-toucher-leurs-macro.20078181/#post-20602147

Notre cher Gérard (job75) a donné le bon code (tu m'étonnes lol) pour afficher une info bulle au survol de la souris sur des boutons.
C'est super et pratique.

J'ai 2 questions :
1 - Est-il possible de paramètrer l'info bulle ? (la grossir, lui affecter une police, taille ?)
2 - Perso, cela me serait encore plus utile si l'affichage des infos bulles se faisaient aux survols des cellules.
Sans créer de Label ou autre (juste cellule sans additifs lol)
Cela est-il possible sans passer par les commentaires ?
On peut peut-être avoir aussi "la crémière " lol

Un grand merci par avance...
Je remets le fichier test.
 

Pièces jointes

  • info bulle gerard2.xlsm
    67.7 KB · Affichages: 18
Dernière édition:
Trier par date Trier par votes

laurent950

XLDnaute Accro
Bonsoir Lionel,

Remplace ou ajoute des fonction a cela :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

j'ai trouver une solution de contournement, a amélioré par la suite ci cela te convient

Essaie cela :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hyperlink As hyperlink
    Set hyperlink = Sheets(Me.Name).Hyperlinks.Add(Anchor:=Sheets(Me.Name).Range("B5"), Address:="", ScreenTip:="cliquez ici pour dire Bonjour", TextToDisplay:="")
    Set hyperlink = Sheets(Me.Name).Hyperlinks.Add(Anchor:=Sheets(Me.Name).Range("B6"), Address:="", ScreenTip:="cliquez ici pour dire Au revoir", TextToDisplay:="")
End Sub
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
Bonsoir lionel
purée c'est connu de chez connu
pourquoi voudrais tu créer un infobule au passage de ta souris sur les cellules?
tu a les commentaire pour ca me semble t il
et si c'est la forme que des commentaires que tu n'aime pas je peux t'arranger ça
entre nous l'astuce qui finalement n'en est pas une est connue
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Sniff obligé de passer par un commentaire mais ça a l'air sympa.
Tu mets le fichier en pièce jointe stp ?
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
VB: 
Sub test()
    With ActiveCell.Comment.Shape
                .TextFrame.Characters.Font.ColorIndex = 2
                .TextFrame.Characters.Font.Bold = True
                .AutoShapeType = 23 'ici la forme que tu veux (23 c'est une étoile)
                .Width = 100
                .Height = 100
                 .Fill.ForeColor.RGB = vbRed
                .Fill.OneColorGradient 3, 1, 0.27
                .TextFrame.Characters.Font.Color = vbGreen
            End With
            
End Sub
tiens sélectionne ta cellule avec le commentaire et lance cette sub
tu la lance qu'une fois sur la cellule
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…