lien hypertexte qui ne se maintiennent pas

[donpopo]

Bonjour tout le monde,

Je cherche depuis ce matin un moyen d'imposer un format HYPERTEXTE à toutes les cellules d'une colonne.

Je m'explique: j'ai une feuille'x' qui me permet d'encoder les renseignements concernant un fournisseur; dans ces données, j'ai un lien hypertexte vers un document précis.

Lorsque ma macro transfère les données vers ma feuille'y', tout va nickel, sauf que mon lien hypertexte se transforme en texte normal.

Y a t'il un moyen de remédier à ce problème (via format de cellule ou via ma macro)?

Merci d'avance

Donpopo

 

[Hulk]

Re : lien hypertexte qui ne se maintiennent pas

Hello Forum, Donpopo,

Peut-être avec ce code

    Dim Lien As Variant
    Dim Cell As Variant
    
    Application.ScreenUpdating = False
    
    For Cell = 2 To Range("A65536").End(xlUp).Row
        Range("A" & Cell).Select
        Lien = Range("A" & Cell).Value
    If Lien = "" Then Exit Sub
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien
    Next Cell
    
    ActiveWindow.ScrollRow = 1
    Range("A1").Select
    
    Application.ScreenUpdating = True

à adapter

Cdt, Hulk.

EDIT : Coucou Brigitte 🙂

 

[Brigitte]

Re : lien hypertexte qui ne se maintiennent pas

Bonjour,

Je ne saurais t'aider, mais Roger1327 m'a concocté une macro qui recalcule les liens hypertexte (vers numéro de ligne d'une autre feuille) à chaque ouverture de mon fichier et ca marche d'enfer :

Sub Liens()
Dim tablo As Variant, i As Integer, data As Collection, derval As String
Dim derlig As Integer, cell As Range, ligne As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
tablo = Sheets("ARCHIVES - Historique").Range("A1:F" & Sheets("ARCHIVES - Historique").Range("A20000").End(xlUp).Row)
Set data = New Collection
For i = 1 To UBound(tablo)
    On Error Resume Next
        If tablo(i, 1) = "GRH" Then
        data.Add i, tablo(i, 5) & tablo(i, 6)
        End If
Next i
derlig = Sheets("GRH").Range("B10000").End(xlUp).Row
For Each cell In Sheets("GRH").Range("B2:B" & derlig)
ligne = data(cell.Value & cell.Offset(0, 1).Value)
    If cell.Offset(0, -1).Value <> ligne Then
        cell.Offset(0, -1).Value = ligne
        cell.Hyperlinks.Add Anchor:=cell.Offset(0, -1), Address:="", SubAddress:= _
        "'ARCHIVES - Historique'!A" & ligne
    End If
Next cell
    Columns("A:A").Select
    With Selection.Font
        .Name = "Tahoma"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
         Selection.Font.ColorIndex = 5
         Selection.Font.Underline = xlUnderlineStyleSingle
    End With
End Sub

Je te la livre à adapter à ton cas, faute de mieux.

Le principe, ca va chercher une référence dans une autre feuille et ca donne le numéro de ligne correspondant sous forme de lien... Ainsi en cliquant, je pars sur la feuille en question, sur la bonne ligne.

 

[donpopo]

Re : lien hypertexte qui ne se maintiennent pas

Un grand merci à tous deux,

Je m'en vais essayer ces deux propositions en les adaptant à mon cas.

Donpopo