VBA ListBox Tableaux de données

[vivi4561]

Bonjour,

Je travaille sur la création d'une listBox qui permet de choisir une donnée parmi d'autres. J'ai mis un exemple en pièce jointe de ce que j'arrive à faire pour l'instant.

J'aimerai que je récupère non plus les données de la colonne A-B mais des lignes 1-2 (j'aimerai que la macro me mette de façon automatique les données verticalement dans la ListBox en supprimant les espaces vides : enfait j'aimerai que ça soit de la forme actuelle mais avec les données des lignes 1-2).

Savez vous comment faire ?


Merci d'avance,


Vince

 

[Pierrot93]

Re : VBA ListBox Tableaux de données

Bonjour,

essaye ceci :

Private Sub UserForm_Initialize()
    Dim TabTemp As Variant
    Dim i As Integer
    TabTemp = Range("F1:AB2").Value
    ListBox1.ColumnCount = UBound(TabTemp)
    ListBox1.Column = TabTemp
    For i = ListBox1.ListCount To 1 Step -1
        If ListBox1.List(i - 1, 0) = "" And ListBox1.List(i - 1, 1) = "" Then _
            ListBox1.RemoveItem (i - 1)
    Next i
End Sub

bonne fin d'après midi
@+

 

[vivi4561]

Re : VBA ListBox Tableaux de données

Nikel Pierrot !!
Merci bcp ça marche vraiment bien.

Dernière question : Sais tu comment faire pour ajuster de façon automatique la taille dans la ListBox le 1ier élément (contenu sur la ligne 1 : car c'est toujours un petit nombre et je trouve qu'il y a énormément d'espace entre le 1ier élément et le 2ième élément).


Je te remercie pour ton aide !

 

[Pierrot93]

Re : VBA ListBox Tableaux de données

Re,

modifie peut être ainsi, tu peux également faire varier la largeur de ta "listbox"

Private Sub UserForm_Initialize()
    Dim TabTemp As Variant
    Dim i As Integer
    TabTemp = Range("F1:AB2").Value
    ListBox1.ColumnCount = UBound(TabTemp)
    ListBox1.Column = TabTemp
    For i = ListBox1.ListCount To 1 Step -1
        If ListBox1.List(i - 1, 0) = "" And ListBox1.List(i - 1, 1) = "" Then _
            ListBox1.RemoveItem (i - 1)
    Next i
    ListBox1.ColumnWidths = "30;30"
End Sub

 

[vivi4561]

Re : VBA ListBox Tableaux de données

Tout simplement : BRAVO !
Parfait de chez parfait. Un grand merci.