Bonjour le forum
Je propose ici un code que j'utilise pour faire des extractions "intuitives". Je vous laisse découvrir mon fichier. N'hésitez pas à me laisser des critiques constructives
PatchNotes V3 :
* Ajout : La possibilité de choisir si l'utilisateur veux importer une feuille (ou une ensemble de feuilles) ou réaliser une extraction intuitive.
* Optimisation : Contrôle des nom de feuilles feuilles importées.
* Optimisation : Gestion des erreurs
PatchNotes V2 :
* Ajout : La possibilité d'utiliser un fichier Excel déjà ouvert comme fichier source.
* Ajout : L'utilisateur peut choisir de fermer automatiquement ou non le fichier source après extraction.
* Optimisation : Si l'utilisateur essaye d'ouvrir un fichier déjà ouvert, un test de sécurité est réalisé.
* Optimisation : La feuille comportant l'extraction est maintenant créé juste avant le début de l'extraction.
Comment réaliser une extraction intuitive :
- Téléchargez le fichier ci-dessous
- Ouvrez ou sélectionnez le fichier dans lequel vous souhaitez faire une extraction. Le fichier sélectionné sera ouvert en lecture seule pour éviter touts risques de corruption.
- Sélectionnez la zone où effectuer l'extraction intuitive (avec les entête si possible). La sélection ne doit pas être en champs discontinues
- Validez OUI si la sélection comporte des entêtes de colonnes
- Tapez dans la zone de recherche un critère d'importation qui peut être un mot, une suite de lettres, un chiffre ou un nombre
- Si l'extraction est concluante (si le critère de recherche est trouvé dans la zone de recherche), une feuille d'extraction est crée
- Toutes les lignes comprenant votre critère de recherche y sont importées
- Pour facilité l'analyse de l'extraction, les résultat seront mis en surbrillance jaune et les caractères en gras.
Si, sur une même ligne de la plage se trouve plusieurs fois le terme cherché cette ligne sera extraite qu'une seul fois. Vous pouvez extraire autant de fois une ligne qu'il y a le terme cherché sur cette même ligne en mettant à l'état "False" le paramètre ci-dessous dans le projet VBA (Module 1).
CtrlExt = True
En espèrent rendre service
Fonctionnement :
Principe de fonctionnement :