Comment générer du code vba dynamiquement ?

Version imprimable

19/08/2008, 10h32
Filippo

Comment générer du code vba dynamiquement ?

bonjour,
j'ai un classeur dans lequel il est possible d'insérer de nouveaux onglets en appuyant sur un bouton.

J'aurais besoin de définir sur ces nouveaux onglets un événement

Code:

Worksheet_Change

pour que du code soit éxécuté quand une cellule change de valeur.

Je ne sais pas comment générer cette procédure

Code:

Worksheet_Change

à l'insertion du nouvel onglet; cette insertion se fait par du code VBA dans un module avec

Code:

Sheets.Add

.

J'aimerais que cette procédure

Code:

Worksheet_Change

s'écrive automatiquement à la création du nouvel onglet dans le code de cet onglet.

Si quelqu'un sait comment faire, je suis preneur.

Merci ;)
19/08/2008, 10h47
Invité

Bonjour

D'abord un article à lire pour savoir écrire du code avec du code :

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Starec

Bonjour,

Tu trouveras toutes les explications dans ce tuto ;)
(voir notamment le chapitre V)

Tu dois, comme dans l'exemple du tutoriel ci-dessus, nommer les objets que tu insères. Pour éviter de donner un nom déjà existant tu peux par exemple attribuer le même nom à chaque objet en ajoutant un numéro, numéro qui correspondra au nombre d'objets.

En reprenant l'exemple de code du tuto, cela donnerait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub test()
Dim Ws As Worksheet
Dim Obj As OLEObject
Dim laMacro As String
Dim x As Integer
Dim Nom As String
 
Set Ws = Sheets.Add 'Ajoute une nouvelle feuille
Nom = "Obj" & ActiveSheet.Shapes.Count + 1
 
'ajoute un CommandButton dans la nouvelle feuille
Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
With Obj
    .Name = Nom 'renomme l'objet
    .Left = 50 'position horizontale par rapport au bord gauche de la feuille
    .Top = 50 'position verticale par rapport au bord haut de la feuille
    .Width = 150 'largeur
    .Height = 30 'hauteur
    .Object.Caption = "Supprimer données feuille" 'inscription sur le bouton
End With
 
'Spécifie le contenu de la macro qui sera associée au bouton
laMacro = "Sub " & Nom & "_Click()" & vbCrLf
laMacro = laMacro & "Cells.Clear" & vbCrLf
laMacro = laMacro & "End Sub"
 
'Ajoute la procédure dans la feuille
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    x = .CountOfLines + 1
    .InsertLines x, laMacro
End With
 
End Sub

Merci beaucoup pour vos réponses.
C'est ce que je voulais faire.

;)

Voilà mon code qui marche, si ça peut intéresser quelqu'un d'autre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AjouteCodeAOnglet(MyOnglet As String)
  'Ajoute la procédure dans la feuille
 
    Dim NomVb As String
    NomVb = Sheets(MyOnglet).CodeName
 
    Dim X As Integer
    With ActiveWorkbook.VBProject.VBComponents(NomVb).CodeModule
        X = .CountOfLines
        If X=0 Then X=1
        'là on insère les lignes du code VBA qui sera dans le code de l'onglet
        .InsertLines X + 1, "Private Sub WorkSheet_Change(ByVal Target As Range) " & vbCrLf
        .InsertLines X + 2, " Call MiseAJourClasseur " & vbCrLf
        .InsertLines X + 3, "End Sub"
    End With
 
 End Sub

Exemple d'utilisation :

Code:

Call AjouteCodeAOnglet("Toto")

Crée un onglet "Toto" avec le code suivant dans le VBA de l'onglet :

Code:

1
2
3
Private Sub WorkSheet_Change(ByVal Target As Range)
 Call MiseAJourClasseur
End Sub