Création d'une macro événement feuille depuis une macro VBA

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:

---

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:

---

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:

---

MaFeuille.CodeModule.InsertLines

---

Si tant est que ce soit la bonne...

Re Bonjour,

a force de bucher j'ai fini par résoudre le problème moi même... c'était bien la peine de poster me direz vous !

voici donc la solution, à toutes fins utiles.
Je me suis souvenu que les objets créés dans Excel se voyaient toujours attribuer l'index d'objet le plus élevé (le dernier en somme). Ca semblait si simple que je n'avais pas osé essayer. J'ai donc trouvé ma feuille de la manière suivante, puis lui ai attribué son code :

Code:

---

1 2 3 4 5 6 7 8

With ThisWorkbook.VBProject.VBComponents.Item(ThisWorkbook.VBProject.VBComponents.Count).CodeModule .InsertLines 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" ' puis chaque ligne de code individuellement, ' pour les textes entre guillemets, il suffit de doubler les guillemets ' comme ceci : .InsertLines 2, "MsgBox (""Hello World"",VbOkOnly)" .InsertLines 3, "End Sub" End With

---

Bonne continuation à tous !!