Liens Hypertextes - Modification par lot

[alphabeta]

Bonjour,

Je souhaite modifier une serie de liens hypertexte un peu comme on le ferait avec la fonction recherche remplace. l'objectif est de copier une feuille dans un même classeur contenant une série de liens hypertexte et de les modifier "à la chaine". Ainsi un lien comportant une reference avec Juillet pourrait etre modifié par Aout.
En esperant être suffisament claire

Merci d'avance pour votre aide

 

[pierrejean]

Re : Liens Hypertextes - Modification par lot

bonjour alphabeta

oui c'est clair, mais tout de même limité

un petit fichier avec exemple nous simplifierait la tache

 

[Staple1600]

Re : Liens Hypertextes - Modification par lot

Bonjout


edit: une autre macro plus proprette
qui parcourt les liens d'un classeur entier.

source:Replace Multiple Hyperlink Addresses - Excel Help:

Sub ReplacePartHyperlinkAddress() 
    Dim hLink As  Hyperlink 
    Dim wSheet As  Worksheet 
Dim chainecherch as string
Dim nouvchaine as string
'demande quelle chaine est à remplacer
chainecherch =InputBox("Quelle est la chaine à remplacer dans les liens hypertexte,svp")
'demande la nouvelle chaine à insérer
nouvchaine=InputBox("Nouvelle valeur à insérer dans les liens hypertexte, svp")
'traite toutes les feuilles
    For Each wSheet In Worksheets 
        For Each hLink In wSheet.Hyperlinks 
             'ici remplace l'adresse du lien hypertexte
            hLink.Address = Replace(hLink.Address, chainecherch, nouvchaine) 
             'ici remplace le texte afiché
            hLink.TextToDisplay = Replace(hLink.TextToDisplay, chainecherch, nouvchaine)
        Next hLink 
    Next wSheet 
End Sub

A partir de l'aide de VBA

Tu peux retirer les lignes ou il y a des "'"

Sub test()
For Each h In Worksheets(1).Hyperlinks
If InStr(h.Name, "Juillet") <> 0 Then
'ici pour test
'MsgBox h.SubAddress
'idem
'MsgBox h.TextToDisplay
h.TextToDisplay = "Aout"
'ici pour test
'h.SubAddress = "Aout"
End If
Next
End Sub

 

[labelvage]

Re : Liens Hypertextes - Modification par lot

Bonjour à tous,

J'ai longuement cherché sur les discussions et je pense être sur la bonne car mon problème, qui va certainement trouvé une solution, est presque semblable :

J'ai un seul classeur :
Feuille 1 : la liste de mes clients
Feuille 2 et suivantes : les coordonnées de ces clients

Je souhaiterais faire un lien hypertexte : en cliquant sur le nom d'un client en feuille 1 on soit diriger vers la feuille qui contient ses coordonnées.

Faire un lien, ça va mais j'ai plus de 100 clients donc je voudrais trouver un moyen de rendre la manipulation automatique, sachant que pour le 1er client correspond la feuille 2, le 2ème la feuille 3 ...

J'ai joint un exemple.
Avez-vous une idée ?

Merci d'avance

 

[chris]

Re : Liens Hypertextes - Modification par lot

Bonjour

Une solution par formule dans une autre colonne

=LIEN_HYPERTEXTE("#" &A1&"!A1";A1)

 

[pierrejean]

Re : Liens Hypertextes - Modification par lot

bonjour labelvage

Salut Chris

Si tu tiens a une macro

For n = 1 To Range("A65536").End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & n), Address:="", SubAddress:= _
        "'" & Range("A" & n) & "'!A1", TextToDisplay:=Range("A" & n).Value
Next n

 

[labelvage]

Re : Liens Hypertextes - Modification par lot

Bonjour et MERCI !
Je vous remercie très sincèrement tous les 2 d'avoir pris le temps de me répondre et de partager vos connaissances. J'économise de nombreuses heures de sommeil...

Je viens d'essayer avec la formule lien hypertexte, ça fonctionne et quant à la macro, je le ferai avec de l'aide car je ne la maitrise pas pour l'instant.

C'était si simple de vous demander ! Merci

 

[pierrejean]

Re : Liens Hypertextes - Modification par lot

Re

Ton fichier avec la macro implantée

 

[labelvage]

Re : Liens Hypertextes - Modification par lot

Merci Pierre Jean pour ton aide, c'est sympa d'avoir implanté la macro et ça fonctionne, bien évidemment. J'enregistre la méthode.

J'espère arriver un jour à maitriser comme vous !
Je vais demander une formation à mon boss...