Problème de lien Hypertexte sous Excel Résolu

Question

Bonjour a tous

J'ai créer dans Excel une colonne contenant des liens vers un site
Ex: http://monsite/référence/N° d' image.jpg
Mon problème est:
il faut clicher 2 fois quitter la ligne et revenir dessus pour que le liens soit actif
le problème c'est qu'il y a plus de 3000 lignes a faire !!
je voudrais donc que cette colonne de liens soit rendu active sans a avoir a faire la manip ci dessus
Merci pour vos réponses
galh

Furtif · Answer

Normalement ça marche tout seul .... attention à ton lien, .. pas de voyelles accentuées sur le Net.

gbinforme · Answer

bonsoir galh, Furtif,


Pour que les liens soient actifs après saisie ou collage :

Menu outils / options / onglet modifications / cocher confirmation mise à jour automatique des liens

gbinforme · Answer

bonjour

Ton lien résultant d'une formule, c'est logique qu'il ne soit pas activé.

Avec une petite macro alors ? (mode d'emploi)
Sub valide_lien() ' validation liens d'une colonne
Dim lig As Long
Dim col As Integer
col = 2             ' numéro colonne à valider (B ?)
For lig = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
    If Cells(lig, col).Value <> "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(lig, col), _
            Address:=Cells(lig, col).Value, TextToDisplay:=Cells(lig, col).Value
    End If
Next lig
End Sub

gbinforme · Answer

bonjour

Je croyais t'avoir mis le mode d'emploi en lien mais il faut cliquer sur le lien pour avoir la page !

Le numéro de colonne est un chiffre pas une lettre !
G = 7
après avoir copié ta macro, il faut que ta feuille à traiter soit active et tu fais alt+F8 puis exécuter.

gbinforme · Answer

bonjour

Je n'ai pas bien assimiler la manip 

En fait, tu crées ton lien avec une formule et donc la cellule ne contient que le texte du lien.

Pour valider le lien, la macro utilise ton texte pour en faire un lien comme si tu utilisais la commande "insérer lien...".

gbinforme · Answer

bonjour


J'ai supposé que le texte complet de ton URL était en A1 (tu changes la cellule pour t'adapter) mais tu remplaces l'ID que tu veux paramétrer par "~" (tu peux choisir un autre valeur) et tumets ton ID en A4

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [A4]) Is Nothing Then
    Dim chemin As String
    chemin = Replace([A1].Value, "~", sel.Value)
    ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub

Lorsque tu choisis A4 le lien assemblé est activé.

Tu peux remplacer A4 par une plage à ta convenance.

bylka213 · Answer

Bonjour Gbinforme, bonjour le fil,

Je ne comprends pas très ce que tu as mis ci-dessus dasn adresse je mais "chemein tu me dit mais je mais le chemin avec quoi a la place d'un ID particulier et si je veux que toute la colonne "A" transforme l'ID présent dans chaque cellule en lien vers l'adresse internet du style https://www.hugedomains.com/domain_profile.cfm?d=nom2&e=com avec a la place du 1080 l'ID present dans la cellule cliquée.


Merci

gbinforme · Answer

bonjour

Puisque tu veux mettre tes ID dans la colonne A, en B1 par exemple tu mets :
https://www.hugedomains.com/domain_profile.cfm?d=nom2&e=com 
Si tu mets ton canevas ailleurs, il suffit de changer dans la macro le code B1 par ta cellule à toi et en cliquant sur une cellule renseignée de la colonne A tu te connectes avec le lien et l'ID choisis.
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [A:A]) Is Nothing  And sel.Value <> "" Then
    Dim chemin As String
    chemin = Replace([B1].Value, "1080", sel.Value)
    ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub

Problème de lien Hypertexte sous Excel

8 réponses

Newsletters