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

Usine à gaz · 3 Septembre 2023

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 · 3 Septembre 2023

Usine à gaz à dit:
Juste avec hyperlink

Alors comme ceci :

VB:

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 · 4 Septembre 2023

Re

Lionel

Usine à gaz à dit:
Effectivement, mais là on est sur le survol de la cellule

Et c'est bien le point 2 de ta demande

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

VB:

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 · 4 Septembre 2023

job75 à dit:
Alors comme ceci :

VB:

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 · 4 Septembre 2023

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 · 4 Septembre 2023

Usine à gaz à dit:
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 :

VB:

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 · 4 Septembre 2023

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

VB:

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

Usine à gaz · 4 Septembre 2023

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

oguruma

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc