Scribd
Importer
39 vues2 pages

VBA Ajouter Commandbutton Et Le Code Qui Va Avec

Transféré par

Prince Thibault Nkero Boupema
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd
39 vues2 pages

VBA Ajouter Commandbutton Et Le Code Qui Va Avec

Transféré par

Prince Thibault Nkero Boupema
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd

VBA Ajouter commandButton et le code qui va avec

Code relativement simple et qui ne nécessite pas d'explication


complémentaire. Coller ces deux sub dans un module général (Module1 par
exemple).

Sub CréerBouton()

Dim Obj As Object


Dim Code As String

Sheets("Feuil1").Select

'crée le bouton
Set Obj =
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100,
Height:=35)
Obj.Name = "BoutonTest"
'texte du bouton
ActiveSheet.OLEObjects(1).Object.Caption = "Tester le bouton"

'Le texte de la macro


Code = "Sub BoutonTest_Click()" & vbCrLf
Code = Code & "Call Tester" & vbCrLf
Code = Code & "End Sub"
'Ajoute la macro en fin de module feuille
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
.insertlines .CountOfLines + 1, Code
End With
End Sub

Sub Tester()
MsgBox "Vous avez cliquez sur le bouton test"
End Sub

Télécharger classeur démo : Ajouter_boutons_et_codes.xls


Ce document intitulé « VBA Ajouter commandButton et le code qui va avec » issu de CommentCaMarche
(www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier,
modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous aimerez peut-être aussi