Excel, créer une feuille à la volée et lui affecter du code [VBA] - VB/VBA/VBS - Programmation
Marsh Posté le 27-06-2002 à 16:42:21
ben tu ouvres l'éditeur et tu lui colles ce code dedans....
Marsh Posté le 27-06-2002 à 16:43:18
je ne sais pas mais en attendant essaye d'aller sur www.vbfrance.com, il y a des choses interressantes...
Marsh Posté le 27-06-2002 à 16:48:10
Harkonnen a écrit a écrit : ben tu ouvres l'éditeur et tu lui colles ce code dedans.... |
Si c'était si simple j'aurais pas posé la question. Je veux faire ça automatiquement, avec du code.
Marsh Posté le 27-06-2002 à 17:04:45
mais quel est l'interet de coller du code auto généré ? en assembleur c'est très utile, mais en VB ?
Marsh Posté le 27-06-2002 à 17:58:33
Harkonnen a écrit a écrit : mais quel est l'interet de coller du code auto généré ? en assembleur c'est très utile, mais en VB ? |
Imagine que tu desires avoir un evenement sur la feuille que tu as générée (du style qui se declenche à l'ouverture de la feuille)
Marsh Posté le 01-07-2002 à 21:23:38
Add, méthode (collection Sheets)
Collection de toutes les feuilles dans le classeur actif ou spécifié. La collection Sheets peut contenir des objets Chart ou Worksheet.
Je suis pas sûr que du code se mette dans un objet Worksheet ...
C'est que pour les feuilles "avec des cellules", non?
Donc je vois pas comment faire, a priori pas comme ça, dsl.
Marsh Posté le 27-06-2002 à 16:40:37
Salut,
J'essaie sous Excel de créer une feuille à la volée (pas trop dur ça ) et de lui affecter du code (là, sais pas faire ).
KK1 peut m'aider?
Pour créer la feuille:
Sub test()
Dim MonAppli As Application
Dim MonWorkbook As Workbook
Dim MaFeuille As Object
Set MonAppli = Application
Set MonWorkbook = Application.ActiveWorkbook
Set MaFeuille = MonWorkbook.Sheets.Add
End Sub
Le code que je veux ajouter à cette feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "test"
End Sub