Discussion :

[yedid]

Bonjour,

J'ai crée une listbox qui se rempli au fur et a mesure que l'utilisateur entre des données et click sur des boutons...
Le probleme est que parfois la listbox ne se met pas a jour et c'est uniquement si je redimensionne la fenetre que la listebox se remet a jour avec les nouveaux elements inserés...

Quelqu'un pourait il me dire comment forcer la mise a jour de cette listbox??

Merci

[ouskel'n'or]

Donne ton code de mise à jour de ta listbox ainsi que l'événement qui permet ce rafraîchissement

[yedid]

Voila mon code (simplifié) :

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
Private Sub AddEpi_Click()
 
    Dim groupeEpiName As String
    Dim groupeEpiLabel As String
 
   groupeEpiName = Range("A1")
   groupeEpiLabel = Range ("A2")
 
   If SelectionOk(selection) Then
 
      If groupeEpiLabel <> "" Then
         ListBox_Epi.AddItem (groupeEpiLabel)
         Else: MsgBox "Erreur lors de la creation du groupe " & groupeEpiName
      End If
 
      Else: MsgBox "Veuillez entrer un nom de série valide"
 
   End If
 
End Sub

En fait, l'ajout se fait lorsque l'utilisateur selectionne certaines cellules et clik sur le bouton "AddEpi".. C'est la que un groupe se créé et son identifiant (groupeEpiLabel) s'insert dans la listbox
Et c'est la que des fois cela pose probleme car la listbox n'affiche rien de plus, sauf quand on redimensionne la fenetre excel, ou l'affichage se remet a jour..
Peut on donc forcer la mise a jour de la listbox ??
Merci

[ouskel'n'or]

Déjà, je mettrais de préférence ce code sur l'événement MouseUp du bouton (c'est un choix... )
Ensuite, j'ajouterais un DoEvents ici

Code :

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

1
2
3
4
5
    If groupeEpiLabel <> "" Then
         ListBox_Epi.AddItem (groupeEpiLabel)
         DoEvents
         Else: MsgBox "Erreur lors de la creation du groupe " & groupeEpiName
    Endif

Enfin, j'ignore ce qu'est "SelectionOk()" mais je suppose que c'est une fonction qui te retourne un boolean. Ce que je ferais si DoEvents ne change rien, c'est placer TOUTE ta procédure dans une sub indépendante que tu appelerais sur activation du bouton.
J'ai déjà observé le phénomène que tu décris et cette dernière solution a réglé le pb.
Tu dis
A+

[Garuda]

Eviter les propriétes par défaut (implicite)

If groupeEpiLabel.VALUE <> "" Then
ListBox_Epi.AddItem (groupeEpiLabel.VALUE)
DoEvents
Else: MsgBox "Erreur lors de la creation du groupe " & groupeEpiName
Endif