Creation de liens hypertexte sur excel en vba
Résolu/Fermé
89ric
Messages postés
10
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
10 septembre 2011
-
5 sept. 2011 à 13:54
89ric Messages postés 10 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 10 septembre 2011 - 5 sept. 2011 à 20:46
89ric Messages postés 10 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 10 septembre 2011 - 5 sept. 2011 à 20:46
Bonjour, étant novice en programmation vba et ayant vainement cherché sur tous les forums, j'en viens à solliciter votre aide pour résoudre mon problème.
Pour toutes les cellules des colonnes B des feuilles 1 à 14, si elle contient le nom de la feuille 15, alors créer le lien hypertexte vers la feuille 15. Par exemple, pour la feuille 1, si le nom contenu dans la cellule B3 est le même que le nom de la feuille 15, alors créer le lien vers cette feuille (et faire boucler sur toutes les cellules B3 à B34 de la feuille1 puis boucler sur les feuilles 1 à 14).
Merci de votre aide.
Pour toutes les cellules des colonnes B des feuilles 1 à 14, si elle contient le nom de la feuille 15, alors créer le lien hypertexte vers la feuille 15. Par exemple, pour la feuille 1, si le nom contenu dans la cellule B3 est le même que le nom de la feuille 15, alors créer le lien vers cette feuille (et faire boucler sur toutes les cellules B3 à B34 de la feuille1 puis boucler sur les feuilles 1 à 14).
Merci de votre aide.
A voir également:
- Vba insérer un lien hypertexte dans une cellule
- Insérer une vidéo dans powerpoint - Guide
- Créer un lien pour partager des photos - Guide
- Renommer un lien hypertexte - Forum Réseaux sociaux
- Lien url - Guide
- Aller à la ligne dans une cellule excel - Guide
3 réponses
Stefalia
Messages postés
4
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
16 septembre 2011
7
Modifié par 00lina00 le 6/09/2011 à 10:29
Modifié par 00lina00 le 6/09/2011 à 10:29
Bonjour,
Essaye ce code :
Est-ce que ça correspond à ce que tu recherches ?
Stefalia
Essaye ce code :
Sub creation_liens_hypertextes()
'
Dim feuilleencours, ligneencours As Integer
For feuilleencours = 1 To 2
Sheets(feuilleencours).Select
For ligneencours = 1 To 34
If Sheets(feuilleencours).Range("B" & ligneencours) = Sheets(15).Name Then
Sheets(feuilleencours).Range("B" & ligneencours).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(15).Name & "!B" & ligneencours
End If
Next ligneencours
Next feuilleencours
End Sub
Est-ce que ça correspond à ce que tu recherches ?
Stefalia