Discussion :

[Filippo]

bonjour,
J'utilise :

Code :

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

MyListBox.ListFillRange="NomDuRange"

pour mettre des données dans un ListBox.

L'affichage du ListBox est mauvais, je dois sélectionner un autre onglet puis revenir sur l'onglet du ListBox pour voir l'affichage correct. Là le contenu du ListBox est tout à fait correct.

Existerait-il une manière de rafraîchir l'affichage du ListBox autrement qu'en sélectionnant un autre onglet puis de sélectionner l'onglet du ListBox ?

Merci

[Filippo]

J'ai trouvé une solution moche.

J'utilise des API windows pour rafraîchir l'écran.

Code :

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

1
2
3
4
5
Declare Function ShowWindow Lib "user32" ( _
                 ByVal hwnd As Long, _
                 ByVal nCmdShow As Long) As Long
 
Declare Function GetActiveWindow Lib "user32" () As Long

Et dans le code :

Code :

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

1
2
3
Dim lIsOkay As Long
lIsOkay = ShowWindow(GetActiveWindow(), 9)
lIsOkay = ShowWindow(GetActiveWindow(), 3)

qui minimise puis rétablit l'écran actif.
C'est moche mais ça redessine correctement mon ListBox.

J'ai essayé avec l'API

Code :

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

UpdateWindow(GetActiveWindow())

mais ça ne marche pas.

Si quelqu'un a une autre idée je suis preneur

[i0raek]

Bonjour à tous !

Est ce que tu pourrais envoyer un fichier exemple !

[Filippo]

Voilà un exemple du fonctionnement.

[i0raek]

Re !

En fait, tu n'as pas besoin de t'embêter avec les API & Co...
Voici une solution à mettre sur ta feuille :

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    shtReservation.lb_ListStockLoans.ListFillRange = "Donnees"
 
End Sub

à chaque changement de valeur, ta list est actualisée. Par la suite, tu peux faire un controle sur l'adresse de la cellule qui a été modifiée pour voir si elle appartient à ta plage de données :

Code :

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

1
2
 
If intersect(target,"Donnees")=true then

Voila si tu as d'autres problème n'hésite pas !

Bonne soirée !

[Filippo]

Merci beaucoup.

J'essaierai ça Lundi au bureau.

Bon week-end.