Variable globale ?

Bonjour à toutes et à tous,

Je veux créer un fichier Log dans la feuille "PARAM" pour enregister N°, Date, Identifiant, Ouverture dossier, Modification, fermeture dossier...

Comme c'est répétitif et pour utiliser le moins de mémoire possible, j'utilise des abréviations "OD", "MD", "FD"... qui correspondent à la variable a
Dans un module j'ai mis le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Log() Dim i, L As Long Dim a As String With Sheets("PARAM") L = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("A" & L).Value = L - 1 .Range("B" & L).Value = Now .Range("C" & L).Value = .Range("M" & i).Value 'cellule ou est stocké l'identifiant .Range("D" & L).Value = a .Range("E" & L).Value = .Range("N" & i).Value 'cellule ou est stocké le numéro de référence End With End Sub

---

Dans les différents formulaires j'appelle le "Call Log" et l'afficahge se fait dans un ListBox multicolonnes :

Code:

---

1 2 3 4 5 6 7 8 9

With Sheets("PARAM") LbLog.ColumnCount = 5 LbLog.BoundColumn = 1 LbLog.ColumnWidths = "20; 90; 30; 115; 40" dl = .Range("A" & Rows.Count).End(xlUp).Row Me.LbLog.List = .Range("A2:E" & dl).Value LblCount.Caption = dl - 1 End With

---

Dans les formulaires je définis les valeurs de
a = "OD" ou "MD" ou "FD" etc...

Et c'est là le problème : mon ListBox m'affiche bien la date, l'identifiant, les numéros de dossier, mais pas la valeur de la variable a

Faut-il mettre a en variable globale ? J'ai essayé mais ça ne marche pas non plus ou comment faire pour que cette variable a soit reconnue ?


Merci par avance à celui ou celle qui voudra bien se pencher sur le problème.

Salut.

Je n'ai, en fait, rien compris à ta demande.

La variable A, initialisée dans la procédure Log, n'est jamais valorisée. elle vaut donc une chaîne vide "". Aucune valeur n'est affecté à la variable I, qui vaut donc 0 et qui, logiquement, doit faire planter le programme à l'exécution.

A de rares exceptions près, les variables globales ne doivent pas être utilisées. Peux-tu expliquer en français (donc pas en jargon pseudo vba) ce que tu souhaites réaliser?

Bonjour et merci de me répondre

Je souhaites sur la feuille PARAM créer un fichier Log des actions effectuées dans mon programme. Plusieurs personnes y ont accès et je veux donc récupérer le Now de l'action, l'ID de la personne qui l'a réalisée, et le type d'action : ouverture du dossier ( A = "OD"), ajout d'un élément (A = "AE"), etc...
Bien sûr, je pourrais écrire dans le formulaire .Range("D" & L).Value = "OD" ou .Range("D" & L).Value = "AE", mais je pensais qu'il y avait peut être une façon plus "élégante" de l'écrire qui ne nécessiterait pas la répétition du .Range("D" & L).Value =

Cordialement

Citation:

---

Envoyé par Bono1664

Faut-il mettre a en variable globale ?

---

Dans ton cas, il serait plus simple de transmettre la valeur concernée en paramètre.

Code:

---

1 2 3 4 5

Sub Log(ByVal a As String)   [...]   Call Log("OD")

---

Merci Menhir,

je vais faire comme ça 8-)

Cordialement