Supprimer des liens hypertexte
bonjour,
j'ai recherché les sujets qui traitaient des liens hypertexte mais je n'ai pas trouvé de réponse à ma question qui est un peu précise. quelqu'un peut-il m'aider ?
en fait je cherche à supprimer des liens hypertexte dans une feuille excel :
je sais que je peux le faire un à un avec un clic droit, mais là il s'agit d'un grand nombre (1200...) : est-ce qu'on peut supprimer d'une seule action tous les liens hypertexte d'une feuille ?
merci d'avance !
Bonjour,
C'est possible avec une petite macro (suppression des liens hypertextes dans la feuille active, mais pas du texte associé au lien...)
Sub SupprimeLiensHypertextes()
Dim i As Integer
Dim NbLiens As Integer
NbLiens = ActiveSheet.Hyperlinks.Count
With ActiveSheet.Hyperlinks
For i = .Count To 1 Step -1
.Item(i).Delete
Next i
End With
End Sub
Voir fichier joint, ALT + F8 pour afficher la boîte de dialogue puis Exécuter
https://www.excel-pratique.com/~files/doc/SupprimerLiensHypertextes.xls
Cordialement,
V_Elbie
Bonjour,
bonjour, v_elbie
une commande, sans boucle :
Sub supp_hyperliens()
ActiveSheet.Hyperlinks.Delete
End SubBonjour,
Merci Félix, c'est vrai que c'est beaucoup plus simple comme ça.
Pour la petite histoire, je suis partie d'un code où je comptais le nombre de liens pour afficher un message, code que j'ai simplifié, mais apparemment pas au maximum !
Bonne journée,
V_Elbie
Bonjour,
En enlevant une variable dans le code de V_Elbie :
Sub SupprimeLiensHypertextes()
Dim i As Integer
With ActiveSheet.Hyperlinks
For i = .Count To 1 Step -1
.Item(i).Delete
Next i
End With
End SubAmicalement
Dan