Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Rechercher dans plusieurs fichiers

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous

En mars 2022, j'avais posté sur ce sujet et en août 2022, j'avais retenu la proposition (#Post144) de job75 (Gérard) qui fonctionne toujours nikel bien.
Merci à tous les intervenants et à Gérard

Mon besoin ayant évolué et je reviens sur le sujet...
Mon besoin d'aujourd'hui
- Quand quelqu'un m'appelle, c'est toujours que je l'ai appelé auparavant et je dois le rappeler au plus vite pendant qu'il est dispo.
Il me faut savoir, avant de le rappeler, ce j'ai mis dans les commentaires de mon appel précédent pour savoir comment je dois lui parler,

- Pour le savoir, il me faut ouvrir le classeur à l'aide du code de Gérard. Mais mon fichier est gros et l'ouverture est un peu longue.

Le code de Gérard est quasi instantané et me permettrait de rappeler presque immédiatement
- Il me faudrait dans le classeur qui contient le code de Gérard avoir les infos suivantes :
- (Le nom du réseau (col A du classeur de travail) - le nom de l'agent (col B du classeur de travail) - et mes commentaires (col L du classeur de travail)

Ma demande
J'ai tenté de modifier le code mais jusqu'à maintent, je n'ai pas réussi.

Pourriez-vous m'aider ? (lol ça m'arrangerait bien )
En cas, je joins les troix classeurs
- Le classeur avec le code de gérard qui contient les n° tests à chercher en feuille "n° à chercher"
- N° à coller "simple clic" en "M1"
- 2 classeurs de travail test (isiTel_Lionel Sextant 2024 01 17 et isiTel_Lionel Sextant2 2024 01 17 e )

Un très grand merci pour ce code qui me permettrait de rappeler au plus vite.
Entre temps, je continue à bidouiller...
 

Pièces jointes

  • isiTel_Lionel Sextant 2024 01 17.xlsx
    43.1 KB · Affichages: 8
  • isiTel_Lionel Sextant2 2024 01 17.xlsx
    43.1 KB · Affichages: 8
  • 01 Recherche numéro OK4bis.xlsm
    40.1 KB · Affichages: 8
Dernière édition:
Solution
Bonjour Lionel, le forum,
- Est-il possible que ça fonctionne aussi si classeurs ouverts ?
C'est une très bonne question.

En effet si le classeur .xlsx est ouvert ExecuteExcel4Macro crée un bug quand la feuille n'existe pas.

Je ne comprends pas la raison de ce bug mais pour y remédier utilise les fichiers joints avec :
VB:
            On Error Resume Next
            If IsError(ExecuteExcel4Macro(x & "R1C1")) Then 'vérifie que la feuille existe
            Else
                On Error GoTo 0
A+

Usine à gaz

XLDnaute Barbatruc
Re-Gérard
Voilà où j'en suis voir fichier joint :
- Je suis reparti de ton dernier code
- J'ai ajouté "change R" pou n'avioir qu'à cliquer gauche en M1,
Je peux chercher les formats suivants :
- 33 6 00 00 00 00
- 33600000000
- 0600000000
- 600000000

ça fonctionne nickel

Ce qu'il me reste :
J'aimerais (pour augmenter la largeur de certaines colonnes) supprimer les colonnes "K,L et M)
et que le n° contenu dans le presse papier soit recherché et inscrit en D1

Je m'y colle cette nuit lol
 

Pièces jointes

  • 01 Recherche Gérard5.xlsm
    67.1 KB · Affichages: 1

job75

XLDnaute Barbatruc
Tu devrais te rendre compte que ta macro Worksheet_SelectionChange ne sert à rien.

C'est ton plus gros défaut : créer des codes à tout va sans te préoccuper de leur véritable intérêt.
 

Usine à gaz

XLDnaute Barbatruc
Re

Enfin, je l'ai eu le vilain coquin
Mais si je ne laisse le code Worksheet_SelectionChange, ça ne fonctione pas !
Où j'ai encore rien compris
Mais ça fonctionne nickel comme ça.

Evidement, sans toi, je n'y serais jamais arrivé.
Encore merci et merci aussi pour ta patience et ton contrôle de toi lol.
Fichier test joint
 

Pièces jointes

  • 01 Recherche Gérard6.xlsm
    66.8 KB · Affichages: 1

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…