Bonjour à tous,

j'ai créé un outils pour des collègues qui crée une feuille "récapitulative" en analysant des données importées depuis une base de données, et leur tache consiste ensuite à analyser la feuille résultante ligne par ligne.

Comme le tableau est un peu conséquent suivant les critères de la requête, j'ai ajouté manuellement une macro dans la feuille (événement "SelectionChange") de manière à colorer la ligne sur laquelle se trouve leur pointeur la cellule active.

Je cherche donc comment créer ce code dynamiquement. J'ai trouvé comment lire les différents composents VB de mon projet avec la boucle suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim x As Integer
For x = 1 To ThisWorkbook.VBProject.VBComponents.Count
    MsgBox ThisWorkbook.VBProject.VBComponents.Item(x).Name
Next x
Je pensais ensuite faire un
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If ThisWorkbook.VBProject.VBComponents.Item(x).Name = [MaFeuille] then ...
Mais je ne suis pas certain de pouvoir récupérer la bonne feuille et d'y insérer ensuite du code avec la commande :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MaFeuille.CodeModule.InsertLines
Si tant est que ce soit la bonne...