Discussion :

[AF_2.8]

Bonjour,

Je cherche comment procéder pour initialiser une variable globale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Global OriginFilterOn As Boolean

Comment puis-je initialiser cette variable.
Cette variable est utilisé dans une macro qui commence par tester la valeur de cette variable avant de décider du traitement à réaliser, et qui met à jour cette variable une fois le traitement appliqué, pour pouvoir rendre le traitement réversible.

Merci pour vos réponses.

[Philippe Tulliez]

Bonjour,
Pour déclarer une variable globale en VBA Excel, on utilise le mot clé Public et à partir du moment où l'on type une variable, elle est initialisée à False pour un type booléen, 0 pour tous types numériques, chaîne vide ("") pour le type String et Nothing pour les variables objets

Soit pour votre cas Public OriginFilterOn As Boolean à placer en tête d'un module standard

A lire pour en savoir Utiliser les variables en VBA Excel

[Valtrase]

Bonjour,

Cette variable est utilisé dans une macro qui commence par tester la valeur de cette variable avant de décider du traitement à réaliser, et qui met à jour cette variable une fois le traitement appliqué,

Si la variable n'est utilisée que dans une seule macro, tu as la possibilité de la déclarer en Static. La déclaration se fait au niveau de la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Static OriginFilterOn As Boolean

Static, instruction (VBA) | Microsoft Learn

[AF_2.8]

Bonjour,
Pour déclarer une variable globale en VBA Excel, on utilise le mot clé Public et à partir du moment où l'on type une variable, elle est initialisée à False pour un type booléen, 0 pour tous types numériques, chaîne vide ("") pour le type String et Nothing pour les variables objets

Soit pour votre cas Public OriginFilterOn As Boolean à placer en tête d'un module standard

A lire pour en savoir Utiliser les variables en VBA Excel

Merci, effectivement le mot clé global est peu fort car il exporte la portée à l'ensemble des modules, et le mot clé Public serait amplement suffisant dans mon cas.
La valeur d'initialisation par défaut de ma variable booléenne a le bon gout de correspondre à la valeur que je lui aurait donné au départ, mais j'ai le même problème pour une valeur entière que je souhaite faire commencer à 2. Comment dans ce cas puis-je faire, vu qu'il est impossible de déclarer une variable est de l'initialiser en même temps, et que l'on ne peut pas déclarer de code en dehors d'une Sub ou d'une Function ?

[AF_2.8]

Bonjour,

Si la variable n'est utilisée que dans une seule macro, tu as la possibilité de la déclarer en Static. La déclaration se fait au niveau de la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Static OriginFilterOn As Boolean

Static, instruction (VBA) | Microsoft Learn

Effectivement, j'avais écarté le coté Static à cause de la définition faite sur le site de Microsoft :

Utilisé au niveau de la procédure pour déclarer des variables et allouer de l’espace de stockage. Les variables déclarées à l’aide de l’instruction Static conservent leurs valeurs pendant toute la durée de l’exécution du code.

Pour moi il n'est pas clair que la variable garde sa valeur pendant toute la durée de vie du classeur au vu de la définition ci-dessus.

Cependant je reste avec le même problème, lorsque j'appelle ma routine, je vais réaliser un traitement différent en fonction de l'état de ma variable (le but est en fait de réaliser un filtrage bien particulier à la première exécution, puis à chaque exécution de la routine soit annuler le filtrage précédemment réalisé soit en réaliser un nouveau), j'ai donc besoin de pouvoir initialiser correctement ma variable avant même de permettre à l'utilisateur d'exécuter la routine.

[mromain]

Bonjour à tous,

Les deux solutions proposées fonctionnent.
N'aimant pas trop les variables publiques, j'ai une petite préférence pour l'utilisation d'une variable statique au sein de la procédure comme proposé par Valtrase.
L'exemple ci-dessous montre comment identifier la première exécution à l'aide d'une variable statique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Static déjàExecuté As Boolean   'False par défaut
 
    If Not déjàExecuté Then
        MsgBox "Première exécution"
    Else
        MsgBox "Une des exécutions suivantes"
    End If
 
    déjàExecuté = True
End Sub

A+