rafraichir une listbox

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

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

Voila mon code (simplifié) :

Code:

---

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

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:

---

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+

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

Citation:

---

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

---