Bonsoir,

Lors de la création d'une feuille par macro, je souhaiterais que le module de celle-ci intègre un code. Pour ce faire, j'ai procédé de la façon suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim code As String
 
code = "Private Sub Worksheet_Change(ByVal target As Range)" & vbCrLf & _
"If target = ActiveSheet.Cells(10, 7) Then" & vbCrLf & _
"ActiveSheet.Cells(10, 7).Select" & vbCrLf & _
"Selection.Font.Color = -16752384" & vbCrLf & _
"End If" & vbCrLf & _
"End Sub"
 
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.AddFromString code
Malheureusement, à l'exécution de la macro, ça ne passe pas au niveau de la dernière ligne... Comment faut-il s'y prendre ?

Merci d'avance.