Supprimer liens hypertexte

[nicolas]

Bonjour,

Je suis à la recherche d'une solution que je n'ai pas su trouver sur le forum pour supprimer tous les liens hypertextes contenus dans une feuille excel.

Merci

 

[Eric C]

Bonjour le forum
Bonjour nicolas

<http://www.excel-downloads.com/html/French/forum/messages/1_87274_87274.htm>

Un post à aller lire & bien sur à adapter.
Bon je file au boulot.
@ ++ Eric C

 

[michel]

bonjour Nicolas

je te proposes deux solutions pour supprimer les liens hypertextes dans la Feuil1
la premiere macro ne supprime que le lien
la deuxieme macro supprime le lien et la valeur de la cellule


Sub SuppressionHyperlinks()
Sheets("Feuil1").Hyperlinks.Delete
End Sub

Sub SuppressionHyperlinksEtValeurCellule()
Dim Lien As Hyperlink
For Each Lien In Sheets("Feuil1").Hyperlinks
Range(Lien.Range.Address) = ""
Next
End Sub


bonne journée
MichelXld

 

[nicolas]

Merci à tous

 

[michel]

bonjour Eric

excuses moi de ne pas t'avoir salué . J'ai oublié de rafraichir l'écran et nos messages se sont croisés


bonne journée à toi
MichelXld