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]

Bonjour Lionel,

1 - Non

2 - Non.

A+

 

[mapomme]

Bonsoir à tous ,

On peut peut-être avoir aussi "la crémière " lol

Bonjour Lionel,

1 - Non

2 - Non.

A+

Lionel, c'est mal parti pour la crémière .

 

[laurent950]

Bonjour @Usine à gaz

J'ai essayer avec l'événement Worksheet_MouseMove mais qui ne permet pas de créer des info-bulles de la même manière que l'événement Worksheet_SelectionChange.
L'événement Worksheet_MouseMove est principalement utilisé pour capturer les mouvements de la souris et ne fournit pas de moyen natif pour afficher des info-bulles au survol.

Alors voilà ci-dessous pour alimenter ton Usine a Gaz.
Ce code fonctionne lorsque tu cliques dans une cellules, avec :
Private Sub Worksheet_SelectionChange(ByVal Target As Range

Pour Paramétrer des textes en fonctions des cellules c'est ici : dans le code.

                Col.Add Item:="cliquez ici pour dire Bonjour", Key:="B5"
                Col.Add Item:="cliquez ici pour dire Au revoir", Key:="B6"
                Col.Add Item:="Votre texte", Key:=L'adresse de la Cellule Excel
                Etc.

Tous le code ci-dessous à copier dans la Feuil évènement Excel Correspondante.

Dim infoBulle As Comment

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    ' Spécifiez les plages pour les cellules B5 et B6 (ou toute autre plage que vous souhaitez)
    Set cell = Me.Range("B5:B6")

    ' Vérifiez si la cellule sélectionnée est l'une des cellules spécifiées
    If Not Intersect(Target, cell) Is Nothing Then
        Dim Col As Collection
            Set Col = New Collection
                Col.Add Item:="cliquez ici pour dire Bonjour", Key:="B5"
                Col.Add Item:="cliquez ici pour dire Au revoir", Key:="B6"
                AfficherInfoBulle Col.Item(Target.Address(0, 0)), Target
    Else
        CacherInfoBulle infoBulle
    End If
End Sub

Private Sub AfficherInfoBulle(ByVal texte As String, ByVal cell As Range)
    ' Supprimez l'info-bulle précédente si elle existe
    CacherInfoBulle infoBulle

    ' Ajoutez un commentaire à la cellule
    Set infoBulle = cell.AddComment
    infoBulle.Text Text:=texte

    ' Affichez le commentaire
    infoBulle.Visible = True
End Sub

Private Sub CacherInfoBulle(ByRef infoBulle As Comment)
    On Error Resume Next
    infoBulle.Delete
    Set infoBulle = Nothing ' Réinitialisez la référence au commentaire
    On Error GoTo 0
End Sub

 

[TooFatBoy]

Hopla !

Z'êtes pas sympa... donnez-lui une solution comme il aime bien : un rollover avec une forme qui se place où il veut.

 

[laurent950]

@TooFatBoy

Excel ne prend pas en charge sa demande !

 

[TooFatBoy]

Excel ne prend pas en charge sa demande !

Quasiment aucune de ses demandes n'est prise en charge par Excel, et pourtant il y a toujours eu quelqu'un pour donner une proposition qui convenait à notre camarade UàG.

Et là je suis persuadé (peut-être à tort) qu'avec un rollover (ou autre chose), il est possible de faire un truc qui lui convienne.
Me trompé-je ?

 

[Usine à gaz]

Bonsoir à tous ,





Lionel, c'est mal parti pour la crémière .

Bsr Gérard
Ma crémière et moi étions tout plein d'espoir....
Mais c'est clair.
Bonne soirée

 

[Usine à gaz]

Quasiment aucune de ses demandes n'est prise en charge par Excel, et pourtant il y a toujours eu quelqu'un pour donner une proposition qui convenait à notre camarade UàG.

Et là je suis persuadé (peut-être à tort) qu'avec un rollover (ou autre chose), il est possible de faire un truc qui lui convienne.
Me trompé-je ?

Bsr à toi : Grâce à toi, l'espoir renaît pour ma crémière et moi-même lol

 

[Usine à gaz]

Bonsoir à tous ,





Lionel, c'est mal parti pour la crémière .

Bsr mapomme
Malheureusement

 

[Usine à gaz]

Bonjour @Usine à gaz

J'ai essayer avec l'événement Worksheet_MouseMove mais qui ne permet pas de créer des info-bulles de la même manière que l'événement Worksheet_SelectionChange.
L'événement Worksheet_MouseMove est principalement utilisé pour capturer les mouvements de la souris et ne fournit pas de moyen natif pour afficher des info-bulles au survol.

Alors voilà ci-dessous pour alimenter ton Usine a Gaz.
Ce code fonctionne lorsque tu cliques dans une cellules, avec :
Private Sub Worksheet_SelectionChange(ByVal Target As Range

Pour Paramétrer des textes en fonctions des cellules c'est ici : dans le code.

                Col.Add Item:="cliquez ici pour dire Bonjour", Key:="B5"
                Col.Add Item:="cliquez ici pour dire Au revoir", Key:="B6"
                Col.Add Item:="Votre texte", Key:=L'adresse de la Cellule Excel
                Etc.

Tous le code ci-dessous à copier dans la Feuil évènement Excel Correspondante.

Dim infoBulle As Comment

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    ' Spécifiez les plages pour les cellules B5 et B6 (ou toute autre plage que vous souhaitez)
    Set cell = Me.Range("B5:B6")

    ' Vérifiez si la cellule sélectionnée est l'une des cellules spécifiées
    If Not Intersect(Target, cell) Is Nothing Then
        Dim Col As Collection
            Set Col = New Collection
                Col.Add Item:="cliquez ici pour dire Bonjour", Key:="B5"
                Col.Add Item:="cliquez ici pour dire Au revoir", Key:="B6"
                AfficherInfoBulle Col.Item(Target.Address(0, 0)), Target
    Else
        CacherInfoBulle infoBulle
    End If
End Sub

Private Sub AfficherInfoBulle(ByVal texte As String, ByVal cell As Range)
    ' Supprimez l'info-bulle précédente si elle existe
    CacherInfoBulle infoBulle

    ' Ajoutez un commentaire à la cellule
    Set infoBulle = cell.AddComment
    infoBulle.Text Text:=texte

    ' Affichez le commentaire
    infoBulle.Visible = True
End Sub

Private Sub CacherInfoBulle(ByRef infoBulle As Comment)
    On Error Resume Next
    infoBulle.Delete
    Set infoBulle = Nothing ' Réinitialisez la référence au commentaire
    On Error GoTo 0
End Sub

Bsr laurent950
Je te remercie pour tes codes.
Je vais voir quels en sont les effets

 

[TooFatBoy]

Bsr à toi : Grâce à toi, l'espoir renaît pour ma crémière et moi-même lol

Je pense que c'est faisable, mais je suis trop nul pour savoir le faire...

 

[Usine à gaz]

Je pense que c'est faisable, mais je suis trop nul pour savoir le faire...

T'inquiètes... y'a plus nul que toi.... qui à ton avis ? lol

 

[Usine à gaz]

T'inquiètes... y'a plus nul que toi.... qui à ton avis ? lol

Tu l'as pas dit, mais tu l'as pensé

 

[TooFatBoy]

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.