ListBox : Initialize, Hide, Unload

Version imprimable

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:

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...

Bonjour

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

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

25/08/2008, 10h17
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 ?

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:

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:

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

26/08/2008, 11h05
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 !
26/08/2008, 14h42
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