Créer bouton en VBA Fermé

Question

Bonjour,

Je travaille sur un fichier assez lourd et pour un utilisateur sans aucunes connaissances de VBA

Mon objectif est de lui faciliter le travail sur le fichier en mettant des boutons entre chaque macro, afin qu'il puisse modifier éventuellement son fichier entre chaque étape.

Ce que je souhaite donc est: a la fin de ma macro1, créer un bouton qui permette de lancer la macro2

Je debute en VBA et j'ai trouvé le code suivant en regardant un peu partout sur le net: 

Sub Macro1()
... 
...

Dim bouton As OLEObject

Set bouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=451.5, Top:=231, Width:=200, Height:=71)
bouton.Name = "boutonBA"
'texte sur le bouton
ActiveSheet.OLEObjects(1).Object.Caption = "Lancer la macro2"

Code = "Sub BoutonAna_Click()" & vbCrLf
    Code = Code & "Call Macro2" & vbCrLf
    Code = Code & "End Sub" 

End Sub

Sub Macro2()
...
...
End Sub

Le bouton se crée bien sur ma feuille de travail, ma macro2 fonctionne bien quand je la lance moi-meme, mais le bouton créé ne réagit pas en cas de clic.

Le probleme vient-il de la syntaxe, de la position du code bouton dans le code global, bref, comment faire pour que ca fonctionne?

Merci d'avance pour vos réponses

rixm86 · Answer

j'oubliais de préciser que la feuille sur laquelle se trouve le bouton est créée par la macro1

BloodyAngel · Answer

Hello
j'ai réalisé une chose semblable sinon qu'elle tournait sous Access.

Dim mdl As Module                   ' Pour Event
Dim ctl As Control                  ' Controle
Set ctls(c) = CreateControl("TodayOps", acLabel, acDetail, , , x, y, 3000, 300)
With ctls(c)
 .Caption = CStr(tabTriIn(0, 4))
 .Name = "Lab" + CStr(c) + "4"
 .BorderStyle = 0
 .FontBold = False
 .FontSize = 8
 .ForeColor = RGB(0, 0, 0)
 .TextAlign = 1
End With
Set mdl = frm.Module
lng = mdl.CreateEventProc("Click", ctls(c).Name)



'***************************


Private Sub CreeMod()

Dim md As Module
Dim i As Integer

On Error GoTo MyErr
Set md = Application.Modules("Form_TodayOps")
md.InsertLines md.CountOfLines + 1, "Private Sub ModifJS()"
md.InsertLines md.CountOfLines + 1, ""
md.InsertLines md.CountOfLines + 1, ""
md.InsertLines md.CountOfLines + 1, ""


Exit Sub
MyErr:
i = MsgBox("Sorry but it seems there is an internal error. They application will not work correctly", vbCritical + vbOKOnly, "ERROR")
Exit Sub

End Sub


/****************************

Le premier code créait un label qui réagissait à un click. Un code dans un module devait alors se lancer (voir fonction CreeMod).
Désolé de ne pas détailler plus mais ça fait un bail...
J'espère que ça pourra t'aider.

Tchuss et bon courage

lermite222 · Answer

bonjour,
voir..
http://www.commentcamarche.net/faq/sujet 11237 vba ajouter commandbutton et le code qui va avec
A+

Créer bouton en VBA

3 réponses

Discussions similaires