Récupérer un Tooltip d'un lien Hypertexte d'une cellule Excel [Résolu]
Peypey35
- 26 août 2008 à 18:27
- 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 récupérer lien hypertexte d'une cellule
- Récupérer une variable dans un lien hypertext ✓ - Forum - PHP
- Lien hypertexte dans une cellule vers une cellule d'une autre feuille du même cl ✓ - Forum - Visual Basic 6
- Lien hypertexte en vb sous excel - Forum - Visual Basic 6
- Visual Basic : - Guide
- Récupération adresse lien hypertexte - 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++
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 86 internautes ce mois-ci
Meilleure réponse
- 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+
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 86 internautes ce mois-ci
- Messages postés
- 372
- Date d'inscription
- vendredi 27 juillet 2007
- Dernière intervention
- 22 juillet 2013
- Messages postés
- 11
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 26 août 2008
- Messages postés
- 11
- Date d'inscription
- mardi 1 mai 2007
- Dernière intervention
- 26 août 2008
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.