Discussion :

[ricktherack]

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
Rick

[Qwazerty]

Salut et bienvenu
Essai quelque chose comme cela

Code :

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

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 :

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

"Private Sub Worksheet_Change(ByVal Target As Range)"

dans

Code :

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

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

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