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