Microsoft 365 Lien hypertexte sur dernière cellule non vide d'une colonne

[Willmaz]

Bonjour,
J'ai ce petit bout de code qui me permet de modifier des liens hypertextes dans une feuille de calcul, mais ce code s'applique à toute la feuille à chaque fois qu'il se lance. je souhaiterai qu'il s'applique uniquement à la dernière cellule de la colonne A (qui comporte évidement un lien cliquable) . N'étant pas très doué, je n'y arrive pas...

Sub modif_liens()
Dim Hpk As Hyperlink
Dim strLien As String

For Each Hpk In Worksheets("Feuil1").Hyperlinks
strLien = Hpk.Address
Debug.Print strLien
Hpk.Address = Replace(strLien, "\", "/")
Next Hpk
MsgBox ("terminé")
End Sub

Cordialement,

 

[Hasco]

Bonjour,

Dans le fichier joint, cette macro qui semble fonctionner :

Sub modif_liens()
   'Travailler sur la collection des liens de la colonne 1
    With ThisWorkbook.Sheets("Feuil1").Columns(1).Hyperlinks
        ' en traiter le dernier item
        With .Item(.Count)
             'Faire le remplacement
            .Address = Replace(.Address, "\", "/")
            Debug.Print .Address
            MsgBox ("terminé" & vbCrLf & .Address)
        End With
    End With
End Sub

Cordialement

 

[Willmaz]

Ça fonctionne merci!
Et si jamais je souhaite supprimer les 6 premiers caractères de mon lien.. "Replace" ne fonctionne pas apparemment... Ça serait quoi la commande?

 

[Hasco]

Re,

Donnez des exemples dans un fichier avec la macro.

Cordialement

 

[Willmaz]

Oh non finalement avec une astuce on peu utiliser "Replace" pour supprimer des caractères! Il suffit de mettre en deuxième argument des ""! Merci pour tout et bonne soirée!