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

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
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
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.SelectEnd 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 xLinkEnd 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 xLinkEnd 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 xLinkEnd 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.
lier les URL "select.special" specialcells routine sous-routine XL2000

Avertissement : Cet article a été traduit automatiquement.

Propriétés

ID d'article : 213790 - Dernière mise à jour : 02/01/2014 17:17:15 - Révision : 3.5

Microsoft Excel 2000 Standard

  • kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtfr
Commentaires