Programmer dynamiquement un événement

Bonjours à tous,

Je suis nouvel utilisateur sur ce forum car je n'ai pas trouvé de solution à mon problème qui est le suivant :

J'ai présentement un fichier macro excel qui démarre automatiquement lorsque excel démarre (Folder XLSTART). J'ai donc un module standard qui contient une macro Sub YYY () et je dois gérer un autre classeur que je nomme pour la présente : Master.xls

Ce que j'aimerais parvenir à faire, c'est insérer du code VBA (un événement Worksheet_Change) à l'intérieur d'une feuille dans le Master.xls

Tous ce tracas pour faire quoi? Simplement gérer la hauteur des lignes a un minimum de 25 si le autofit la réduit à moins que cela. Je connais d'autre alternative moins intéressante pour arriver a le faire, mais si quelqu'un peu me dire comment faire cela, je serais grandement satisfait.

Je ne veux pas le faire manuellement avant de travailler dans la feuille, le tout doit être fait dynamiquement avec la macro YYY().

Merci à tous et j'attends de votre aide
À bientôt
Rick8-)

Salut et bienvenu
Essai quelque chose comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Sub yyy() Dim code As String   'On crée le code se rapportant au bouton code = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf code = code & "Le reste de ton code" & vbCrLf code = code & "End Sub"   ' Ecriture du code dans le module de la feuille (fs) With Workbooks("Master.xls").VBProject.VBComponents(Sheets("Feuil1").CodeName).CodeModule .InsertLines .CountOfLines + 1, code End With   End Sub

---

Il reste a adapter a ton besoin
Il serait peut etre également judicieux de verifier qu'il n'existe pas déjà une implementation de Worksheet_Change avant de rajouter du code, un teste sur l'existance de la chaine

Code:

---

"Private Sub Worksheet_Change(ByVal Target As Range)"

---

dans

Code:

---

Workbooks("Master.xls").VBProject.VBComponents(Sheets("Feuil1").CodeName

---

devrait suffire je pense (jamais fait).
A++
Qwaz