Liens hypertextes

Bonjour, à tous

J'ai une liste de liens en colone A que je voudrais transformer en lien hypertexte mais dans cette colone et pas dans une colone B ou C.

Avec la fonction lien.hypertexte je n'y arrive pas

Merci pour votre aide

Salut,

Je ne comprends pas ce que tu veux exactement,

Clique droit sur la cellule que tu veux puis "lien hypertexte".

Sinon donne ton fichier où explique mieux ce que tu veux (lien hypertexte vers quoi?, logique, etc..)

Cldt,

Uras

Désolé si je me suis mal exprimé

J'ai une colone A avec des liens que je souhaite transformer en liens hypertextes.

Je veux que les liens créer soient à la place des anciens liens

J'espere que c'est plus claire

Salut,

Essaye de partager ton fichier stp ou un fichier exemple.

Je comprends bien que tu as un problème d'hypertexte mais si je ne sais pas vers où ils mènent (l'adresse est-elle indiquée quelque part?), si il y'en a 2-3 à faire (à ce compte la tu le fais à la main) où une grande quantité donc tu souhaiterais avoir un processus pour les traiter.

Cordialement,

Uras

voila le fichier

Salut

essaye de rentrer cette formule dans B1 :

=LIEN_HYPERTEXTE(A1;"lien " & LIGNE(A1))

Et incrémente à la souris

Cldt,

Uras

Salut merci pour ta réponse

Ce que je veux c est que mes liens hypertexte remplacent mes anciens liens donc dans la colonne A

Je pense qu'il faut utiliser une macro mais je n'y arrive pas.

Cdtl

Tes anciens liens sont les addresses de la colonne A c'est ça?

Quelles sont les addresses des nouveux liens ? Y'a-t'il une logique entre eux utile à l'automatisation de leur création?

Cldt,

Uras

Oui mes liens sont ceux de la colonne A, je veux pouvoir cliquer sur eux

Bonjour,

A tester

Option Explicit
Public Sub CreerLiensHypertexte()
Dim Cell As Range
    Application.ScreenUpdating = False
    For Each Cell In Range("A1:A" & Range("A1").End(xlDown).Row)
        ActiveSheet.Hyperlinks.Add _
            Anchor:=Cell, _
            Address:=Cell.Value, _
            TextToDisplay:=Cell.Value
    Next
End Sub

Merci beaucoup c'est ce que je voulais tu me sauves la vie

Edit : Arg, Jean Eric a été plus rapide que moi , bonne journée à vous 2

Re,

Essaye ça :

Sub TestHyperlien()

Dim Cell As Range

For Each Cell In Range(Range("A1"), Range("A1").End(xlDown))
        ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=Cell.Value
Next Cell

End Sub

Cldt,

Uras