[VBA-E]Créer une feuille qui contient du code

Version imprimable

03/04/2006, 15h07
Elstak

[VBA-E]Créer une feuille qui contient du code

Attention on passe à l'étape supérieure !!

Je voudrais savoir si il est possible de créer une feuille excel en lui mettant du code (je veux dire que la feuille contienne du code VBA).

En fait je voudrai que si une feuille d'un certain nom n'existe pas, la créer et qu'elle appelle une procédure
03/04/2006, 15h10
Megaxel

Hop, tac tac, me voila...
Tadaaaaaa!
Bon, la réponse à la question est "oui". Fais une recherche sur le forum à "VBProject". Tu devrais trouver ton bonheur.
Maintenant, quand je lis ce que tu veux faire, je ne sais pas si c'est la meilleure solution. Tu sais que tu peux appeler depuis un classeur une fonction (ou une procédure) qui se trouve dans un autre classeur?

Et je retourne dormir...
03/04/2006, 15h17
Elstak
Ouép je savais :)

Mais en fait, le feuille sur laquelle je veux générer du code a un bouton et je veux qu'en cliquant dessus il appele une procédure qui se trouve dans module1 donc le code généré serait juste ca :
Code:

1 2 3 Private sub nombouton_click() call nomprocedure(parametre) end sub
voilà ! alosr maintenant ptet que j'ai mal compris ta réponse mega ^^
03/04/2006, 15h22
Megaxel

Alors il me faut une précision: quand tu dis "feuille Excel", tu parles d'un classeur complet (un fichier Gnagnagna.xls) ou un onglet dans le classeur où tu te trouves déjà?
03/04/2006, 15h26
Elstak

Quand je dis "feuille excel" je parle d'un onglet, quand je parle de "gnagagna.xls" je dit classeur.

C'est pas comme ca que ca s' apelle normalement? 8O
03/04/2006, 15h42
Megaxel

Je ne sais pas s'il y a une dénomination officielle.
A part peut-être "WorkBook" et "WorkSheet", mais ça va faire hurler certaines personnes... :D
Ok, donc, dans ton cas, j'ai peut-être un truc qui pourrait te convenir: tu crées ton onglet avec bouton et code à l'avance, et tu le masques.
Quand tu en as besoin d'un, tu fais une copie de cet onglet masqué (mais qui ne défend ni la veuve, ni l'orphelin...), tu rends cette copie visible, et tu lui donnes le nom que tu veux.
Le code et bouton devraient, je pense, être copiés aussi.
A tester...

bonjour Elstak , rebonjour Megaxel

j'espere que cet exemple pourra t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim Ws As Worksheet, Obj As OLEObject
Dim laMacro As String
Dim x As Integer
 
Set Ws = Sheets.Add
 
Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
With Obj
.Left = 50
.Top = 50
.Width = 120
.Height = 30
.Object.Caption = "Supprimer données feuille"
End With
 
laMacro = "Sub CommandButton1_Click()" & vbCrLf
laMacro = laMacro & "Cells.Clear" & vbCrLf
laMacro = laMacro & "End Sub"
 
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With

bonne soiree
michel

04/04/2006, 09h04
Elstak

coucou !
Merci de vos réponses, jvais tester ca mais peut etre pas ajourdhui :P
en tout cas jvous tien au courant

sinon dans ton code silky y'a plusieur choses que je comprend pas (connais pas) j'ai essayé de rechercher vite fait sur le net mais jai rien trouvé donc ca ira surement plus vite si tu me répondais je pense :D

dejà ca :

Code:

Object.Caption = "Supprimer données feuille"

ensuite le With, j'en ai jamais utilisé et google me donne des réponses de merde :?

voilà voilà :wink:
04/04/2006, 11h18
SilkyRoad

bonjour

La ligne

Code:

.Object.Caption = "Supprimer données feuille"

permet d'afficher un texte dans le commandButton . dans cet exemple , c'est "Supprimer données feuille" car la macro associée dynamiquement au bouton efface les données contenues dans les cellules (Cells.Clear)

laMacro = laMacro & "Cells.Clear" & vbCrLf

bien sur ce n'est qu'un exemple que tu modifiera pour ton projet

bonne journée
michel
04/04/2006, 11h22
Megaxel

Le "With" est une méthode pour simplifier l'écriture, c'est une sorte de "parenthèse de factorisation". Je m'explique:
Si tu veux modifier plusieurs propriétés d'un même objet, ce n'est pas la peine de le répéter n fois. Tu mets donc un "With" ... "End With", et entre ces deux lignes, tout ce qui commence par un "." s'applique au même objet.

Merci de ces réponses :D

si j'ai bien compris,

Code:

1
2
3
4
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule 
x = .CountOfLines + 1 
.InsertLines x, laMacro 
End With

Revient à écrire ca? :P

Code:

1
2
3
x = ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule.CountOfLines + 1 
 
ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule.InsertLines x, laMacro

04/04/2006, 11h42
Megaxel

Yes!
:yaisse:

Alors, j'ai finalement opté pour la solution de mega ^^
j'ai créé une feuille invisible avec du code que je copie et renomme si une feuille manque.

Par contre la feuille copiée est aussi invisible...

comment la erndre visible?
j'ai tenté worksheets(nom).visible sans succes

j'ai aussi tenté de la selectionner avant de la render visible et là j'ai une erreur où je ne peut meme pas debogger :? "1004 : la methode visible de la classe worksheet a echouée"
Code:

1 2 3 4 5 6 If (Feuille(nom_partition) = False) Then Worksheets("modele").Copy after:=Worksheets(ActiveSheet.Name) ActiveSheet.Name = nom_partition 'nomme la copie Worksheets(nom_partition).Activate Worksheets(nom_partition).Visible End If
Megaxel?

04/04/2006, 15h58
Elstak

Mouarf c'est bon suffisait de mettre visible = true :P

voilà y'a plus de pb :D