Creation de liens hypertexte sur excel en vba [Résolu/Fermé]

Signaler
Messages postés
10
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
10 septembre 2011
-
Messages postés
10
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
10 septembre 2011
-
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.




3 réponses

Messages postés
4
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
16 septembre 2011
7
Bonjour,

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
7
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57012 internautes nous ont dit merci ce mois-ci

Messages postés
10
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
10 septembre 2011
1
C'est bon j'ai réussi!!
Mille merci à toi (Stefalia)!!
Messages postés
10
Date d'inscription
lundi 5 septembre 2011
Statut
Membre
Dernière intervention
10 septembre 2011
1
Merci d'avoir répondu!
C'est effectivement ce que je cherchais! J'ai juste fait une erreur dans mon explication : il faut en plus faire tourner sur les feuilles 15 à 46 au lieu de la feuille 15.
Donc, pour toutes les cellules des colonnes B des feuilles 1 à 14, si elle contient le nom d'une des feuilles 15 à 46, alors créer le lien hypertexte vers celle-ci.
Je vais essayer, malgré mon niveau en vba, votre programme. je suppose donc qu'il faut rajouter une variable.
En tout cas, merci pour ce que vous avez fait et merci d'avoir pris du temps pour moi.