ListBox sélectionnée, mais en fait non. Enfin si mais ça se voit pas

Salut

J'ai ce code pour mémoriser la sélection d'une ListBox avant de la regénérer (pour trier les pour resélectionner la ligne une fois que c'est fait :

If ListeTypes.ListIndex > -1 Then
     Enregistrement_clé = ListeTypes.List(ListeTypes.ListIndex, 5)
     Call Initialisation_ListeTypes
     For i = 0 To ListeTypes.ListCount - 1
          If ListeTypes.List(i, 5) = Enregistrement_clé Then
               ListeTypes.Selected(i) = True
               Exit For
          End If
     Next i
End If

Mon problème est que la ligne sélectionnée n'est pas surlignée en bleue sur la ListBox. Pourtant l'espion me confime bien que ListeTypes.selected(i) = True...

Vous avez déjà eu le cas ?

Manu

Bonsoir,

essayez de mettre un me.repaint quelque part après les modifications... Ou un truc comme ça afin de rafraichir l'affichage du USF.

@ bientôt

LouReeD

Ok merci je vais essayer.

Manu