ListBox à deux colonnes

[Angèle95]

Bonjour à tous,

voilà mon soucis : je vroudrais remplir ma listbox à deux colonnes à partir des données d'un classeur dont je ne connais pas le nombre de feuilles à l'avance. chaque ligne de la listbox contiendra en premiere colonne le nom d'une feuille et en deuxieme colonne la valeur d'une de ses cellules.
Mon probleme c'est que la seul methode que je connaise pour remplir une listbox a 2 colonne c'est par un tableau a 2 dimensions, mais quand je le redimmensionne il y a un bug.

voici mon code :

'initialisation de la liste de fiche
Dim i As Integer
Dim tabl() As String
Dim longeurtabl As Integer
Dim largeurtabl As Integer

' longeurtabl = 0
' largeurtabl = 1

' ReDim Preserve tabl(longeurtabl, largeurtabl)

For i = 1 To Workbooks(nomFichierFiches).Worksheets.Count

If (Workbooks(nomFichierFiches).Worksheets(i).Name = 'Feuil1') Then
ElseIf (Workbooks(nomFichierFiches).Worksheets(i).Name = 'commentaires') Then
Else

listeFicheCreation.AddItem (Workbooks(nomFichierFiches).Worksheets(i).Name & Workbooks(nomFichierFiches).Worksheets(i).Range('B12').Value)
'longeurtabl = longeurtabl + 1
'ReDim Preserve tabl(longeurtabl, largeurtabl)
End If
Next i

'listeFicheCreation.List = tabl


Merci.

 

[bebere]

bonjour Angèle,le Forum
voir fichier
à bientôt [file name=DemoPourAngele.zip size=15200]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DemoPourAngele.zip[/file]

 

[Abel]

Bonjour Angèle95, bebere,

Essaie ce bout de code :

Dim i As Byte

ListBox1.ColumnCount = 2
For i = 1 To ActiveWorkbook.Sheets.Count
ListBox1.AddItem
ListBox1.List(i - 1, 0) = Sheets(i).Name
ListBox1.List(i - 1, 1) = Sheets(i).Range('b12')
Next i
ListBox1.BoundColumn = 1

Bien sûr, il faut qu'un listbox nommé ListBox1 existe.

Abel.

 

[Angèle95]

Merci ca fonctionne !!
Je ne savais pas bien utiliser la methode additem.

Merci encore à vous deux