|
Afficher une macro dans une boite de dialogue
Code à placer dans un module 
Option Explicit
'afficher la macro dans une boite de dialogue
Sub Affiche_Macro()
'VériTi
'http://www.veriti.fr
Dim Debut, Fin, Boucle, Texte, Ecrit
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Essai", Texte)
Fin = .ProcCountLines("Essai", Texte) + Debut
For Boucle = Debut To Fin
Ecrit = Ecrit & .Lines(Boucle, 1) & vbCr
Next
End With
MsgBox Ecrit
End Sub
Sub Essai()
'je suis la macro
'exemple qui s'affiche
'dans une boite de dialogue
End Sub
Date de création : 24/05/2005 - 19:25
Dernière modification : 25/05/2005 - 22:05
Catégorie : Divers
Page lue 4413 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 41
Haut 
