Générer des macros?

Version imprimable

11/07/2007, 10h40
skorpio

Générer des macros?

Bonjour, je vous rassure je sais comment fonctionne une macro et je sais comment les concevoir, mon problème est plus complexe

Et-il possible de générer un macro, lorsque je suis déjà sur mon UserForm, sans même avoir une seule macro d'enregistré,
par exemple mon Userform est constitué d'un Label nommé ColonneA, d'un ChekBox et d'un commandButton...
Ma question est-il possible de générer une macro à partir de ce CommandButton?
je souhaite enregistré une macro qui effacerai ma colonneA...
Je sais pas si j'ai été assez clair;)

Si j'ai bien compris ce que tu as demandé est ce que ce code pourrait répondre à ton attente?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim W As Workbook
Dim vbM As VBComponent
 
Private Sub CommandButton1_Click()
 
    'correspondant au checkBox de la colonne A
    If CheckBox1.Value = True Then
        Set W = ActiveWorkbook 'prend le classeur courant
        'Crée un nouveau module dans le classeur
        Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule)
 
        'Ajoute la fonction qui efface la colonne A dans le classeur actif
        vbM.CodeModule.InsertLines 1, "Sub EffacerColonneA"
        vbM.CodeModule.InsertLines 2, "Range(""A:A"").clear"
        vbM.CodeModule.InsertLines 3, "End Sub"
 
        'si tu veux l'appeler
        Application.Run W.Name & "!EffacerColonneA"
    End If
 
End Sub

ps: réalisé grâce à la partie "Contribuez" du forum :lol:

(edit: il faut penser à rajouter la référence Microsoft Visual Basic For Applications Extensibility pour que ca fonctionne)

11/07/2007, 12h14
skorpio

il y a un problème dans la ligne de code

Code:

Set vbM = W.VBProject.VBComponents.Add(vbext_ct_StdModule)

ça dit : l'accés par programme au projet Visual Basic n'est pas fiable...

???:cry:
11/07/2007, 12h15
Kikumaru

Bon eh bien je viens déjà de répondre à ta question dans mon edit du premier post :P .
11/07/2007, 12h17
Invité

Bonjour

Va consulter ce tuto de SilkyRoad.

Starec
11/07/2007, 12h18
skorpio

je suis bête j'avé oublié de déclarer les variables en haut:oops:

mais maintenant c'es autre message d'error de compilation ça ne te le fait pas à toi?
11/07/2007, 14h23
Kikumaru

J'ai testé ce code sur une banale feuille excel avec juste un checkbox et un bouton de commande, le fait que ce soit sur un userform je ne pense pas que ca change grand chose. Quelle est ton erreur de compilation?
11/07/2007, 14h37
skorpio

c'est écrit que la méthode 'VBproject' de l'objet '_Workbook' a échoué
11/07/2007, 15h28
tirex28

Bonjour,

Outils>Macro>securite>Editeur approuvés>Cocher la case "Faire confiance au projet Visual Basic"

Cordialement,

Tirex28/
11/07/2007, 15h31
skorpio

merci à toi :king: enfin