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

[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