Je n'ai pas trouv=E9 comment supprimer d'un coup tous les=20
liens hypertexte d'une feuille (j'en ai des centaines). La=20
commande 'Lien Hypertexte/Supprimer le lien hypertexte'=20
fonctionne bien sur une s=E9lection multiple =E0 condition que=20
toutes les cellules de la s=E9lection ait un lien, ce qui=20
revient =E0 v=E9rifier cellule par cellule l'existence d'un=20
lien. Pas tr=E8s pratique
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
denis
Bonjour, en VBA Sub SupHyLi() Selection.Hyperlinks.Delete End Sub marche sur une sélection multiple ou seulement certaines cellules ont un lien hypertexte
denis
-----Message d'origine----- Je n'ai pas trouvé comment supprimer d'un coup tous les liens hypertexte d'une feuille (j'en ai des centaines). La
commande 'Lien Hypertexte/Supprimer le lien hypertexte' fonctionne bien sur une sélection multiple à condition que
toutes les cellules de la sélection ait un lien, ce qui revient à vérifier cellule par cellule l'existence d'un lien. Pas très pratique .
Bonjour,
en VBA
Sub SupHyLi()
Selection.Hyperlinks.Delete
End Sub
marche sur une sélection multiple ou seulement certaines
cellules ont un lien hypertexte
denis
-----Message d'origine-----
Je n'ai pas trouvé comment supprimer d'un coup tous les
liens hypertexte d'une feuille (j'en ai des centaines).
La
commande 'Lien Hypertexte/Supprimer le lien hypertexte'
fonctionne bien sur une sélection multiple à condition
que
toutes les cellules de la sélection ait un lien, ce qui
revient à vérifier cellule par cellule l'existence d'un
lien. Pas très pratique
.
Bonjour, en VBA Sub SupHyLi() Selection.Hyperlinks.Delete End Sub marche sur une sélection multiple ou seulement certaines cellules ont un lien hypertexte
denis
-----Message d'origine----- Je n'ai pas trouvé comment supprimer d'un coup tous les liens hypertexte d'une feuille (j'en ai des centaines). La
commande 'Lien Hypertexte/Supprimer le lien hypertexte' fonctionne bien sur une sélection multiple à condition que
toutes les cellules de la sélection ait un lien, ce qui revient à vérifier cellule par cellule l'existence d'un lien. Pas très pratique .
papou
Bonjour En complément de la réponse de Denis voici deux autres méthodes (à copier dans un module standard) : La 1ère supprime l'ensemble des liens dans une feuille spécifiée, la 2ème fait la même chose sur l'ensemble des feuilles du classeur. Sub SupLiensFeuille() Dim Lien As Hyperlink For Each Lien In Worksheets("Feuil1").Hyperlinks Lien.Delete Next Lien End Sub Sub SupLiensClasseur() Dim NbF As Long Dim Lelien As Hyperlink For NbF = 1 To Sheets.Count For Each Lelien In ThisWorkbook.Sheets(NbF).Hyperlinks Lelien.Delete Next Lelien Next NbF End Sub
Cordialement Pascal
"Claudette John" a écrit dans le message de news:1cc8701c45358$cf11bc50$ Je n'ai pas trouvé comment supprimer d'un coup tous les liens hypertexte d'une feuille (j'en ai des centaines). La commande 'Lien Hypertexte/Supprimer le lien hypertexte' fonctionne bien sur une sélection multiple à condition que toutes les cellules de la sélection ait un lien, ce qui revient à vérifier cellule par cellule l'existence d'un lien. Pas très pratique
Bonjour
En complément de la réponse de Denis voici deux autres méthodes (à copier
dans un module standard) :
La 1ère supprime l'ensemble des liens dans une feuille spécifiée, la 2ème
fait la même chose sur l'ensemble des feuilles du classeur.
Sub SupLiensFeuille()
Dim Lien As Hyperlink
For Each Lien In Worksheets("Feuil1").Hyperlinks
Lien.Delete
Next Lien
End Sub
Sub SupLiensClasseur()
Dim NbF As Long
Dim Lelien As Hyperlink
For NbF = 1 To Sheets.Count
For Each Lelien In ThisWorkbook.Sheets(NbF).Hyperlinks
Lelien.Delete
Next Lelien
Next NbF
End Sub
Cordialement
Pascal
"Claudette John" <claudette.john@vatis.fr> a écrit dans le message de
news:1cc8701c45358$cf11bc50$a301280a@phx.gbl...
Je n'ai pas trouvé comment supprimer d'un coup tous les
liens hypertexte d'une feuille (j'en ai des centaines). La
commande 'Lien Hypertexte/Supprimer le lien hypertexte'
fonctionne bien sur une sélection multiple à condition que
toutes les cellules de la sélection ait un lien, ce qui
revient à vérifier cellule par cellule l'existence d'un
lien. Pas très pratique
Bonjour En complément de la réponse de Denis voici deux autres méthodes (à copier dans un module standard) : La 1ère supprime l'ensemble des liens dans une feuille spécifiée, la 2ème fait la même chose sur l'ensemble des feuilles du classeur. Sub SupLiensFeuille() Dim Lien As Hyperlink For Each Lien In Worksheets("Feuil1").Hyperlinks Lien.Delete Next Lien End Sub Sub SupLiensClasseur() Dim NbF As Long Dim Lelien As Hyperlink For NbF = 1 To Sheets.Count For Each Lelien In ThisWorkbook.Sheets(NbF).Hyperlinks Lelien.Delete Next Lelien Next NbF End Sub
Cordialement Pascal
"Claudette John" a écrit dans le message de news:1cc8701c45358$cf11bc50$ Je n'ai pas trouvé comment supprimer d'un coup tous les liens hypertexte d'une feuille (j'en ai des centaines). La commande 'Lien Hypertexte/Supprimer le lien hypertexte' fonctionne bien sur une sélection multiple à condition que toutes les cellules de la sélection ait un lien, ce qui revient à vérifier cellule par cellule l'existence d'un lien. Pas très pratique