Discussion :

[moi244]

Bonjour à tous,
j'aimerais insérer un code dans chacun des feuille créées par macro. j'ai suvi un excellent document pdf trouvé sur SilkyRoad, et j'ai activé la référence: Microsoft Visual Basic for ApplicationsExtensibility 5.3
Mais cela`ne semble pas fonctionner, avez-vous une idée?



...
....

Code :

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

1
2
3
4
5
6
7
8
 With ActiveWorkbook.VBProject.VBComponents(NomdeFeuilCree).CodeModule
                    x = .CountOfLines
                    .InsertLines x + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
                    'Chr(38) permet d'insérer le symbole & dans la procédure.
                    .InsertLines x + 2, _
                    "Call DetailCellule"
                    .InsertLines x + 3, "End Sub"
                End With

En passant, quand j'ajoute ub espion sur le x, la valeur de ce dernier reste a vide!
Je ne sais pas si ça peut aider,
Merci

[Invité]

Et comme ça ?

Code :

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

1
2
3
4
5
6
    With ActiveWorkbook.VBProject.VBComponents(NomdeFeuilCree.CodeName).CodeModule
        x = .CountOfLines
        .InsertLines x + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
        .InsertLines x + 2, "Call DetailCellule"
        .InsertLines x + 3, "End Sub"
    End With

[moi244]

Même chose