Discussion :

[phoenellion]

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...

[phoenellion]

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 :

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

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 !!