XL 2016 infobulle au survol de la souris

[Mimi]

Bonjour à tous,
D'après un classeur de Jacques boisgontier, j'ai réussi à faire ce que je voulais.
Ce que je souhaite c'est d'avoir le texte de la colonne C (sa c'est bon) et le texte de la colonne D, de la feuille 2.
D'avance je vous remercie
Mimi

 

[Fred0o]

Bonjour Mimi

Peut-etre comme ceci :

Sub CréeBulles()
  For Each s In ActiveSheet.Shapes
     bulle = Application.VLookup(s.Name, [légendes], 2, False) & Chr(10) & Application.VLookup(s.Name, [légendes], 3, False)
     If Not IsError(bulle) Then
       ActiveSheet.Hyperlinks.Add Anchor:=s, Address:="", SubAddress:=""
       s.Hyperlink.ScreenTip = bulle & Chr(10) & "...."
     End If
  Next s
End Sub

 

[TooFatBoy]

Bonjour,

En faisant au plus simple, tu peux essayer ceci :
s.Hyperlink.ScreenTip = bulle & Chr(10) & Application.VLookup(s.Name, [légendes], 3, False)

 

[Mimi]

Bonjour,
Merci à tous les deux fonction impeccable
Encore merci