Version imprimable
Bonjour à tous,
je cherche à vérifier la présence de code dans un module avec une fonction boléenne mais rien ne se passe, pas même un message d'erreur.
j'ai ça :
Faut-il ajouter un référence ou autre chose ?Code:
2
3
4
5
6
7
8
9
10
merci d'avance.
Bonjour
J'ignore ce qu'est ce type.Code:Dim MDL as Module
1) quelle est ta version Excel ?
La mienne ne connaît ni ce type, ni la collection Modules
2) si Module est un type personnalisé : montre comment et ou il a été déclaré ...
et montre alors également dans la foulée où et comment aurait été créée et abondée une collection Modules !
Bonjour,
un ancien sujet où on recherchait à comparer deux constantes au sein d'un même projet
il ne reste qu'à épurer ... car pour comparer on doit les chercher, c'est le problème que tu as soulevé
https://www.developpez.net/forums/d1...e/#post8520378
Enfin quoi ....
Voilà par contre ce que je ferais, pour voir si Module1 contient par exemple le mot "end" ou "End" ou "END" :
Retournera forcément "vrai" chez toi s'il y a une macro (par exemple), puisqu'il y aura un end subCode:
2
3
Refais la même chose avec cherche = "abracadabra_et_patatipatata " et je suis certain (sauf si vraiment pas de bol) de ce que "faux" sera alors retourné, hein ...
Mais j'aimerai vraiment que tu répondes aux questions posées dans mon message précédent ...
Ceci ayant été dit :
Je me demande quelle pourrait être l'utilité pratique d'une telle démarche :koi:
A moins de développer comme un sabot, au point de penser que le code que l'on a écrit est truffé de conflits en tous genres, l'outil de recherche de l'éditeur est doté de tout ce qu'il faut, non ?
Il ne m'est jamais arrivé de penser, d'avoir besoin de le faire, à une telle recherche dynamique !!! :cfou:
Hello,
Merci Unparia pour tes réponses.
En effet, «*Dim MDS as Module*» vient d’un site mais s’applique à Access, je n’avais pas fait gaffe...
Pour ta dernière question au sujet de l’utilité de ma démarche, je vais essayer de l’expliquer clairement, même si je suppose que je me complique la vie pour rien et qu’il y a d’autres façons de faire...
J’ai créé un document Excel pour faire un suivi de budget.
Dans ce workbook, j’ai plusieurs onglets dons un pour les commandes et un pour les factures.
Un autre onglet me sert de database dans lequel j’ai renseigné une liste de plus de 100 bâtiments.
Que ce soit au niveau des factures ou des commandes. J’avais créé une listr Data Validation pour sélectionner le bâtiment concerné. Le problème est qu’il était impossible d’utiliser le scroll de la souris dans ce type de liste.
J’ai donc eu la bonne idée (ou la mauvaise...) de remplacer ces liste par des combobox activeX et d’utiliser un script trouver sur le net qui fonctionne pas trop mal pour le scroll souris (modHookWheelMouse)
A chaque fois que l’on encode une nouvelle facture par exemple, via un «*Sub Worksheet_change*», je créé le combobox sur la ligne concernée.
Chaque nouveau combobox est nommé comme tel : cmb_batiment_N avec N=numéro de la ligne Excel (comme ça je n’ai pas 2 fois le même nom...)
Je dois également a chaque fois ajouter un bout de code relatif au combobox dans le code de la feuille pour que le script modHookWheelMouse fonctionne.
Jusque là, tout fonctionne impeccablement. A chaque nouvelle facture ou commande, mes combobox ainsi que le code qui les accompagnent se créé automatiquement.
Quand je rentre une nouvelle facture ou commande, je commence dans la première colonne par rentrer le nº de facture (ou de commande) et c’est sur la modification de cette première colonne que je lance la création des combobox.
Mon problème est que si par erreur je fait une faute de frappe dans ce nº et que je le corrige, le Sub Worksheet_change me créé a nouveau le combobox et son code.
Mon idée était donc de vérifier a chaque modification de la colonne des nº si le code relatif au combobox exitait ou pas.
Donc voilà la cause de toute cette complication.
J’ai essayé ton code avec InStr mais il ne marche pas. J’ai ça:
Meme si mon text cmb_batiment_N se trouve dans le code de ma feuille, il me créé quand-meme le combobox et ça donne des conflicts ...Code:
2
3
4
5
6
7
8
9
Voilà, j’espère que mon explication tient la route. (Je l’ecrit depuis mon téléphone alors pas facile de se relire
Ah !
Où as-tu vu, dans mon code, que je traite instr comme une booléenne ? :koi:
Ceci t'afficherait Faux, non ? :
Alors ? --->> ne prends aucune liberté personnelle et traite comme je te l'ai montré. Cela vaudra mieux.;)Code:
2
3
Hello,
En effet, je pensais que InStr renvoyait True or False... alors qu’il renvois 0, 1 ou un nº de position...
J’ai simplement replacer :
par :Code:
2
3
Et ça marche !Code:
2
3
Merci beaucoup.
Je clôture le poste :)
Bonjour,
En cherchant autre chose, j'ai vu, dans l'aide VBA, la méthode :
Find, méthode (modèle d'objet du complément VBA)
Cette méthode sert exactement à ça.
Voir l'aide qui fournit également un exemple :
Citation:
Find, méthode, exemple
L'exemple suivant utilise la méthode Find pour vérifier que le bloc de lignes indiqué (de la ligne 1261 à 1279 dans notre exemple) d'un volet de code donné contient une chaîne ("Tabs.Clear", ici).
Application.VBE.CodePanes(2).CodeModule.Find( "Tabs.Clear", 1261, 1, 1280, 1, False, False)
Code:
2
3
If Cbool(InStr(ThisWorkbook.VBProject.VBComponents(“MaFeuille”).CodeModule.Lines(1, 1000), “Private Sub cmb_batiment_N”))Then