Macro et vba ?

Question

Je me permet de changer de place ma question car ca devient super urgent et je ne vois pas comment m'en sortir. Merci

Ce qui suis vient du forum dans la section VBA :

Bonjour &#224; tous, voilas j'ai une petite question &#224; vous soumettre : 
est-il possible de cr&#233;e une nouvelle macro en vba (tous en code vb) et de lui affecter des op&#233;ration a effectuer. Et donc si oui quel est la commande qui permet de cr&#233;e cette macro. Merci de me mettre sur la voie car la je bloque depuis 5h.Merci &#224; ceux ou celles qui me r&#233;pondrons.


 


 Re : cr&#233;e une macro en VBA ? 
R&#233;pondre &#224; ce message - [javascript:alert('pas%20encore%20impl&#233;ment&#233;'); Imprimer ce message] 







Pour cr&#233;er une macro, dans VBA tu fais Ins&#233;rer/Module.
Dans le code du module, tu construis ta macro Exemple:

Sub Ajouter()
Range("A1").Value = "Bonjour"
End Sub

Quand tu retourne dans Excel, tu verras que si tu cliques sur Outils/Macro que ta mcro est bien l&#224;.Pour la lancer, tu clique dessus ou si c'est par un bouton sur un UserForm.

Private Sun CommandButton1_Click()
Call Ajouter
End Sub

Voil&#224; ce n'est pas plus difficile

jpleroisse


 


 


en fait je me suis mal expliqu&#233;, je cherche a cr&#233;e un nouvelle macro via une macro qui tourne.
exemple: la macroA est ex&#233;cuter et cr&#233;e la macroX avec des action d&#233;finie et des variable.
En gros je voudrais que l'utilisateur choisisse une couleur et un texte et qu'une macro sois cr&#233;e avec le code couleur et le texte choisie pour que ensuite l'utilisateur n'est qu'a cliqu&#233; sur un bouton qui appel la macroX pour copier ses valeur dans plusieurs c&#233;llules. Voil&#224;s je sais pas si je suis bien clair ...
Merci beaucoup.


 


tu fais ta macro avec tes parametre et tu l'appelles depuis une autre macro.

exemple, j'ai une macro fusionLt qui appelle la macro Fusion.

Sub fusionLt()
'
' fusionLt Macro
' Macro enregistr&#233;e le 13/04/2005 par BenoCrapo
'
    Application.Run MacroName:="Normal.NewMacros.Fusion"
    Windows("modele.dot").Activate
End Sub

et voilou
  Benouille la grenouille  


 


Re : cr&#233;e une macro en VBA ?
R&#233;pondre &#224; ce message - [javascript:alert('pas%20encore%20impl&#233;ment&#233;'); Imprimer ce message] 






En fait je ne peux pas cr&#233;e la macro avant car en fait l'utilisateur choisi un texte puis une couleur en suite il valide et alors ma macro lui cr&#233;e un bouton de formulaire qui a pour fonction de remplir les c&#233;llule s&#233;lectionner de la couleur choisie ainsi que du texte. De plus il existe a la base 9 boutons donc ce que je recherche a faire c'est de :
- l'utilisateur choisi son texte et couleur
- Valide
- la macro existante cr&#233;e un bouton avec comme texte celui taper
- la macro lie le bouton cr&#233;e a une nouvelle macro (cr&#233;e sur le moment) avec comme fonction :
         - remplie la ou les c&#233;llule selectionner par la couleur et le texte associ&#233; au bouton.

En gros si j'ai 9 bouton j'ai 9 macro qui sont identique avec seulement la couleur de remplissage et le texte qui change. Je sais que ce n'est peut etre pas la bonne m&#233;thode sur laquelle je me suis engager mais pour un autre project sa me servira aussi de savoir cr&#233;e des macro dans des macro.

Merci pour toutes vos r&#233;ponse.

Steed

valtrase · Answer

Salut,
pourquoi ne pas &#233;crire simplement ta macro et l'ex&#233;cuter en temps utile ?
il est possible de lancer une macro depuis un fichier texte dis moi ce que tu veux faire exactement que l'on puisse voir 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
Je reviens sur le sujet voil&#224; qq lignes de code qui te seront bien utiles

Dim Usf As Object, btn As Object, x
  ThisWorkbook.VBProject.VBComponents.Add vbext_ct_StdModule
  Set Usf = ThisWorkbook.VBProject.VBComponents("Module1")
    
  With Usf.CodeModule
    x = .CountOfLines
    .insertlines x + 1, "Sub Ma_Macro()"
    .insertlines x + 2, "  MsgBox ""coucou"""
    .insertlines x + 3, "  unload Me"
    .insertlines x + 4, "End Sub"
  End With

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re, pour une user form

'ajoute un commandbutton &#224; un userform existant
'(avec le code de son &#233;v&#233;nement Click)

Sub AddBouton()
Dim Usf As Object, btn As Object
  Set Usf = ThisWorkbook.VBProject.VBComponents("Userform1")
  Set btn = Usf.Designer.Controls.Add("forms.commandbutton.1")
  With btn
    .Caption = "Cliquer ici !..."    .Left 60: .Top 50
  End With
  With Usf.CodeModule
    X = .CountOfLines
    .insertlines X + 1, "Sub CommandButton1_Click()"
    .insertlines X + 2, "  MsgBox ""coucou"""
    .insertlines X + 3, "  unload Me"
    .insertlines X + 4, "End Sub"
  End With
  VBA.UserForms.Add (Usf.Name)
  UserForms(UserForms.Count - 1).Show
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_steed12 · Answer

merci bien pour ces r&#233;ponse j'ai r&#233;ussi a faire ce que je voulais. Merci beaucoup JP.

Steed

valtrase · Answer

Je tiens &#224; pr&#233;siser que ces sources ne sont pas de moi.
Mais en g&#233;n&#233;ral je teste avant de renvoyer.......

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Macro et vba ?

5 réponses

Discussions similaires