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é ProcCountLines renvoie le nombre de lignes que contient une procédure spécifique d'un module standard ou d'un module de classe. Long (en lecture seule).
Syntaxe
expression. ProcCountLines (ProcName, ProcKind)
Expression Variable qui représente un objet Module .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| ProcName | Requis | String | Nom d'une procédure du module. |
| ProcKind | Requis | vbext_ProcKind | Type de procédure. Consultez la section Remarques pour connaître les valeurs possibles pour ce paramètre. |
Remarques
L’argument ProcKind peut être l’une des constantes vbext_ProcKind suivantes.
| Constante | Description |
|---|---|
| vbext_pk_Get | Une procédure Property Get. |
| vbext_pk_Let | Une procédure Property Let. |
| vbext_pk_Proc | Une procédure Sub ou Function. |
| vbext_pk_Set | Une procédure Property Set. |
La procédure commence au niveau des commentaires et des constantes de compilation qui précèdent immédiatement la définition de procédure, marquée par un des éléments suivants :
- Une instruction Sub
- Une instruction Function
- Instruction Property Get
- Instruction Property Let
- Instruction Property Set
La propriété ProcCountLines renvoie le nombre de lignes que contient une procédure, en commençant par la ligne renvoyée par la propriété ProcStartLine et en terminant par la ligne qui met fin à la procédure. La procédure peut se terminer par End Sub, End Function ou End Property.
Remarque
La propriété ProcCountLines traite les procédures Sub et Function de la même manière, mais elle fait la distinction entre les divers types de procédures Property.
Exemple
L'exemple suivant affiche un message qui indique le nombre de lignes contenues dans une procédure donnée.
Dim strForm As String
Dim strProc As String
strForm = "Products"
strProc = "Form_Activate"
MsgBox "There are " & Forms(strForm).Module.ProcCountLines(strProc, vbext_pk_Proc) & _
" lines in the " & strProc & " procedure."
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.