bouton personnalisé

[Hugues]

Bonsoir Le Forum,

Dans une feuille, j'ai inséré une image qui commande une macrocommande (exemple une image représentant une imprimante qui commande une macro définissant la zone d'impression et l'impression du document).

Je souhaiterais en plus de cette image qu'un texte apparait lorsque que la souris pointe l'image (un peu comme les boutons personnalisés dans la barre de menu).

Avez vous une astuce ?

Merci par avance,

Hugues

 

[myDearFriend!]

Bonsoir Hugues,

Sur une idée très originale de Jean-Marie, ci-joint peut-être une solution à ta question...

Le principe est simple : tu mets un lien hypertexte bidon sur ton image (shape) et tu définis la bulle d'info correspondante. Ce lien, tu le fais pointer sur la cellule IV65536 de la feuille.
Le code suivant va shunter l'effet du lien hypertexte (sélection de la cellule IV65536) et lancera ta macro.

Procédure évènementielle à coller dans le module de code de ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncC As Range, SC As Integer, SR As Long
      With ActiveWindow
            If Not Application.Intersect(ActiveCell, Range('IV65536')) Is Nothing Then
                  If AncC Is Nothing Then Set AncC = Range('A1')
                  Application.EnableEvents = False
                  AncC.Select
                  .ScrollColumn = SC
                  .ScrollRow = SR
                  Application.EnableEvents = True
                  'Lancement de la macro associée au shape
                  LaMacro
            Else
                  Set AncC = ActiveCell
                  SC = .ScrollColumn
                  SR = .ScrollRow
            End If
      End With
End Sub

Cordialement, [file name=mDF_BulleInfoSurShape.zip size=12925]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_BulleInfoSurShape.zip[/file]