Table des matières
Supprimer tous les hyperliens d'une feuille
Le code suivant supprime tous les hyperliens de Sheet1 :
12345 | Sub DeleteHyperLinks()Sheet1.Hyperlinks.DeleteFin du sous-marin |
Et si vous n'avez pas besoin d'une sous-routine réutilisable, mais plutôt d'une solution ponctuelle, utilisez la fenêtre d'exécution :
1. Sélectionnez la feuille à partir de laquelle supprimer les liens hypertexte
2. Appuyez sur Alt+F11 pour ouvrir le VBE
3. Dans le menu principal VBE, choisissez Affichage->Fenêtre immédiate
4. Dans la fenêtre Exécution, collez le code suivant, puis appuyez sur Entrée
1 | ActiveSheet.Hyperlinks.Delete |