Créer une macro dans un module à partir d'un autre module

Bonjour,

Cela fait maintenant 2 jours que je cherche mais impossible de trouver. :calim2:

Je m'explique, j'ai un userforme avec une TextBox j'aimerais que quand on valide ce TextBox cela me crée dans un module bien précis une nouvelle macro avec comme titre ce qu'il y a dans la TextBox.


HELP!!! Merci beaucoup pour votre aide je n'en peux plus je n'en n'ai pas dormi.

Bonsoir,

Jamais fait mais une idée ne sera pas de refus je pense.

Plutot que de créer un Sub Txtbox.Value() 'c'est bien votre idée ?
Pourriez vous trouvez votre compte avec Function Fonction_en_dure(Txtbox.Value)

Tout ceci est mystérieux n'hésitez pas à poster la suite de la démarche avec ce Sub vide/arg inconnu, ça peut être intéressant.

Merci pour ta réponse mais je t'avoue que je suis encore débutant et pas tout compris à ton message.

Mais je vais essayer d’être plus claire pour le projets.

En claire j'ai une feuille principal qui va reprendre les titres de livre que j'aurais lu. Pour ajouter un titre je passe par un userform ou j'indique le Titre du livre celui ci me crée une nouvelle page avec pour nom le titre du livre. En même temps sur la page principal il me crée un bouton avec pour caption le titre du livre, et pour action Sélectionné la page du livre correspondant.

Pour le moment j'ai ceci comme code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() ActiveSheet.Buttons.Add(0, 51, 48, 15).Select Selection.Characters.Text = TextBox1 Sheets.Add After:=ActiveSheet ActiveSheet.Name = TextBox1 Range("A1").Select ActiveCell.FormulaR1C1 = TextBox1 End Sub

---

Merci beaucoup

Bonjour,

Merci on voit mieux ce qu'il y a à faire.

Je ne vois pas dans ce code quand vous inscrivez le nouveau titre dans la feuille. Il faudrait déjà faire une formule pour ça et elle devra trouver la première cellule vide (faire une recherche la dessus en précisant "vba excel").

Vous utilisez Activesheet ce qui est pratique mais qui va devenir illisible et source d'erreur puisque vous avez une procédure sur tout le classeur. Prenez le temps de déclarer au moins un

Code:

---

1 2	Dim SommaireSheet As Worksheets ' (pas sur du S ...) Set SommaireSheet = Activesheet

---

Une fois fait ce sera plus lisible et évitera de faire souvent des .select ou .activate.

Au plaisir de voir votre avancement.

Bonjour,

Alors voila ou j'en suis arrivé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() ActiveSheet.Buttons.Add(0, 51, 48, 15).Select Selection.Characters.Text = TextBox1 Sheets.Add After:=ActiveSheet ActiveSheet.Name = TextBox1 Range("A1").Select ActiveCell.FormulaR1C1 = TextBox1 Dim x As Long, str As String str = "" Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule With VBCodeMod str = "Sub TextBox1()" & vbCrLf str = str & " Msgbox ""Nouvelle Procedure""" & vbCrLf str = str & "End Sub" & vbCrLf x = .CountOfLines + 1 .InsertLines x, str End With End Sub

---

Je renomme la nouvelle page avec la ligne de code ActiveSheet.Name= TextBox1.

Pour la premier cellule elle sera toujours vide vue que c'est une nouvelle feuille vierge qui est crée.

Il me reste par-contre juste un petit problème je n'arrive pas a nommer ma nouvelle macro avec le titre dans la TextBox.

Bravo pour ce que tu as trouvé.

La première cellule je parlais de l'onglet "sommaire".

Je ne recomprend pas encore pourquoi vous voulez créer une nouvelle macro, car si j'ai saisi elle n'aura rien de nouveau (à part son Titre ce qui peut être résolu en utilisant une variable).

Voila en francais ce que j'ai compris de votre procédure :
Envoi du Titre dans la l'onglet du sommaire
Création d'un boutton qui ouvrira l'onglet du Titre
Création de l'onglet du Titre

En soit ceci est déjà une macro en 3 étapes, elle fera toujours la même chose mais avec les titres différents qui lui seront envoyés, on se comprend ou pas du tout ?

Je penses que l'on ce comprend pas effectivement le sommaire reprendra effectivement tout les titres chaque titre aura sa propre feuille avec les commentaire lier au livre et j'aimerais que quand on appuis sur un titre dans le sommaire ce titre nous envoie sur sa feuille.

Feuille 1 sommaire avec une liste de titres.
Feuille 2 commentaire lier au titre 1
Feuille 3 commaitre lier au titre 2
Et ainsi de suite

En Claire la macro nous crée la feuille avec les commentaires et lie le titre du sommaire avec cette même feuille

Voici le projet chez moi

Un onglet Bibliographie avec seulement la première colonne utilisée
Un onglet Modele qui servira de modèle aux onglets de chaque livre, vous pouvez le masquer

Mon code en pièce jointe chez moi ça fait le travail, dites moi chez vous.

Pièce jointe 427856

Bonjour,

Plutôt que de t'embêter avec des boutons pourquoi tu ne mets pas un simple lien qui t’emmènera tout aussi bien sur ta feuille ?
D'autant plus que trop d'objets sur une feuille et excel se met à merdouiller. Trop pour lui ça peut être 10...
eric

PS : l'écran en photo... On croit rêver :-)
Fais comme les autres. Tu copie-colles ton code ici, et tu utilises l'icone # pour garde sa mise en forme et son indentation.

J'ai un petit soucie pour tester ton programme quand je le lance il me met une erreur je te met une capture tu pourras peut être me dire d'ou elle vient?


Autant pour moi faute de frappe ^^

Pièce jointe 427886

C'est une faute de frappe, efface le deuxième e dans le texte en bleu pour faire Cells.

Citation:

---

Envoyé par SureKey

C'est une faute de frappe, efface le deuxième e dans le texte en bleu pour faire Cells.

---

Oui merci j'en ai fait quelque une en plus excuse moi ahah je test ca de suite

Tape tout en minuscule, quand tu passeras à la ligne Excel mettra les majuscules à ce qu'il a reconnu, un bon moyen de voir ce genre de problèmes rapidement.

Un grand merci c'est exactement cela que je cherchais a faire je comprend pas tout exactement faut que j’étudie encore ton code :P

Par contre quand je crée second titre il m'efface le premier dans la bibliographie

De rien, tu vovudras peut être d'autres fonctionnalités (trier la biblio, masquer/démasquer automatiquement les onglets livres, je te conseille de refaire une discussion si c'est le cas.

C'est un problème l'effacement...
Tu n'as pas enlevé le +1 de derLigne = depuis ta capture d'écran ?
Sinon ecrit juste après
Msgbox derLigne pour que Excel t'affiche ce qu'il utilise.

J'ai remplacer le +1 par +2 et ca fonctionne bizarre

Ton Excel doit placer les cellules en Base 0 (il compte à partir de 0 plutôt que 1 comme un vrai ordi).

Ya plus qu'à le remplir :)

Bonne soirée à une prochaine.

Un tout grand merci une très bonne soirée a toi :)