Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
361 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA-Bouton dynamique-Petit coup de pouce

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA-Bouton dynamique-Petit coup de pouce

n°2000799
bam74540
Posté le 11-06-2010 à 10:50:11  profilanswer
 

Bonjour à tous,
 
Je travaille actuellement sur une macro qui me permet de créer des boutons dynamique.J'ai créé le code qui suit et un message apparait lorsque je l'éxecute " L'indice n'appartient pas à la selection" en me surlignant la ligne :
 
With ThisWorkbook.VBProject.VBComponents(MaFeuille.Name).CodeModule"
 
Ce code fonctionne lorsque je le met dans une feuille tout belle,toute vierge mais dans mon application (il doit me créer le bouton sur la feuille sur laquelle je travaille actuellement, mais la macro est applicable sur plusieurs feuille) il ne fonctionne pas.
 
Mon programme :

....
Dim Code As String
Dim NextLine As String
Dim Monbouton As OLEObject
Dim MaFeuille As Worksheet
Set MaFeuille = ThisWorkbook.ActiveSheet
Set Monbouton = MaFeuille.OLEObjects.Add(ClassType:="Forms.CommandButton.1" )
Monbouton.Name = "Bouton"
Monbouton.Width = 160
Monbouton.Height = 20
 
Code = "Sub Bouton_Click()" & vbCrLf
Code = Code & "Msgbox ""salut"" " & vbCrLf
Code = Code & "End Sub"
 
With ThisWorkbook.VBProject.VBComponents(MaFeuille.Name).CodeModule
  NextLine = .CountOfLines + 1
 .InsertLines NextLine, Code
End With
......

 
Je remercie d'avance tous ceux qui se pencheront sur mon problème
 
A+


Message édité par bam74540 le 11-06-2010 à 11:12:26
mood
Publicité
Posté le 11-06-2010 à 10:50:11  profilanswer
 

n°2002317
bam74540
Posté le 16-06-2010 à 17:50:46  profilanswer
 

Personne n'a trouvé de solution a mon problème ?????.........snifffff !!!!

n°2008089
bam74540
Posté le 08-07-2010 à 16:21:33  profilanswer
 


Solution :  
 
With ThisWorkbook.VBProject.VBComponents(MaFeuille.CodeName).CodeModule  
 
Prenez du plaisir !!!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA-Bouton dynamique-Petit coup de pouce

 

Sujets relatifs
changement dynamique des images java[VBA] erreur 13
[Résolu] Petit problème "for" déjà dans une boucle ...VBA création d'une liste de validation
VBA Excel et base Accesscoup de pouce pour MCD
VBA Trier date min max d'une serie de donnéesLien hypertexte HTML - VBA
Access02-VBA Formulaire/ màj sous plusieurs filtres 
Plus de sujets relatifs à : VBA-Bouton dynamique-Petit coup de pouce


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR