Probleme affichage listview sur feuille excel
Salut,
J'ai incorporé 2 listview sur une feuille excel.
Lors du chargement du fichier j'arrive sur la page contenant les 2 listview et voici se qui apparait!
http://www.arnaud-bayle.com/listview.jpg
Des petits bouts de listview dans des carrés blancs.
Je précise que l'intégralité des données est préservée.. juste l'apparence est bizarre.
Si je change de page et que je reviens tout est rentré dans l'ordre.
Si je scroll juste la page en haut ou à droite, idem, cela remarche !!???
Les 2 list sont remplies via vba. Il y a un refresh pour chacun dans le Workbook_Open et dans le code de remplissage.... Que faire sniffff :(
Code:
1
2
3
4
5
6
7
8
9
|
Private Sub Workbook_Open()
Worksheets("MLI_List").liste_champs.Top = 0.5
Worksheets("MLI_List").liste_champs.Width = 166
Worksheets("MLI_List").liste_champs.Height = 87
Worksheets("MLI_List").liste_champs.Refresh
End Sub |
Code:
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 n As Integer
Dim i As Integer
Dim tablo() As String
With Worksheets("MLI_List").liste_champs
'With .ColumnHeaders
' .Clear
' .Add , , "Champs", 180
'End With
.ListItems.Clear
.FullRowSelect = True
.HideColumnHeaders = True
connection
Set oTbl = oDb.TableDefs("TMLI")
n = oTbl.Fields.Count
On Error GoTo err
ReDim tablo(n)
For i = 2 To n - 1
tablo(i) = oTbl.Fields(i).Name
.ListItems.Add , , tablo(i)
Next i
oDb.Close
Set oDb = Nothing
Set oTbl = Nothing
.Refresh
End With |
Je peux essayé des trucs pas très propres comme changer de page et revenir à la première lors de l'ouverture, mais je ne trouve pas ca très classe !! :aie:
Enfin, si qq a une idée.... MERKI
