Rechercher dans le code VBA de tous les classeurs d'un répertoire + Visualiser le code trouvé V2.1

[crocrocro]

crocrocro a soumis une nouvelle ressource:

Rechercher dans le code VBA de tous les classeurs d'un répertoire + Visualiser le code trouvé - Outil de recherche dans le code VBA de tous les classeurs d'un répertoire - Aperçu du Code Trouvé

La fonction Rechercher de l’explorateur Windows, même avec l’Option Avancée Contenu du Fichier ne permet pas d’effectuer des recherches dans le code VBA des fichiers Excel.

Le fichier à télécharger permet :

• D’effectuer des recherches dans le code VBA des fichiers Excel d'un répertoire et de ses sous-répertoires.
• D’avoir un aperçu du code VBA issu de la recherche:
  • Uniquement les lignes trouvées
  • La Procédure...

En savoir plus sur cette ressource...

 

[scraper]

Pour les lignes ou apparaissent un mot as tu pensé à ajouter les lignes précédentes ou suivantes s'il y a des caractères de suite (le souligné)

 

[jurassic pork]

Hello,
Le Sleep (pas Kangourou) dans le module de la barre de progression ne fonctionne pas pour une version 64 bits d'Excel, il faut mettre :

 Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Ce code marche en 64 bits et 32 bits pour un VBA 7
Ami calmant, J.P

 

[scraper]

Hello,
Le Sleep (pas Kangourou) dans le module de la barre de progression ne fonctionne pas pour une version 64 bits d'Excel, il faut mettre :

 Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Ce code marche en 64 bits et 32 bits pour un VBA 7
Ami calmant, J.P

JP très drôle

 

[crocrocro]

Hello,
Le Sleep (pas Kangourou) dans le module de la barre de progression ne fonctionne pas pour une version 64 bits d'Excel, il faut mettre :

 Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Ce code marche en 64 bits et 32 bits pour un VBA 7
Ami calmant, J.P

Bonjour JP, et merci pour ton retour
effectivement, il faut modifier le code du USerForm
M

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Pour les lignes ou apparaissent un mot as tu pensé à ajouter les lignes précédentes ou suivantes s'il y a des caractères de suite (le souligné)

Bonjour scraper,
je suppose que tu veux parler de l'aperçu du contenu avec l'option "Uniquement les lignes trouvées".
Non, mon code ne le gère pas, au moins pour le moment. 🙁
Il faut cocher l'option "Le Code de la Procédure".

 

[crocrocro]

Une nouvelle version V2 est disponible. Son contenu :

• Ajout pour la Recherche d'un filtre sur le Type de Composant :
  • Classeur ou Feuille
  • Module Standard
  • Module de Classe
• Modifications mineures

 

[crocrocro]

Une nouvelle version V2.1 est disponible. Son contenu :

• Ajout de l'Option de Recherche sur la Description des Procédures
• Correction d'une erreur sur la recherche avec l'option ET
• Modifications de présentation

A l'attention des personnes qui téléchargeraient mon fichier :
J'aimerais avoir un retour sur les temps d'exécution du traitement de Recherche dans les conditions suivantes :
- Rechercher dans tout le code
- le texte (unique) recherché doit être inexistant (par exemple jeudi32mars)
- le nombre de fichiers traités doit être assez important (au minimum 20, 100 c'est bien)
- ne pas effectuer de traitement en parallèle
Avant de lancer l'exécution, mettre la Constante MODE_DEBUG du module Module_ChercherVBA à True
-> Les informations d'exécution sont déversées dans la fenêtre d'exécution (Debug.Print)

======================================================================
--- Recherche dans Tout le Code ---

Durée du traitement : 25 secondes
Nombre de Fichiers : 9
Nombre de Lignes de Code : 4123
Nombre de Procédures : 167
Nombre de boucles : 36
--------------------
Informations Système
--------------------
Processeur : Intel(R) Core(TM) i3-5005U CPU @ 2.00GHz
Mémoire RAM : 4 Go

Merci de les transmettre en réponse à cette discussion