VBA - Ignorer les objets sans liens hypertexte

Bonjour le forum,

Dans le fichier ci-joint, une macro permet de lister les info-bulles contenues dans les liens hypertextes associés aux objets d'un fichier.

https://www.excel-pratique.com/~files/doc/hyplien_shapes.xls

Le problème, c'est que le code bugue quand la feuille contient des objets sans liens hypertextes. J'ai déjà le code pour exclure les boutons d'action (merci Félix), mais les objets sans liens hypertextes peuvent être de toute sorte : cliparts, zones de texte, formes géométriques, etc...

J'aimerais qu'une ou deux lignes de code bien pensées puissent exclure du traitement les objets sans lien hypertexte...

Merci d'avance !

Bonjour, V_Elbie

pour simplifier, essaie avec ce code, qui ne "sélectionne" que les objets contenant des liens hypertexte, et inscrit dans la colonne H les textes d'info-bulle

Sub AfficheInfoBulleLienHyp()
Dim Lig As Long, HypL As Hyperlink
Lig = 1
For Each HypL In Feuil1.Hyperlinks
    If HypL.Type = 1 Then
            Cells(Lig, 8) = HypL.Parent.Hyperlink.ScreenTip
            Lig = Lig + 1
    End If
Next HypL
End Sub

Toujours au top avec le code !

Merci, c'est ça qu'il me fallait !

Amicalement,