Copier le code d'un module vers un autre

Bonjour,

Je cherche comme dupliquer le code contenu dans un module d'un formulaire vers un autre. Je m'explique : j'ai un formulaire classique qui contient un bouton détails. le code de ce bouton permet de créer un nouveaux formulaire qui contient lui aussi un bouton détails. Je voudrai attribuer à ce nouveau bouton le même code que le premier bouton.

Comme je suis un peu fainéant j'ai pas envie de retaper mon code. Donc existe-t-il un moyen de récupérer le code d'un bouton dans une variable sans le retaper? Cela me permettrai aussi de faire évoluer le code des deux bouton en même temps ce qui serai bien pratique

Cordialement

Ce que tu peux faire, c'est créer dans ton module une fonction, par exemple bouton_detail, comme cela:

Code:

---

1 2 3 4

Public sub bouton_detail() 'ICI TON CODE End sub

---

Et tu y place le code de ton bouton.

Après dans ton bouton tu n'auras plus qu'à appeler ladite fonction. ;)

Créer une fonction n'est pas le problème. Mon formulaire est créer dynamiquement et donc je me peux pas écrire par avance le code à main dans son module. Or le code à écrire existe déjà mais dans un autre module de formulaire, je cherche donc copier le code existant pour éviter de le recopier à la mains dans une constant.

Je suis sur une piste avec la fonctions Find d'un module

Je mettrai le code quand je l'aurai debugger

Salut,

Si le bouton détail de ton formulaire crée un formulaire identique au premier, pourquoi ne pas le copier simplement, ainsi ton code le sera également.

A voir si c'est possible.

A+

c'est une très bonne idée, mais malheureusement je n'arrive pas à copier/coller un formulaire qui a du code VBA. Alors je copie/colle un formulaire vierge et je rajoute le code à la vollé

Bonjour,

Après une pause développement et quelques recherches, j'ai créé une fonction qui me permet de mettre dans une variable String le code d'une Function ou d'une Sub contenu dans le module d'un formulaire. Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Public Function TrouveFonction(ByVal nomfonction As String, ByVal typefonction As String, ByVal formulaire As String) As String Dim lgdeb As Long Dim lgfin As Long Dim coldeb As Long Dim colfin As Long   Dim module As module   Dim debmod As Long Dim finmod As Long   Set module = Forms(formulaire).module   lgdeb = 0 coldeb = 0 lgfin = module.CountOfLines colfin = 200   If module.Find(typefonction & " " & nomfonction, lgdeb, coldeb, lgfin, colfin) Then   debmod = lgdeb   coldeb = 0 lgfin = module.CountOfLines colfin = 200   If module.Find("End " & typefonction, lgdeb, coldeb, lgfin, colfin) Then finmod = lgdeb - 1 End If End If     TrouveFonction = module.Lines(debmod + 1, finmod - debmod)   End Function

---

Pour coller le code la procédure d'évènement d'un autre formulaire je fait :

Code:

---

1 2 3

lgnreturn = mdlevent.CreateEventProc("Click", newform.BtnDetails.Name) mdlevent.InsertLines lgnreturn + 1, TrouveFonction("BtnDetails_Click", "Sub", "BESOINS&RESSOURCES&DESI&CLIENT")

---

Cordialement