Modification Variable dans VBA

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:

---

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:

---

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

bonjour,

Pièce jointe 508410

Bonjour,

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

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

A bientôt

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

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


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

Citation:

---

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

Code:

---

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!

@ Thumb down

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

Bonjour

Citation:

---

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

---

Citation:

---

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".

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

unparia:king:

Bonjour à tous, :coucou:

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:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean)   End Sub

---

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.

Bonjour,

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