Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" a écrit dans le message de news:
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynaoBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" <Mousnynao@discussions.microsoft.com> a écrit dans le message de news:
9BB47C3F-D59A-4ECD-9E5D-2616510860DD@microsoft.com...
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynao
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" a écrit dans le message de news:
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynaoBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Function CountModulines(VbCmp As String, _
WbName As String) As String
CountModulines = Workbooks(WbName).VBProject. _
VBComponents(VbCmp).CodeModule.CountOfLines _
& " lignes dans " & VbCmp
End Function
Sub test()
MsgBox CountModulines("Module1", ThisWorkbook.Name)
End Sub
--
lStephBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur
chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Function CountModulines(VbCmp As String, _
WbName As String) As String
CountModulines = Workbooks(WbName).VBProject. _
VBComponents(VbCmp).CodeModule.CountOfLines _
& " lignes dans " & VbCmp
End Function
Sub test()
MsgBox CountModulines("Module1", ThisWorkbook.Name)
End Sub
--
lSteph
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur
chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Function CountModulines(VbCmp As String, _
WbName As String) As String
CountModulines = Workbooks(WbName).VBProject. _
VBComponents(VbCmp).CodeModule.CountOfLines _
& " lignes dans " & VbCmp
End Function
Sub test()
MsgBox CountModulines("Module1", ThisWorkbook.Name)
End Sub
--
lStephBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur
chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" a écrit dans le message de news:
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynao
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" <Mousnynao@discussions.microsoft.com> a écrit dans le message de news:
9BB47C3F-D59A-4ECD-9E5D-2616510860DD@microsoft.com...
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynao
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" a écrit dans le message de news:
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynao
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
re :
si si, j'avais tester le tout, cette même routine placé dans module1 !
-----------------
Option Explicit
Sub Test()
' Test du nombre de lignes
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
'
---------------------------------
me donne un résultat de 24 lignes !
mousnynaoMerci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" a écrit dans le message de news:
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynaoBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
re :
si si, j'avais tester le tout, cette même routine placé dans module1 !
-----------------
Option Explicit
Sub Test()
' Test du nombre de lignes
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
'
---------------------------------
me donne un résultat de 24 lignes !
mousnynao
Merci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" <Mousnynao@discussions.microsoft.com> a écrit dans le message de news:
9BB47C3F-D59A-4ECD-9E5D-2616510860DD@microsoft.com...
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynao
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
re :
si si, j'avais tester le tout, cette même routine placé dans module1 !
-----------------
Option Explicit
Sub Test()
' Test du nombre de lignes
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
'
---------------------------------
me donne un résultat de 24 lignes !
mousnynaoMerci à toi.
Je suis certain que tu n'as pas testé ta procédure.
La question était toutes les lignes ...
- Suppose que tu as 10 lignes de commentaire et en ligne vide
au début du module avant la première procédure. La première
procédure ne débute pas toujours en ligne 1 ...
- Suppose que tu as 5 lignes vides ou en commentaire après ta
dernière procédure
Ceci ne donnera pas le bon nombre de lignes : MsgBox .CountOfLines
Si tu ne sais pas combien de lignes que tu as, comment faire pour les
copier dans un autre module ?
;-)
Merci pour ta participation... mais la question n'est pas si facile !
"Mousnynao" a écrit dans le message de news:
Bonjour,
peut-être que :
Sub Test()
Dim VBP As Variant
Dim VBC As VBComponent
Dim Compteur As Long
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents("Module1")
With VBP
With VBC
With VBP.VBComponents(VBC.Name).CodeModule
MsgBox .CountOfLines
End With
End With
End With
End Sub
mousnynaoBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Function CountModulines(VbCmp As String, _
WbName As String) As String
CountModulines = Workbooks(WbName).VBProject. _
VBComponents(VbCmp).CodeModule.CountOfLines _
& " lignes dans " & VbCmp
End Function
Sub test()
MsgBox CountModulines("Module1", ThisWorkbook.Name)
End Sub
--
lStephBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur
chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Function CountModulines(VbCmp As String, _
WbName As String) As String
CountModulines = Workbooks(WbName).VBProject. _
VBComponents(VbCmp).CodeModule.CountOfLines _
& " lignes dans " & VbCmp
End Function
Sub test()
MsgBox CountModulines("Module1", ThisWorkbook.Name)
End Sub
--
lSteph
Bonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur
chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations
Bonsoir,
Function CountModulines(VbCmp As String, _
WbName As String) As String
CountModulines = Workbooks(WbName).VBProject. _
VBComponents(VbCmp).CodeModule.CountOfLines _
& " lignes dans " & VbCmp
End Function
Sub test()
MsgBox CountModulines("Module1", ThisWorkbook.Name)
End Sub
--
lStephBonsoir,
Comment fait-on pour dénombrer le nombre de ligne dans un module ?
Ce nombre doit comprendre toutes les lignes
a ) vides
b) en commentaire
c) de code
Est-ce qu'il y a une méthode plus simple et rapide que de boucler sur
chacune d'elle ?
Ne pas vous endormir sur mon problème ! ;-)
Salutations