copie ligne par ligneRésolu

Question

Bonjour,

Je dois coder une macro qui permet de recopier ligne à ligne le contenu d'un module dans un autre module.
Je dois le faire ainsi car le but est de modifier les lignes avant chaque modification en effaçant les commentaires, les lignes blanches et les indentations.

Alors si quelqu'un a quelque méthode pour arriver à mes fins, je l'en remercie d'avance :)

chenuta · Accepted Answer

bon pour ceux que ca interesse j'ai trouvé une solution que voici : 

Dim S As String    
    With WB.VBProject.VBComponents(ModuleFrom).CodeModule
        Dim NbLines As Integer
        Dim i As Integer
        NbLines = .CountOfLines
          
        For i = 1 To NbLines
            S = .Lines(i, 1)               WB.VBProject.VBComponents(ModuleDest).CodeModule.AddFromString S
        Next i
        
    End With

Mais voila ca se complique maintenant car il faut que je fasse une (ou des) expressions regulieres qui me permettrent d'effacer les blancs (en trop), les indentations, les lignes blanches et les commentaires avant de recopier dans le nouveau module.
Il e faudra aussi faire une bibliotheque de tous les mots utilisés (sous forme de tableau).
... encore beaucoup de boulot :)

Copie ligne par ligne

1 réponse

Votre réponse

Discussions similaires