XL2000 : N° de commande de menu pour sélectionner tous les liens hypertexte dans une feuille de calcul

Traductions disponibles Traductions disponibles
Numéro d'article: 213790 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Symptômes

Microsoft Excel 2000 ne dispose d'aucune commande de menu vous permet de sélectionner tous les liens hypertexte dans une feuille de calcul.

Contournement

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite, y compris, sans que cela soit limitatif, les garanties implicites de qualité marchande et/ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.
Si vous ne maîtrisez que partiellement la programmation, il convient contacter un partenaire certifié Microsoft ou les services de conseil Microsoft. Pour plus d'informations, visitez ces sites Web de Microsoft :

Microsoft certifié partners - https://partner.microsoft.com/global/30000104

Avis de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

Pour plus d'informations sur les options de support technique disponibles et sur la façon de contacter Microsoft, reportez-vous au site Web de Microsoft à l'adresse suivante : http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPour contourner ce problème, utilisez une macro pour sélectionner toutes les cellules qui contiennent des liens hypertexte.
  1. Créer un nouveau classeur dans Microsoft Excel.
  2. Dans le menu Outils, pointez sur macro et cliquez sur Visual Basic Editor.
  3. Dans Visual Basic Editor, dans le menu Insertion, cliquez sur module.
  4. Tapez le code suivant dans le module :
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub
    					

Plus d'informations

Autres macros pour utiliser avec les liens hypertexte

Vous pouvez utiliser un Microsoft Visual Basic pour applications sous-routine pour passer en revue tous les liens hypertexte dans une feuille de calcul et d'effectuer une opération spécifique sur chaque lien hypertexte. Par exemple, vous pouvez supprimer tous les liens hypertexte ou vous pouvez simplement signaler l'emplacement de chaque lien hypertexte.

Remarque : certaines lignes de code ont été modifiés avec des caractères de continuité de ligne (_) pour ajuster ce document.
  1. Créer un nouveau classeur dans Microsoft Excel.
  2. Dans le menu Outils, pointez sur macro et cliquez sur Visual Basic Editor.
  3. Dans Visual Basic Editor, dans le menu Insertion, cliquez sur module.
  4. Tapez le code suivant dans le module :
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
    					
  5. Dans le menu fichier, cliquez sur Fermer et retourner à Microsoft Excel.
Si vous insérez des liens hypertexte dans votre feuille de calcul, vous pouvez exécuter les macros différentes en pointant sur macro dans le menu Outils, puis en cliquant sur macros. Sélectionnez le nom de la macro à exécuter, puis cliquez sur exécuter.

La macro DeleteAllHyperlinks() supprime la propriété lien hypertexte de la plage, mais pas le texte du lien hypertexte. Il laisse derrière le texte du lien hypertexte.

Références

Pour plus d'informations sur les liens hypertexte, dans Visual Basic Editor, cliquez sur Aide sur Microsoft Visual Basic dans le menu aide, tapez objet de lien hypertexte dans le Compagnon Office ou l'aide intuitive et puis cliquez sur Rechercher pour afficher la rubrique.

Propriétés

Numéro d'article: 213790 - Dernière mise à jour: samedi 1 février 2014 - Version: 3.5
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 2000 Standard
Mots-clés : 
kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 213790
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com