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

[Usine à gaz]

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.

 

[Usine à gaz]

Je ne voulais trop polluer ton fil de discussion, mais si tu insistes, je dirais que ça m'a fait penser à un p'tit jeune qui a au moins de l'humour.

C'est qui le pt'tit jeune ? allé, on balance

 

[Usine à gaz]

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

 

[laurent950]

Seul souci : il faut cliquer... et j'ai besoin que ce soit au survol.

J'ai cherché aussi, mais Excel ne propose pas cette option. si tu as la solution alors je serais ravi que tu me la partage.

 

[Usine à gaz]

J'ai cherché aussi, mais Excel ne propose pas cette option. si tu as la solution alors je serais ravi que tu me la partage.

Oui, je partagerai

 

[TooFatBoy]

C'est qui le pt'tit jeune ? allé, on balance

Un p'tit gars qui se nomma Arthour.

 

[TooFatBoy]

Seul souci : il faut cliquer... et j'ai besoin que ce soit au survol.

D'où l'idée de chercher du côté du rollover.

 

[laurent950]

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 :

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

 

[patricktoulon]

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

 

[Usine à gaz]

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

 

[Phil69970]

Bonjour à toous

Voir ici une discussion avec un certain A.....3 alias UaG

Mais que le temps passe 3 ans déjà

 

[Usine à gaz]

Bonjour à toous

Voir ici une discussion avec un certain A.....3 alias UaG

Mais que le temps passe 3 ans déjà

Bsr Phil69970
Effectivement, mais là on est sur le survol de la cellule

 

[patricktoulon]

re
il est pas beau mon commentaire
d'autant plus que si tu regarde bien l’infobulle avec l'astuce du hyperlink est longue a s'afficher tandis que le commentaire lui est plus rapide
non tu ne rêve pas c'est bien un commentaire que tu vois

 

[Usine à gaz]

re
il est pas beau mon commentaire
d'autant plus que si tu regarde bien l’infobulle avec l'astuce du hyperlink est longue a s'afficher tandis que le commentaire lui est plus rapide
non tu ne rêve pas c'est bien un commentaire que tu vois
Regarde la pièce jointe 1177803

Sniff obligé de passer par un commentaire mais ça a l'air sympa.
Tu mets le fichier en pièce jointe stp ?

 

[Usine à gaz]

Cers tus,
Je dois vous quitter pour ce soir
Je me lève demain matin à 5h30 et le jeunot doit se reposer
Mon lit m'appelle...
Bonne nuit à tous

 

[patricktoulon]

re

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