Rechercher commande ne fonctionne pas sur des feuilles de calcul dans le groupe

Traductions disponibles Traductions disponibles
Numéro d'article: 124105 - 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

Lorsque vous utilisez la boîte de dialogue Rechercher pour rechercher des informations spécifiques, Microsoft Excel recherche uniquement la première occurrence de la valeur (même si vous avez sélectionné plusieurs feuilles de calcul qui contiennent ces informations).

Si les informations ne se trouve pas dans la feuille de calcul active, même si elle se trouve sur une autre feuille dans le groupe, le message d'erreur suivant s'affiche :
Impossible de trouver les données correspondantes
Remarque : Il n'est pas un problème lorsque vous utilisez la commande Remplacer. Uniquement la commande Rechercher présente ce problème.

Cause

Ce problème se produit car la commande Rechercher ne fonctionne pas sur des feuilles de calcul groupées. L'aide de Microsoft Excel indique que si un groupe de feuilles est sélectionné, la commande Rechercher recherche toutes les feuilles dans le groupe à l'exception des modules Visual Basic. Ce n'est pas le comportement réel. Lorsque vous sélectionnez plusieurs feuilles de calcul et que vous utilisez la commande Rechercher pour rechercher des informations sur une feuille de calcul, seule la première occurrence de la valeur est trouvée.

Statut

Microsoft a confirmé l'existence de ce problème dans les produits Microsoft répertoriés au début de cet article. Ce problème ne se produit plus dans Microsoft Excel 2000.

Contournement

Pour contourner ce problème, vous pouvez utiliser un Microsoft Visual Basic macro VBA (sous-procédure) pour rechercher chaque feuille de calcul sélectionnée en mode groupe.

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut, mais n'est pas limité à, les garanties implicites de qualité, d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec 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. Pour créer la macro, procédez comme suit :
  1. Enregistrer et fermez les classeurs ouverts, puis créez un nouveau classeur.
  2. Si vous utilisez Microsoft Excel 97, procédez comme suit :

    1. Dans le menu Outils, pointez sur macro, puis cliquez sur Visual Basic Editor pour démarrer l'éditeur Visual Basic.
    2. Dans le menu Insertion, cliquez sur module
    Si vous utilisez Microsoft Excel 7.0 ou antérieure, pointez sur macro dans le menu Insertion, cliquez sur module.
  3. Tapez le code suivant dans le module :
          Sub FindData()
    
         ' This Sub prompts you for a value and searches each worksheet
         ' that is selected in group mode. If it finds the search value,
         ' the routine prompts you to continue the search on the sheet.
         ' If it does not find the value on the sheet, it goes to the
         ' next sheet. You can cancel the search on the sheet by
         ' answering No to "Look for another value..." and then
         ' answering Yes to "Cancel the search ...".
         '
         ' WARNING: When this macro ends, the workbook will no longer be
         ' in group mode.
    
         testValue = InputBox("Enter the value to search for : ")
         For Each x In ActiveWindow.SelectedSheets
             x.Select
             Set foundcell = ActiveSheet.Cells.Find(testValue)
             If foundcell Is Nothing Then
                 MsgBox "The word was not found"
             Else
                 MsgBox "The word was found in cell " & foundcell.Address
                 Range(foundcell.Address).Select
    
          LookAgain:
                 response = MsgBox _
                     ("Look for another value on this sheet?", vbYesNo)
    
                 ' If response = 6, we will not continue searching on
                 ' this sheet.
                 If response = 6 Then
    
                     ' Part2
                     Set foundcell = _
                         ActiveSheet.Cells.FindNext(after:=ActiveCell)
                     Range(foundcell.Address).Select
                     GoTo LookAgain
                 End If
    
                 If response = 7 Then
                     response = MsgBox("Cancel search ? ", vbYesNo)
                     If response = 6 Then End
                     GoTo NextSheet
                 End If
             End If
    
        NextSheet:
            Next x
            MsgBox "Search is complete ....."
    
        End Sub
    						
  4. Si vous utilisez Microsoft Excel 97, cliquez sur «Fermer et retourner à Microsoft Excel» dans le menu fichier pour basculer vers Microsoft Excel.
  5. Sélectionnez les feuilles de calcul (mode de groupe) que vous souhaitez rechercher. Utilisez la méthode appropriée à votre situation :

    • Si vous souhaitez sélectionner deux ou plusieurs feuilles adjacentes, cliquez sur l'onglet correspondant à la première feuille, maintenez la touche MAJ enfoncée et cliquez sur l'onglet correspondant à la dernière feuille. - ou -

    • Si vous souhaitez sélectionner deux ou plusieurs des feuilles non adjacentes, cliquez sur l'onglet correspondant à la première feuille, maintenez la touche CTRL enfoncée et cliquez sur les onglets des autres feuilles. - ou -

    • Si vous souhaitez sélectionner toutes les feuilles du classeur, cliquez avec le bouton droit sur un onglet de feuille, puis cliquez sur Sélectionner toutes les feuilles dans le menu contextuel.
  6. Si vous utilisez Microsoft Excel 97, procédez comme suit :

    • Dans le menu Outils, pointez sur macro, puis cliquez sur macros.
    • Cliquez sur la macro FindData, puis cliquez sur Exécuter. Suivez les instructions fournies dans les boîtes de dialogue qui s'affichent.
    Si vous utilisez Microsoft Excel 7.0 ou antérieure, procédez comme suit :

    • Dans le menu Outils, cliquez sur macro.
    • Cliquez sur FindData et cliquez sur Exécuter.

Références

Microsoft Excel 97

Pour plus d'informations sur la commande Rechercher dans le menu Edition, cliquez sur l'onglet Index dans l'aide de Microsoft Excel, tapez le texte suivant :
Recherche de données
puis double-cliquez sur le texte sélectionné pour aller à la rubrique «Rechercher ou remplacer des données».

Microsoft Excel 5.0

Pour plus d'informations à propos de la commande Rechercher (dans le Menu Edition), cliquez sur le bouton Rechercher dans aide et tapez :
Rechercher commande (Menu Edition)

Propriétés

Numéro d'article: 124105 - Dernière mise à jour: mardi 4 février 2014 - Version: 2.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 97 Standard
  • Microsoft Excel 95 Standard
  • Microsoft Excel 5.0c
  • Microsoft Excel 95a
  • Microsoft Excel 5.0 pour Macintosh
  • Microsoft Excel 5.0a pour Macintosh
  • Microsoft Excel 5.0 Standard
Mots-clés : 
kbnosurvey kbarchive kbmt kbdtacode kbprb kbualink97 KB124105 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: 124105
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.

Kontaktieren Sie uns, um weitere Hilfe zu erhalten

Kontaktieren Sie uns, um weitere Hilfe zu erhalten
Wenden Sie sich an den Answer Desk, um professionelle Hilfe zu erhalten.