Discussion :

[sissi00000]

Bonjour a tous.

J'ai crée une listbox1 avec la barre d'outil excel et je la remplie en vba.
voila le code:

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
21
22
23
24
25
26
27
 
Dim dl%
 
Worksheets("Sheet1").Activate
 
With Sheets("Sheet1")
    .ListBox1.Clear
    dl = .range("AA65536").End(xlUp).Row
    .ListBox1.ColumnCount = 5
 
 
    For i = 10 To dl - 1
         j = 27
 
 
        If (.Cells(i, j).Text <> "" And .Cells(i, j).Text <> "Grand Total") Then
            .ListBox1.AddItem Cells(i, j).Text
 
          For j = 28 To 31
                 .ListBox1.List(.ListBox1.ListCount - 1, j - 27) = Cells(i, j)
 
 
          Next
        End If
    Next
 
  End With

ca marche tres bien, le seul probleme c'est que ma listbox ne se rafraichit pas jusqu'a ce que je bouge ma feuille excel ou bien clique sur les items un par un...
y a t il quelque chose a rajouter dans mon code?
Merci pour vos reponses

[OhMonBato]

C'est bien QUE du VBA, pas du VB6 ?

[sissi00000]

Merci pour ta reponse OhMonBato
oui c'est que du vba.
J'ai essayé

Code :

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

listBox1.refresh()

et

Code :

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

listBox.update()

et ca marche pas.

[ouskel'n'or]

C'est beaucoup plus simple

Code :

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

listBox1.clear

Ensuite tu relances la procédure pour le remplir.
Tu peux également utiliser RowSource mais dans ce cas-là, pas besoin de Clear.
Puisque tes données semblent se suivre dans la feuille de calculs, RowSource pour lequel tu définis une plage de cellules, se met à jour à chaque modification de donnée de cette plage.
Précise ce que tu veux obtenir