Discussion :

[pythagore3_14]

Bonjour tout le monde !

J'ai un problème avec une userform. La procédure qui suit ne fonctionne pas : elle ne génère pas d'erreur mais pas de résultat non plus... Pour avoir fait différents tests, je sais que "cel.CurrentRegion" fait référence à la bonne plage et "cel.Rows.CurrentRegion.Count - 1" renvoit le bon chiffre. Mais la procédure n'affiche même pas le résultat de la MsgBox. Je crois que le problème vient de l'évènement "Initialize"; peut-être que je l'utilise mal ? Je veux que ces instructions s'effectuent lorsque l'on ouvre la boite de dialogue avec "UserForm3.Show".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
    'A l'ouverture de la boite de dialogue on réinitialize la zone de liste
    Dim i As Integer
    Dim cel As Range
    Set cel = ThisWorkbook.Worksheets("Min & Max").Range("B183")
    MsgBox cel.CurrentRegion.Rows.Count - 1
    For i = 0 To cel.Rows.CurrentRegion.Count - 1
    UserForm3.ListBox1.Clear
    UserForm3.ListBox1.AddItem cel.Offset(i, 0).Value
    Next i
End Sub

J'ai également une autre petite question à propos de la différence entre Hide et Unload : ces deux évènements ferment tous les deux la boite de dialogue mais Hide garde en mémoire les infos associées comme les valeurs qui remplissaient la listbox et on les retrouvera lors de la prochaine ouverture, contrairement à Unload qui ne garde rien en mémoire ? Est-ce bien cela ? Je voudrais être sur d'avoir bien compris...

[Le Pierre]

Bonjour

Essaye ceci (Activate plutôt qu'Initialize, car tu pourras lancer plusieurs fois la procédure d'initialisation de ta UserForm) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Activate()
    'A l'ouverture de la boite de dialogue on réinitialize la zone de liste
    Dim i As Integer
    Dim cel As Range
    Set cel = ThisWorkbook.Worksheets("Min & Max").Range("B183")
    MsgBox cel.CurrentRegion.Rows.Count - 1
    UserForm3.ListBox1.Clear
    For i = 0 To cel.Rows.CurrentRegion.Count - 1
        UserForm3.ListBox1.AddItem cel.Offset(i, 0).Value
    Next i
End Sub

Ton "UserForm3.ListBox1.Clear" était mal placé.

Pour "Hide et Unload" tu as bien compris

à plus

[pythagore3_14]

Si j'ai bien compris Hide garde en mémoire les valeurs de la ListBox entre deux appels de la UserForm au cours du même programme. Moi ce que je voudrais c'est qu'il les garde en mémoire entre deux lancements de programmes (et fermeture du fichier entre les deux).
En fait ma ListBox contient des noms de fichiers à "traiter". L'utilisateur peut sélectionner celui/ceux qu'il veut traiter. Mais comme au cours des années certains fichiers peuvent être déplacés, crées ou supprimés je lui ai laissé la possibilité de modifier cette liste (tout ça dans une Userform). Evidemment je ne veux pas qu'il ait à faire cette modification à chaque fois qu'il ouvre le fichier et lance le programme.
Je peux copier cette liste dans une feuille à la fermeture du programme et réinitialiser la listbox à l'ouverture du programme grâce à cette liste. Mais peut-être y a-t-il une solution plus simple ?

[Le Pierre]

Bonjour

Voici une proposition pour tenir à jour ta liste. Plutôt que de stocker en mémoire, je stocke les données sur la feuille Min & Max à partir de B183.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub ListBox1_Click()
    If NewValeur <> "" Then Exit Sub
    x = UserForm3.ListBox1.ListIndex
    y = UserForm3.ListBox1.Value
    NewValeur = InputBox("Saisir une nouvelle valeur", "Mise à jour", y)
    If NewValeur <> "" Then
        UserForm3.ListBox1.List(x, 0) = NewValeur
        If UserForm3.ListBox1.ListCount - 1 = x Then
            UserForm3.ListBox1.AddItem ""
        End If
    End If
    NewValeur = ""
End Sub
 
Private Sub UserForm_Activate()
    'A l'ouverture de la boite de dialogue on réinitialize la zone de liste
    Dim i As Integer
    Dim cel As Range
    Set cel = ThisWorkbook.Worksheets("Min & Max").Range("B183")
    'MsgBox cel.CurrentRegion.Rows.Count - 1
    UserForm3.ListBox1.Clear
    For i = 0 To cel.Rows.CurrentRegion.Count
        UserForm3.ListBox1.AddItem cel.Offset(i, 0).Value
    Next i
End Sub
 
Private Sub UserForm_Terminate()
    'Sauvegarde des données modifiées
    Set cel = ThisWorkbook.Worksheets("Min & Max").Range("B183")
    For i = 0 To UserForm3.ListBox1.ListCount - 1
        cel.Offset(i, 0).Value = UserForm3.ListBox1.List(i, 0)
    Next i
End Sub

colle aussi cette partie dans un Module :

Code :

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

1
2
3
4
5
6
Public NewValeur As String
 
Sub test()
    UserForm3.Show
    Unload UserForm3
End Sub

Cette feuille (que tu peux masquer) est à intégrer à ton fichier de travail.
Est-ce que ça répond à tes attentes ?
à plus

[pythagore3_14]

C'est ce que j'avais fais à peu de choses près pour garder ma ListBox à jour. Et pour permettre à l'utilisateur de modifier la liste mon code est plus long mais un peu plus simple à mes yeux.
Merci !

[Le Pierre]

Bonjour

Voici une autre solution avec les données sauvegardées dans un petit fichier texte.
La création et la mise à jour du fichier texte est réalisée par le module : http://cjoint.com/?iAoJXc6dtx
Ensuite, pour les fichiers utilisateurs voici un exemple : http://cjoint.com/?iAoK1QSUhT
Dans ce dernier cas, le code est plus simple puisqu'il suffit de lire le fichier texte dans le répertoire du classeur en cours. Pour la mise à jour en cours d'année tu ne distribues que le petit fichier texte actualisé.

Si tu as beaucoup de fichiers utilisateurs, c'est peut être plus simple d'utilisation comme ceci.

à plus