Bonjour à tous (et bonne année !!!)

bon alors voilà : j'ai fait mes classes en développant une grosse appli en VBa - XL - ACCESS mais là ça commence à faire des choses qui ne me plaisent pas du tout, surtout depuis que dans ma boîte on est passé en Windows 10 + Office 2010 avec des versions de MSCOMCTL.OCX et MSCOMCT2.OCX différentes d'une install à l'autre...

en clair, les utilisateurs ont des messages d'erreur dans tous les sens au gré des nouvelles versions que je déploie...

donc j'essaie de faire un truc plus robuste avec Visual Studio et donc en VB...

et là ça va plus du tout...

j'essaie de remplir 3 listviews en les appelant de manière dynamique.
chaque listview est dans un groupbox
ces groupbox sont dans un tabcontrol qui est donc dans un form (ouf !)

bref...

j'ai ma petite procédure pour remplir les headers de ma listview (récupérée de mon code VBa mais adapté en VB)... mais visiblement pas assez car ça ne marche pas et j'ai beau écumer les forums et me creuser la tête... je te trouve pas...

mon code initial :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Format_Lst(Quoi, field)
        Dim Field
        Dim titre = Split(Field, ",")
        With Controls("Lst_" & Quoi)
            .Columns.Clear()
            .Items.Clear()
            For i = 0 To UBound(titre)
                .Columns.Add(Trim(titre(i)))
            Next i
 
        End With
 
    End Sub
ensuite j'ai tenté des choses...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Format_Lst(Quoi, field)
        Dim Field
        Dim titre = Split(Field, ",")
        dim ess as listview = me.controls("Lst_" & Quoi)
        With ess
            .Columns.Clear()
            .Items.Clear()
            For i = 0 To UBound(titre)
                .Columns.Add(Trim(titre(i)))
            Next i
 
        End With
 
    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
Sub Format_Lst(Quoi, field)
        Dim Field
        Dim titre = Split(Field, ",")
        dim ess as groupbox = me.mutlipage1.controls("frame_" & Quoi)
        With ess.controls("Lst_" & Quoi)
            .Columns.Clear()
            .Items.Clear()
            For i = 0 To UBound(titre)
                .Columns.Add(Trim(titre(i)))
            Next i
 
        End With
 
    End Sub
rien n'y fait...

dans la fenêtre d'espion, ess ressort invariablement en NOTHING...

un petit peu d'aide ne serait pas de refus du coup...