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