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. Configuration: Windows Vista / Firefox 3.6.13

Erreur 1004 la feuille n'est pas bien déterminée. Si tu relance le code AVANT D'AVOIR CREER le bouton beh .... Je n'ai pas essayé sur 2007, je ne pense pas, et aujourd'hui c'est trop tard, je verrais ça demain. A+ Edit: en vitesse, c'est dans un module que tu dois mettre le code L'expérience instruit plus sûrement que le conseil. (André Gide) Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

J'ai le même problème mais le lien avec la solution est mort .... :(

Au cas ou tu n'aurais pas vu, Lermite222 a actualiser le lien.

Créer un bouton avec VBA et son code - Page 2

Résolu

Réponse 21 / 22
floriannew Messages postés 1 Date d'inscription Statut Membre Dernière intervention

J'ai le même problème mais le lien avec la solution est mort .... :(
0
1. hardgratte Messages postés 482 Statut Membre 76
  
  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
  
  0
Réponse 22 / 22
hardgratte Messages postés 482 Statut Membre 76

Au cas ou tu n'aurais pas vu, Lermite222 a actualiser le lien.
0

Créer un bouton avec VBA et son code - Page 2

Discussions similaires

Newsletters