Perte de la valeur d'une variable?

Bonjour a tous.
J'ai un problème, j'ai modifié mon programme de comptabilité. Je passe par une variable publique, pour déterminer le livre comptable choisi dans une liste.

Code:

---

Public JrlChoix As String

---

J'ai deux type de documents:
Banque/Caisse, pas de problème, jamais.
Achats/OD/RAN, la, j'ai un problème.
Je choisi dans la liste, le journal et le mois, J'arrive sur la page Achats le bon mois.
J'écrit la première saisie, tout va bien, "JrlChoix" m'inscrit "ac" parfait. je valide et lorsque je démarre la deuxième saisie, la plus rien ne s'inscrit. la valeur de la variable est semble-t-il revenu a "".
Le code Achats est à peu près identique a Banque/Caisse, et je ne m'explique pas pourquoi cette différence. J'ai bien sur vérifié que je ne remettais pas a "" la variable par une erreur d'écriture???
Donc, si quelqu'un connaissait une raison possible de perte de valeur de variable, ça m'aiderais.
merci d'avance
Cordialement 8-)

Bonjour,
Une explication possible, la déclaration d'une variable locale homonyme
Exemple

Code:

---

1 2 3 4 5 6 7

Option Explicit Public jl As String Sub Main() jl = "Toto" test2 test1 End Sub

---

Code:

---

1 2 3 4

Sub test1() Dim jl As String MsgBox jl End Sub

---

Code:

---

1 2 3

Sub test2() MsgBox jl End Sub

---

Bonsoir,
Cher Philippe, je n'ai pas trouvé de variable homonyme, mais cela m'a permis de me rendre compte que je n'ai pas seulement une variable qui se vide, mais j'ai un problème plus général.
Un merci quand même pour votre réponse, je continue mes recherches et ne manquerai pas de vous tenir informé. 8O
Cordialement 8-)

Bonjour.
Pour vous tenir informé, mon problème vient me semble-t-il du fait que ayant scindé une macro très longue en une succession de macro réutilisable pour d'autres afin d'éviter éviter les redondances, j'ai remplacé des Exit Sub par des End. Ce qui semble-t-il a pour effets, entre autres de vider les Variables et de perturber les "selon.touche"(OnKeys) qui sont à la base de l'automatisme du fonctionnement de mon classeur.
https://docs.microsoft.com/fr-fr/off.../end-statement
Tout est donc redevenu "pour le mieux dans le meilleur des mondes possibles" (Panglos, le philosophe heureux).
Je vais donc reprendre la modernisation et la propreté du code de mon usine à gaz personnel.:mouarf:
Cordialement 8-)