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

Question

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.




Configuration: Windows XP / Firefox 6.0.1

Stefalia · Accepted Answer

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

89ric · Answer

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.

89ric · Answer

C'est bon j'ai réussi!!
Mille merci à toi (Stefalia)!!

Creation de liens hypertexte sur excel en vba

3 réponses

Discussions similaires