Discussion :

[gdeaquino]

Bonjour,

Je voudrais savoir comment pouvoir mettre une variable à 1 ou 0 (comme un bit). Cette variable commune à tout le projet serait modifiable dans différents module ou feuille soit en consultation, soit en modification.

Actuellement je stocke une variable dans une cellule que je lis et modifie, mais je ne trouve ça pas très pratique.

Y a-t-il une solution plus facile ?

Exemple :

Code :

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

1
2
3
4
5
6
7
8
Sub Impression_mise_au_rebut()
 
    Sheets("Menu").Unprotect Password:="Lav_Feuil04"
    Sheets("Menu").Range("Q32") = "1"
    Sheets("Menu").Protect Password:="Lav_Feuil04"
    UserForm3.Show
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Impression_rea()
 
    If Sheets("Menu").Range("Q32") = "1" Then
        Sheets("Menu").Unprotect Password:="Lav_Feuil04"
        Sheets("Menu").Range("Q32") = ""
        Sheets("Menu").Protect Password:="Lav_Feuil04"
    End If
 
    UserForm3.Show
 
End Sub

Merci

[Thumb down]

bonjour,

[Igloobel]

Bonjour,

A priori c'est peut-être l'instruction "Static" qui te serait utile.

Perso j'utilise pas donc à toi de vérifier
utilise pour avoir plus d'info
tu nous tiens au courant

A bientôt

[Thumb down]

en fait il stock dans la cellule Q32 donc une variable public.

[Igloobel]

Le tuto suivant explique que c'est bien Static qu'il faut utiliser


https://mhubiche.developpez.com/Access/variables/#LIII

[Thumb down]

je voudrais savoir comment pouvoir mettre une variable à 1 ou 0 (comme un bit). Cette variable commune à tout le projet

Code :

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

1
2
3
4
5
6
7
8
sub Impression_mise_au_rebut()
    Sheets("Menu").Range("Q32") = "1"
End Sub
 
 
Sub Impression_rea()
     If Sheets("Menu").Range("Q32") = "1" Then
End Sub

si tu penses qu'il s'agit d'une variable Static c'est pas un problème pour moi!

[Igloobel]

@ Thumb down

On n'a pas assez d'info c'est pourquoi je préconise Static à Public

[unparia]

Bonjour

On n'a pas assez d'info c'est pourquoi je préconise Static à Public

Cette variable commune à tout le projet serait modifiable dans différents module ou feuille soit en consultation, soit en modification.

exclut suffisamment clairement le choix d'une portée "static".

[Thumb down]

Bonjour,
il me semble que la demande est très claire au contraire le demandeur veut avoir accès dans tout sons projet

unparia

[Igloobel]

Bonjour à tous,

Je maintiens Que l'on ne sait pas si dans le projet les macros s'enchaine les unes dans les autres ( par Call par exemple bien que je ne pense pas que ce soit le cas)

ou l'appel de macro (par boutons par exemple)

C'est pourquoi j'ai pensé à Static qui garde l'info tant que le classeur est ouvert alors que Public garde tant que le "End Sub" de la première macro n'est pas exécuté (notion de pile d'appel. Plus rien dans la pile plus rien dans la variable je viens de tester)

Cependant le véritable problème c'est que dès l'ouverture du classeur les variables sont initialisées peu importe leurs déclarations. On commence à 0 ou "" (vide).

Je ne connais pas de variable qui réagirait comme une constante (garder l'info pour la fois d'après)

Donc soit on garde l'info quelque part dans le classeur (le plus simple) soit dans un fichier texte joint (.txt, .ini ...)

Personnellement j'utiliserai une variable de type static et une macro événementielle pour sauvegarder en fin de travail

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
End Sub

[laurent_ott]

Bonjour.
A mon avis le plus simple est de procéder comme indiqué par l'auteur de cette discussion, en enregistrant l'information dans une cellule d'une feuille (masquée) du classeur.
Je pense aussi à deux autres approches, plus compliquées (en VBA) : enregistrer dans les propriétés du classeur ; enregistrer dans les propriétés de l'utilisateur.
Voir dans ma signature le tome 6, chapitre 8 (de mémoire).
Cordialement.

[Néroxi]

Bonjour,

Seul l'auteur de cette discussion peu nous dire si les solutions proposées lui on été favorables