VBA: Supprimer les lignes d'un module

[MJ13]

Bonjour à tous

Je cherche en VBA à supprimer les lignes d'un modules VBA nommé "M_A_temp" mais sans le supprimer.

Merci d''avance 🙂.

 

[camarchepas]

Re : VBA: Supprimer les lignes d'un module

Bonjour Mj13,

Voici un exemple,

Je sais que tu adapteras facilement :

'voici un exemple qui supprime les lignes de 6 à 11 d'une procédure
'se trouvant dans Module1

Sub supprlignes()

   MonClasseur = ThisWorkbook
   Set MonModule = Workbooks(MonClasseur).VBProject.VBComponents("Module1")
   MonModule.CodeModule.DeleteLines 6, 5
End Sub

 

[MJ13]

Re : VBA: Supprimer les lignes d'un module

Bonjour Camarchepas

Merci pour ce code 🙂 que je pourrais adapter facilement sauf que je ne vois pas bien comment connaître le nombre de lignes du module ?. C'est juste la cerise qui manque 😱.

 

[MJ13]

Re : VBA: Supprimer les lignes d'un module

Re

Bon Grâce à toi 🙂 et à un code de Pierrot 🙂, j'ai pu arriver à mes fin 😱.

Voici le code:

Sub Supprime_Lignes_Module_VBA()
Nlig = ActiveWorkbook.VBProject.VBComponents("test").CodeModule.CountOfLines
   MonClasseur = ThisWorkbook.Name
   Set MonModule = Workbooks(MonClasseur).VBProject.VBComponents("test")
      MonModule.CodeModule.DeleteLines 1, Nlig
End Sub

Sinon, j'ai aussi trouvé ce code pour supprimer un module d'un classeur actif:

Sub VBE_supprime_module1()
'http://www.vbfrance.com/forum/sujet-EXCEL-DETECTER-MACRO-SUPPRIMER_1002538.aspx
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("Module2")
End Sub

Allez, cadeau: Voici ce que j'écoute en ce moment 😱:

Yo Mama - Frank Zappa - YouTube

 

[Papou-net]

Re : VBA: Supprimer les lignes d'un module

Bonsoir Michel, camarchepas,

L'instruction suivante te donne le nombre de lignes de code d'un module :

MsgBox ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Countoflines

Cordialement.

Edit : Arf, trop tard !

 

[camarchepas]

Re : VBA: Supprimer les lignes d'un module

Mj13 ,

Papou , bonsoir ,

Et oui mj13 , l"on ne va pas te donner tout cuit qu'en même ,

Merci pour le retour , Mais j'étais certain de ta réussite ...

 

[Papou-net]

Re : VBA: Supprimer les lignes d'un module

RE :

Une autre solution qui peut-être intéressante, sous forme de fonction :

Public Function nbLignesCode(Modul As String) As Long
nbLignesCode = ThisWorkbook.VBProject.VBComponents(Modul).CodeModule.CountOfLines
End Function

Sub test()
MsgBox nbLignesCode("Module1")
End Sub

Bonne soirée à tous.

Cordialement.