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

Willmaz

XLDnaute Nouveau
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,
 

Pièces jointes

  • Equipe de france.xlsm
    20.9 KB · Affichages: 4

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans le fichier joint, cette macro qui semble fonctionner :
VB:
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
 

Pièces jointes

  • Equipe de france.xlsm
    29.7 KB · Affichages: 1

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou