Nombre de lignes de codes vba

[13GIBE59]

Bonjour à tout le forum, et excel-lente année à toutes et à tous.

Me livrant à une petite statistique concernant une usine à gaz excel que j'ai créée en tant que savant fou, je cherche le truc qui me permettrait de comptabiliser le nombre de lignes de code contenues dans mes différents modules.

Cela existe-t'il ? 🙂😀🙂😀🙂

Merci d'avance à tous.

A +

JB

PS : j'ai déjà la formule pour compter...les formules !

 

[Pierrot93]

Re : Nombre de lignes de codes vba

Bonjour jb

regarde le code ci-dessous, te renvoie le nombre de lignes de code contenu dans le module "thisworkbook" :

MsgBox ActiveWorkbook.VBProject.VBComponents("Thisworkbook").CodeModule.CountOfLines

attention, au niveau des options de sécurité, cocher la case "faire confiance au projet visual basic".

bonne fin d'après midi.
@+

Edition les lignes vides sont comptées 1...

 

[Pierrot93]

Re : Nombre de lignes de codes vba

Re

pour compter toutes les lignes de tous les modules du classeur actif :

Option Explicit
Sub test()
Dim v As Object, i As Long
For Each v In ActiveWorkbook.VBProject.VBComponents
    i = i + v.CodeModule.CountOfLines
Next v
MsgBox i & " lignes de code dans le classeur " & ActiveWorkbook.Name
End Sub

@+

 

[13GIBE59]

Re : Nombre de lignes de codes vba

Bonjour Pierrot 93 et merci pour ta réponse.

Malheureusement ta formule ne me donne pas le nombre de toutes les lignes contenues dans tous les modules... Tant pis.

JB

 

[excalibur]

Re : Nombre de lignes de codes vba

bonjour 13GIBE59 Pierrot93 le forum pour faire simple tu les recopies dans une feuille a la suite tu verras jusqu a quel ligne tu vas

 

[Pierrot93]

Re : Nombre de lignes de codes vba

Re, bonsoir Jean-Pierre

comprends pas, chez moi, Excel 2003 cela fonctionne...

@+

 

[13GIBE59]

Re : Nombre de lignes de codes vba

Re-bonjour Pierrot 93 et merci pour ta réponse.

Le deuxième essai était concluant ! Merci beaucoup. 😀😀😀😀
Ne tiens pas compte de ma première réponse qui s'est télescopée avec ton deuxième envoi.

A +

JB

 

[CB60]

Re : Nombre de lignes de codes vba

Bonsoir
Pierrot j'ai testé ta derniere macro , il m'indique que le projet n'est pas fiable, il ni aurais pas une reference a VBA à controler?

 

[Pierrot93]

Re : Nombre de lignes de codes vba

Re, bonsoir bruno,

oui, comme indiqué dans mon 1er post, au niveau des options de sécurité, cocher la case "faire confiance au projet visual basic". Barre de menu => outils => macro => sécurité => onglet "Editeurs approuvés".

 

[CB60]

Re : Nombre de lignes de codes vba

Merci Pierrot,
Au niveau sécurité j'etais sur faible, mais je n'avais pas regardé l'autre onglet.
Ca marche