Microsoft 365 Affichage bulle explicative lors survol icônes

[AIXELS]

Bonjour à tour les Amis du Forum.
Une fois de plus, j'ai besoin de vos lumières.
Mon problème est le suivant:
J'ai des icônes qui servent à lancer des macros.
Je ne serai pas les seul à l'utiliser. D'où ma requête.
Aussi, j'aurais souhaité afficher (voir fichier joint)
le libellé de l'icône correspondante, un peu comme
comme les commentaires sur Excel.
Mais les icônes ne sont pas situées dans une cellule.
Par avance, Merci pour votre aide.
Bien cordialement.

 

[Nain porte quoi]

Hello,

Ce lien devrait vous donner des idées/solutions.

Les images et shapes

 

[sylvanu]

Bonjour Aixels, Nain porte quoi,
Dans la PJ jointe, il faut lancer la macro Liste_icones une seule fois, elle affecte les textes aux icones.
( modifiez le tablo si nécessaire )
NB:
Les icones doivent être des images, mais pas des Groupes. ( comme pour la 3eme icone, j'ai modifié le fichier en conséquence )

 

[AIXELS]

Bonjour @Nain porte quoi, @sylvanu
Merci pour vos réponses respectives .
Peux-tu @sylvanu m'expliquer comment affecter les noms du tableau.

J'ai le message ci-dessus.
Bien cordialement.

​

 

[AIXELS]

Re @sylvanu
Le code de la sélection de l'image et de rentrer le commentaire manuellement
via une une boîte de dialogue, fonctionne très bien.

'Crée une  bulle sur l'image sélectionnée
Sub BulleImageSelectionnée()
    On Error Resume Next
    NomShape = Selection.Name
    If Err <> 0 Then MsgBox "Sélectionner une image! ": Exit Sub
    On Error GoTo 0
    Bulle = InputBox("Quelle Bulle pour " & NomShape & "?")
    If Bulle = "" Then Bulle = NomShape
    Set s = ActiveSheet.Shapes(NomShape)
    ActiveSheet.Hyperlinks.Add Anchor:=s, Address:="", SubAddress:=""
    s.Hyperlink.ScreenTip = Bulle
End Sub

Peux-tu si tu as le temps, d'augmenter la police, la mettre en gras et une couleur plus voyante ?
En fonction des possibiltés du possible.
Merci pour ton aide.
Bien cordialement.

 

[sylvanu]

Re,

J'ai le message ci-dessus.

Mais encore ? Sur quel fichier ? Sur quelle ligne de code ?

m'expliquer comment affecter les noms du tableau.

Votre tableau ne donne pas le noms des icones, comment l'exploiter ?
Dans ma PJ il faut renseigner le Tablo :

' Liste icones et texte à afficher
Tablo = Array( _
"Image 16", "DÉTAIL VENTES", _
"Graphique 3", "AFFICHER RÉSULTATS", _
"Image 19", "RECETTE", _
"Image 18", "RENDU MONNAIE", _
"Image 17", "MASQUER RÉSULTATS", _
"Image 20", "SAUVEGARDER" _
)

'augmenter la police, la mettre en gras et une couleur plus voyante

Ca, je ne sais pas faire.

 

[AIXELS]

Re,

Mais encore ? Sur quel fichier ? Sur quelle ligne de code ?

Votre tableau ne donne pas le noms des icones, comment l'exploiter ?
Dans ma PJ il faut renseigner le Tablo :

' Liste icones et texte à afficher
Tablo = Array( _
"Image 16", "DÉTAIL VENTES", _
"Graphique 3", "AFFICHER RÉSULTATS", _
"Image 19", "RECETTE", _
"Image 18", "RENDU MONNAIE", _
"Image 17", "MASQUER RÉSULTATS", _
"Image 20", "SAUVEGARDER" _
)

Ca, je ne sais pas faire.

Merci pour ce retour.
Par contre, je viens tester les boutons, ils ne lancent plus les macro
je les affecte et ils ne plus les macros.
Peux-tu essayer essayer chez toi pour me confirmer le problème rencontré.
Bien cordialement.

 

[sylvanu]

Re,
Exact, j'ai vérifié.
Je ne sais pas si on peux affecter sur une image un lien hypertexte ET y attacher une macro.

 

[AIXELS]

Re,
Exact, j'ai vérifié.
Je ne sais pas si on peux affecter sur une image un lien hypertexte ET y attacher une macro

Re
Merci, tu me rassures, je pensais que j'avais fait une fausse manip.

 

[sylvanu]

Re,
En PJ une horreur ... qui marche.
Dans les liens hypertextes on met comme cellule de destination de A1 à A6.
Quand on clique sur un icone on va à la cellule donnée qui lance :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A1:A6]) Is Nothing Then
    Select Case Target.Address
        Case "$A$1": Macro1
        Case "$A$2": Macro2
        Case "$A$3": Macro3
        Case "$A$4": Macro4
        Case "$A$5": Macro5
        Case "$A$6": Macro6
    End Select
End If
Fin:
End Sub

Ce qui exécute la macro concernée.
Mais c'est une usine à gaz pour pas grand chose.
Ne serait il pas plus simple d'insérer le libellé directement dans l'icone.

 

[AIXELS]

Bonjour à tour les Amis du Forum.
Une fois de plus, j'ai besoin de vos lumières.
Mon problème est le suivant:
J'ai des icônes qui servent à lancer des macros.
Je ne serai pas les seul à l'utiliser. D'où ma requête.
Aussi, j'aurais souhaité afficher (voir fichier joint)
le libellé de l'icône correspondante, un peu comme
comme les commentaires sur Excel.
Mais les icônes ne sont pas situées dans une cellule.
Par avance, Merci pour votre aide.
Bien cordialement.

Bonsoir @sylvanu
Merci pour ta réponse et ton conseil.
Bien cordialement.

 

[AIXELS]

Bonjour à tous les Amis du Forum.
Bonjour @sylvanu
J'ai cherché sur internet, j'ai trouvé une solution simple à appliquer du point de vue code.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Feuil2.Shapes("Bulle").Visible = True
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Feuil2.Shapes("Bulle").Visible = False
End Sub.

Je joins un fichier explicatif.
J'ai opté pour cette solution par manque de place, mon application étant presque finalisée. BackstyOn peut mettre deux shapes superposées de différentes tailles en arrière plan "frmbackstyletransparent"
Une question, quel code pour masquer toutes les infos bulles ?
J'espère avoir apporté ma contribution.
Merci pour votre aide.
Bien cordialement.

 

[sylvanu]

Bonjour Aixels,
Votre solution n'est guère esthétique sur mon PC, avec les superposition de labels, mais je suis sous XL2007, donc je ne sais pas sur votre version.

Une question, quel code pour masquer toutes les infos bulles ?

Pour ce point, peut être avec :

Sub MasqueLabels()
With Feuil2
    For Each Sh In .Shapes
        If Left(Sh.Name, 5) = "Bulle" Then .Shapes(Sh.Name).Visible = False
    Next Sh
End With
End Sub

 

[AIXELS]

Bonjour Aixels,
Votre solution n'est guère esthétique sur mon PC, avec les superposition de labels, mais je suis sous XL2007, donc je ne sais pas sur votre version.

Pour ce point, peut être avec :

Sub MasqueLabels()
With Feuil2
    For Each Sh In .Shapes
        If Left(Sh.Name, 5) = "Bulle" Then .Shapes(Sh.Name).Visible = False
    Next Sh
End With
End Sub

Bonjour @sylvanu
Merci pour votre réponse et votre aide.
Bonnes fêtes.
Bien cordialement.