En VBA (Visual Basic for Applications), l’instruction `Private` est utilisée pour définir la portée d’une variable, d’une constante, d’une procédure (Sub) ou d’une fonction, en la restreignant au module dans lequel elle est déclarée. Cela signifie que l’élément déclaré comme `Private` ne sera accessible qu’à l’intérieur du même module et ne sera pas visible par les autres modules de votre projet VBA.
Voici quelques exemples d’utilisation de l’instruction `Private` :
1. Déclaration d’une variable privée
Private maVariable As Integer
Sub ExempleUsage()
maVariable = 10
MsgBox maVariable
End Sub
Dans cet exemple, `maVariable` est une variable qui ne peut être utilisée que dans le module où elle a été déclarée.
2. Déclaration d’une procédure privée
Private Sub AfficherMessage()
MsgBox "Bonjour tout le monde!"
End Sub
Sub AppelerAfficherMessage()
AfficherMessage
End Sub
Ici, la procédure `AfficherMessage` est privée, donc elle ne peut être appelée que depuis d’autres procédures au sein du même module.
3. Déclaration d’une fonction privée
Private Function Addition(a As Integer, b As Integer) As Integer
Addition = a + b
End Function
Sub UtiliserAddition()
Dim resultat As Integer
resultat = Addition(2, 3)
MsgBox resultat
End Sub
La fonction `Addition` est privée et ne peut être utilisée que dans le module où elle est définie.
4. Déclaration d’une constante privée
Private Const PI As Double = 3.14159
Sub CalculerCirconference(rayon As Double)
Dim circonference As Double
circonference = 2 * PI * rayon
MsgBox "La circonférence est: " & circonference
End Sub
La constante `PI` est déclarée comme privée et sa valeur ne peut être utilisée que dans le même module.
Avantages de l’utilisation de `Private` :
- Encapsulation : Elle permet de contrôler l’accès aux variables et aux méthodes, protégeant ainsi l’intégrité des données et évitant les modifications accidentelles.
- Clarté du code : Elle aide à garder le code modulaire et compréhensible.
Utiliser `Private` judicieusement permet de rédiger du code VBA structuré et maintenable.
Unlock Your Potential
Excel
Access
Power BI
