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
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]
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.