Discussion :

[Bono1664]

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 :

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

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 :

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

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.

[Pierre Fauconnier]

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?

[Bono1664]

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

[Menhir]

Faut-il mettre a en variable globale ?

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

Code :

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

1
2
3
4
5
Sub Log(ByVal a As String)
 
[...]
 
Call Log("OD")

[Bono1664]

Merci Menhir,

je vais faire comme ça

Cordialement