Récupérer un Tooltip d'un lien Hypertexte d'une cellule Excel [Résolu]
Peypey35
- Messages postés
- 11
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 26 août 2008
- Messages postés
- 372
- Date d'inscription
- vendredi 27 juillet 2007
- Dernière intervention
- 22 juillet 2013
A voir également:
- Excel recuperer valeur lien hypertexte
- Vba excel info bulle cellule - Meilleures réponses
- Excel récupérer lien hypertexte d'une cellule - Meilleures réponses
- [VBA/EXCEL] Recuperer le lien hypertext contenu dans une cellule ✓ - Forum - Visual Basic
- Excel : récupérer lien hypertexte ✓ - Forum - Delphi / Pascal
- Visual Basic / VB.NET : Lien hypertexte sous excel en partage - CodeS SourceS - Guide
- Excel - lien hypertexte - position haut / gauche Ecran ✓ - Forum - VBA Office (Excel, Word ...)
- Récupérer valeurs entre deux fichiers Excel. ✓ - Forum - VBA Office (Excel, Word ...)
5 réponses
Meilleure réponse
- Messages postés
- 372
- Date d'inscription
- vendredi 27 juillet 2007
- Dernière intervention
- 22 juillet 2013
Bonsoir ,
J'ai un peu regardé.
La propriéte info bulle du lien est
Screentip.
Tu as fait un "Exception" parce que tu as scrupté une
cellule ou il n'y avait pas de lien (sans doute).
-----------------------------------------------------------
Avec ce code , tu recuperes des textes des infos bulles
à condition de les avoir definis avant:
Dim h, ligne, colonne
Dim Info As String
Dim nombrelienParcellule As Integer
nombrelienParcellule = 0
For ligne = 1 To 20
For colonne = 1 To 20
For Each h In Worksheets(1).Cells(ligne, colonne).Hyperlinks
For nombrelienParcellule = 1 To Cells(ligne, colonne).Hyperlinks.Count
If Cells(ligne, colonne).Hyperlinks.Count > 0 Then
Info = Cells(ligne, colonne).Hyperlinks(nombrelienParcellule).ScreenTip
End If
Next
Next
Next
Next
End Sub
---------------------------------------------------------------------
Pour récuperer les liens de toutes les cellules , remplace dans le code
ci-dessus le mot "ScreenTip" par "Names".
Teste et donne moi de tes nouvelles
A++
J'ai un peu regardé.
La propriéte info bulle du lien est
Screentip.
Tu as fait un "Exception" parce que tu as scrupté une
cellule ou il n'y avait pas de lien (sans doute).
-----------------------------------------------------------
Avec ce code , tu recuperes des textes des infos bulles
à condition de les avoir definis avant:
----> Cells(ligne, colonne)..Hyperlinks(1).ScreenTip = "text" (Le texte par defaut ,c'est à dire le lien n'est pas récuperé. Je ne sais pas pour quelle raison)
Dim h, ligne, colonne
Dim Info As String
Dim nombrelienParcellule As Integer
nombrelienParcellule = 0
For ligne = 1 To 20
For colonne = 1 To 20
For Each h In Worksheets(1).Cells(ligne, colonne).Hyperlinks
For nombrelienParcellule = 1 To Cells(ligne, colonne).Hyperlinks.Count
If Cells(ligne, colonne).Hyperlinks.Count > 0 Then
Info = Cells(ligne, colonne).Hyperlinks(nombrelienParcellule).ScreenTip
End If
Next
Next
Next
Next
End Sub
---------------------------------------------------------------------
Pour récuperer les liens de toutes les cellules , remplace dans le code
ci-dessus le mot "ScreenTip" par "Names".
Teste et donne moi de tes nouvelles
A++
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 372
- Date d'inscription
- vendredi 27 juillet 2007
- Dernière intervention
- 22 juillet 2013
Bonjour ,
Une réponse bien matinale!
Tant mieux si ça marche.
Pense à valider cette réponse
Merci
A+
Une réponse bien matinale!
Tant mieux si ça marche.
Pense à valider cette réponse
Merci
A+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.