A
Angèle95
Guest
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.
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.