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.

 

[job75]

Juste avec hyperlink

Alors comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
[A1].Select
MsgBox "Bonjour"
End Sub

Le texte en C5 peut être masqué...

 

[Phil69970]

Re

Lionel

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

Et c'est bien le point 2 de ta demande

2 - Perso, cela me serait encore plus utile si l'affichage des infos bulles se faisaient aux survols des cellules.

Sub TestCommentaire()
With Range("C6") 'A adapter
    .ClearComments
    .AddComment
    .Comment.Visible = False                                        'False Visible au survol et True toujours visible
    .Comment.Text Text:="C'est super:" & Chr(10) & "Coucou tout le monde"           'Le texte du commentaire
    'On regle la taille de la police en fonction de la cellule D3 par exemple (à adapter)
    .Comment.Shape.OLEFormat.Object.Font.Size = 12                  'Taille police
    .Comment.Shape.OLEFormat.Object.Font.Bold = True                'Police en gras
    .Comment.Shape.OLEFormat.Object.Font.ColorIndex = 5             'Couleur de la police
    .Comment.Shape.Fill.ForeColor.SchemeColor = 47                  'Orange
    .Comment.Shape.TextFrame.AutoSize = True
End With

C'est le code que je t'ai fourni il y a 3 ans !!
J'ai juste modifier de true à false

.Comment.Visible = False

Tu te mets en C6 (ou la cellule que tu as adapté dans le code) et tu exécutes la macro.
La police, couleur de police et fond du commentaire et taille de la police sont paramétrables .......voir il y a 3 ans.....

 

[Usine à gaz]

Alors comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
[A1].Select
MsgBox "Bonjour"
End Sub

Le texte en C5 peut être masqué...

Bonjour Gérard , le fil

Merci pour tes efforts.
Evidemment ton code fonctionne.

Mais j'avais oublié une information importante :
Dans mes cellules il y a déjà des infos :

et mes textes sont remplacés par le lien.
Je crains qu'il n'y ait pas de solution et que le passage par le commentaire soit obligé.

 

[oguruma]

bjr
le mouseOver ou le onBlur n'existe pas dans les propriétés d'un objet excel... il y a bien des solutions pour m'y être frotté mais ça devient vite gaz factory... donc autant oublié si je peux donner un avis

 

[job75]

Je crains qu'il n'y ait pas de solution et que le passage par le commentaire soit obligé.

Les liens hypertextes vont bien, leurs textes sont modifiables par Copier-Collage spécial Valeurs :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C5:C9]) Is Nothing Or Application.CutCopyMode Then Exit Sub
[A1].Select
MsgBox "Bonjour"
End Sub

La macro est neutralisée en mode Copier.

 

[job75]

Ou tout bêtement exécute la macro MAJ :

Sub MAJ()
[C5:C9] = [F5:F9].Value
End Sub

 

[Usine à gaz]

Bjr Gérard, le Fil, le Forum

Encore merci à toi Gérard
Le fichier du #post 36 pourrait convenir...
Je vais le tester plus avant dans mon Usine Gazeuse ce soir