Bonjour a tous.
J'ai crée une listbox1 avec la barre d'outil excel et je la remplie en vba.
voila le code:
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...
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
y a t il quelque chose a rajouter dans mon code?
Merci pour vos reponses
Partager