Créer Worksheet_Change dans une nouvelle feuille
Bonsoir à tous,
J'ai réaliser une macro qui me rajoute une feuille à un classeur, je voudrais savoir si on peut rajouter l'évènement "Private Sub Worksheet_SelectionChange" à la feuille ajouter par le biais de la macro ?
merci à vous
Bonjour,
essaie de travailler avec :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End SubBonjour et merci,
Mais ma feuille n'existe pas encore à l'intant "T", c'est la macro qui l'insere et je voudrais savoir si on peut lui rajouter l’événement " Private Sub Worksheet_SelectionChange" sans retourner dans le VBE
Bjr,
un exemple ...
' cocher la réference Microsoft Visual Basic for Applications Extensibility 5.3
With ActiveWorkbook.VBProject.VBComponents(Worksheets("nom_de_la_feuille").CodeName).CodeModule
ligne = .CountOfLines
.InsertLines ligne + 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines ligne + 2, "If Not Intersect(Target, Range(""A1"")) Is Nothing Then"
.InsertLines ligne + 3, "'_______"
.InsertLines ligne + 4, "End If"
.InsertLines ligne + 5, "End Sub"
End WithSuper merci à toi Steelson,
Je vais étudier ce post mais sa ressemble beaucoup à ce que je recherche. Encore Merci