Discussion :

[rampage92]

Bonjour à tous,

J'ai créé une Listbox avec des titres pour chaque colonne de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    For Each k In Split(ColVisu, ",")
        Set Lab = Me.Frame1.Controls.Add("Forms.Label.1")
        Lab.Caption = f.Cells(1, Val(k))
        Lab.Top = Y
        Lab.Left = x
        x = x + f.Columns(Val(k)).Width
        temp = temp & f.Columns(Val(k)).Width & ";"
        column_name = column_name & Lab.Caption & ";"
    Next k

Ou ColVisu renvois un vecteur correspondant au nom de colonne que je veux selectionner dans mon fichier Excel pour afficher les entetes de colonne.
Le nombre de colonne etant variable, je souhaiterai effacer toutes les entetes avant de relancer la boucle sinon l'affichage n'est pas correct. Comme dans l'image ci dessous :


Merci d'avance

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Lab As Control
 
For Each Lab In Me.Frame1.Controls
    If TypeName(Lab) = "Label" Then Me.Frame1.Controls.Remove Lab.Name
Next Lab

[rampage92]

Merci