Discussion :

[joe.levrai]

Qu'est-ce qui ne fonctionne pas ?

J'ai testé la procédure avant de te la proposer, j'ai bien obtenu la liste des classeurs et le nom DU module qui contenait la DECLARATION de la constante

[modus57]

Si je modifie ta procédure comme suit :

Ligne 6 remplacement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Résultat").Columns(1).ClearContents par Sheets("Résultat").Range("A2", Range("A2").End(xlDown)).ClearContents

Après la ligne 18 ajout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomClasseurOpen = Split(.SelectedItems(1), "\")(UBound(Split(.SelectedItems(1), "\")))

Après la ligne 26

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Résultat").Columns("A:A").Find("*", [A1], , , , xlPrevious).Offset(1, 0).Value = NomClasseurOpen & " : " & MonTest

La valeur dans la feuille Résultat A1 ="LISTE FICHIERS CONTENANT LA VARIABLE : " & MotRecherché

La valeur dans la feuille Résultat A2 = le nom du classeur qui contient le mot recherché sans le nom du module

[joe.levrai]

Pourquoi vouloir modifier ce qui reproduisait exactement le comportement que tu souhaitais ... pour y remettre tes anciennes lignes de code qui (du coup) ne seront pas compatibles en l'état avec ma proposition ?


Qu'est-ce qui nécessitât que tu modifies le code ? As-tu testé la proposition "telle quelle" ? Elle ne convient pas ?

[modus57]

J'ai testé ta proposition "telle quelle", elle renseigne bien la cellule A1 "LISTE FICHIERS CONTENANT LA VARIABLE : MotRecherché" mais la cellule A2 et les suivantes restent vides.

[joe.levrai]

Difficile à comprendre, car de mon côté j'ai ça en utilisant la procédure du post #19 :




Ôte-moi d'un doute : c'est bien une constante que tu cherches ?

[modus57]

Ce n'est pas une constante que je cherche mais un mot dixit mon post #4.

Au fil de la discussion j'ai dû utiliser par erreur le terme constante mais c'est bien d'un mot qu'il s'agit.

En remplaçant la ligne 42

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Lines(i, 1) Like "*" & "Const " & LaConstante & " As*" Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Lines(i, 1) Like "*" & LaConstante & "*" Then

Bingo ça fonctionne.

Il reste plus qu'à réaliser la customisation pour le traitement de tout un répertoire, toute une arborescence de répertoire, choisi ad hoc de l'utilisateur.

Alors là je ne suis pas certain d'y arriver, je vais quand même chiader sur ce sujet sans garantie de résultat ?

[joe.levrai]

J'avoue que la notion de constante ayant été abordée lors de la première description en #1, l'usage ultérieur (et postérieur, cf le titre de la discussion) de "mot" faisait référence à "constante" de façon vulgarisée

Soit, le principal c'est que tout roule !

Maintenant, tu peux passer à la customisation.
Ce n'est plus exactement la problématique de cette discussion qui peut être clôturée.

Là, tu dois simplement collecter une liste de fichiers et de répertoires, pour ensuite boucler dedans

Par exemple, afficher à la demande la fenêtre de choix de fichiers et/ou la fenêtre de choix de dossiers (msoFileDialogFolderPicker)
Une fois que tu as collecté tous les noms, tu lances ton traitement de recherche en bouclant dessus.
Si après réflexion, recherches, et tests, tu n'arrives pas à satisfaction, on se retrouvera peut-être dans une nouvelle discussion que tu ouvriras