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 ?

Créer une discussion

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

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

Dernière édition:
Trier par date Trier par votes
Re Laurent 🙂

J'ai testé ton code qui fonctionne.
J'avais fait le même avec le commentaire qui est créé qui supprilmé.
Seul souci : il faut cliquer... et j'ai besoin que ce soit au survol.
Merci à toi 🙂
 
Vote positif 0 Vote négatif
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
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
Bsr Patirck 🙂
Oui mais j'aimerais que ça fonctionne sans : commentaire, sans créer de Label ou autre (juste cellule sans additifs lol).
Et sans les mains lol 🙂
Juste avec hyperlink
🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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
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.
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…