Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
La propriété CountOfDeclarationLines renvoie une valeur de type Long qui indique le nombre de lignes de code dans la section Déclarations dans un module standard ou un module de classe. Long (en lecture seule).
Syntaxe
expression. CountOfDeclarationLines
expression Variable qui représente un objet Module .
Remarques
Les lignes d'un module sont numérotées à partir de 1.
La valeur de la propriété CountOfDeclarationLines correspond au numéro de ligne de la dernière ligne de la section Déclarations. Utilisez cette propriété pour déterminer où se termine la section Déclarations et où commence le corps du module.
Exemple
L'exemple suivant compte le nombre de lignes et les lignes de déclaration dans chaque module standard de la collection Modules. Notez que la collection Modules contienne uniquement les modules qui sont ouverts dans l'éditeur de module.
Public Sub ModuleLineTotal(ByVal strModuleName As String)
Dim mdl As Module
' Open module to include in Modules collection.
DoCmd.OpenModule strModuleName
' Return reference to Module object.
Set mdl = Modules(strModuleName)
' Print number of lines in module.
Debug.Print "Number of lines: ", mdl.CountOfLines
' Print number of declaration lines.
Debug.Print "Number of declaration lines: ", _
mdl.CountOfDeclarationLines
End Sub
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.