Créer un bouton avec VBA et son code [Résolu/Fermé]

Signaler
Messages postés
458
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
27 juillet 2017
-
hardgratte
Messages postés
458
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
27 juillet 2017
-
Bonjour,
Je code suivant est sensé créer un bouton (par le code) avec VBA Excel et son code.
Je rencontre néanmoins l'erreur 1004 : Erreur définie par l'application ou par l'objet.
Résumé du programme : le bouton créé doit effacer certaines cellules (MC et MC.offset(0,9)) de ma feuille Excel.
Voici le code :

Private Sub CommandButton2_Click()
Dim MC As Range
Dim BoutonEffacer As OLEObject
Dim NextLine As Long
Dim Code As String


Set MC = Sheets("Feuil2").Range("D19")

MC = ComboBox2.Value
MC.Offset(0, 9) = TextBox2.Value

'Ajouter bouton "Retirer du panier" à chaque produits
Set BoutonEffacer = Sheets("Feuil2").OLEObjects.Add("Forms.CommandButton.1")
With BoutonEffacer
.Top = MC.Offset(0, 11).Top - 5
.Left = MC.Offset(0, 11).Left
.Width = 100
.Height = 30
.Name = "BoutonRetirerPanier"
.Object.Caption = "Retirer du panier"
End With

'Ajouter le code du bouton
Code = "Private Sub BoutonRetirerPanier_Click()" & vbCrLf
Code = Code & " MC.Value="" " & vbCrLf
Code = Code & " MC.Offset(0,9).Value="" " & vbCrLf
Code = Code & "End Sub"

With ThisWorkbook.VBProject.VBComponents(Feuil2.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With


End Sub

Merci à vous.

22 réponses

Messages postés
1
Date d'inscription
lundi 9 janvier 2012
Statut
Membre
Dernière intervention
9 janvier 2012

J'ai le même problème mais le lien avec la solution est mort .... :(
hardgratte
Messages postés
458
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
27 juillet 2017
60
Salut,

En effet ça fait longtemps.
Je ne suis vraiment pas sûre de retrouver ce fichier !!
Je chercherai quand même ce soir.
Je te tiens au courant
Messages postés
458
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
27 juillet 2017
60
Au cas ou tu n'aurais pas vu, Lermite222 a actualiser le lien.
1 2