Creation de liens hypertexte sur excel en vba
Résolu
89ric
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
89ric Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
89ric Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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
- Lien copié - Forum Téléphones & tablettes Android
- Créer un lien pour partager des photos - Guide
- Lien url - Guide
- Renommer un lien hypertexte - Forum Réseaux sociaux
3 réponses
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