Discussion :

[skorpio]

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

[Kikumaru]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[skorpio]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

???

[Kikumaru]

Bon eh bien je viens déjà de répondre à ta question dans mon edit du premier post .

[Invité]

Bonjour

Va consulter ce tuto de SilkyRoad.

Starec

[skorpio]

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

mais maintenant c'es autre message d'error de compilation ça ne te le fait pas à toi?

[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?