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