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!




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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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 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 !!

Enfin, si qq a une idée.... MERKI