Remplissage Listbox à partir d' un Array partiellement

[tora]

Bonjour a tous,

Voila je teste ce bout de code et je bug .... ( lb3 est mon listbox )
*Actuellement il est évident que lb3.list=Data sauverait la situation*,
mais mon problème est d'assurer ce bout de code pour ensuite
modifier quelle partie de Data sera transfèré car à terme,
TOUT ne doit pas venir dans lb3
( ainsi par ex, je pourrai préciser de sauter le 1e index de Data, etc ... )

Dim Data(),Lig as Integer,Col as Byte
Redim Data(1 to 16,1 to 11)
For Lig = 1 To UBound(Data)
For Col = 1 To UBound(Data, 2)
lb3.List(Lig - 1, Col - 1) = Data(Lig, Col)
Next Col
Next Lig

merci

 

[JNP]

Re : Remplissage Listbox à partir d' un Array partiellement

Salut Tora ,
C'est gentil de penser à moi (MP) quand je n'utilise que des tableaux à 1 dimension et jamais de ListBox ...
J'ai regardé et ce ne fut pas simple !
Le problème est que tu veux utiliser la propriété List d'un tableau qui n'est pas encore créé. Avec le code suivant, ça fonctionne, à toi de voir comment tu calcules la dimension d'Essai pour la taille de ton tableau.

Private Sub UserForm_Initialize()
Dim Data(), Lig As Integer, Col As Integer
Dim Essai()
ReDim Data(1 To 11, 1 To 16)
ReDim Essai(1 To 11, 1 To 16)
lb3.ColumnCount = 16
For i = 1 To 11
For j = 1 To 16
Data(i, j) = i + j
Next j
Next i
lb3.List() = Essai
For Lig = 0 To UBound(Data) - 1
For Col = 0 To UBound(Data, 2) - 1
lb3.List(Lig, Col) = Data(Lig + 1, Col + 1)
Next Col
Next Lig
End Sub

Bonne journée

 

[tora]

Re : Remplissage Listbox à partir d' un Array partiellement

Salut Tora ,
C'est gentil de penser à moi (MP) quand je n'utilise que des tableaux à 1 dimension et jamais de ListBox ...
J'ai regardé et ce ne fut pas simple !
Le problème est que tu veux utiliser la propriété List d'un tableau qui n'est pas encore créé. Avec le code suivant, ça fonctionne, à toi de voir comment tu calcules la dimension d'Essai pour la taille de ton tableau.

Private Sub UserForm_Initialize()
Dim Data(), Lig As Integer, Col As Integer
Dim Essai()
ReDim Data(1 To 11, 1 To 16)
ReDim Essai(1 To 11, 1 To 16)
lb3.ColumnCount = 16
For i = 1 To 11
For j = 1 To 16
Data(i, j) = i + j
Next j
Next i
lb3.List() = Essai
For Lig = 0 To UBound(Data) - 1
For Col = 0 To UBound(Data, 2) - 1
lb3.List(Lig, Col) = Data(Lig + 1, Col + 1)
Next Col
Next Lig
End Sub

Bonne journée

bouuuu comme toujours tu m'en veux ....

que veux-tu, j'ai régulièrement une petite pensée
pour les gens compétents ...
bon alors tu me conseille d'ajouter un Array dans mon
casse-tête de base .... bah finalement je crois que
c'est pas une mauvaise idée du tout !
Et je vais de ce pas y travailler !

Merci encore et toujours JNP !

 

[tora]

Re : Remplissage Listbox à partir d' un Array partiellement

JNP,

voila un test de fin d'étude ...

@+

 

[JNP]

Re : Remplissage Listbox à partir d' un Array partiellement

Salut Tora ,
Nickel. Tu va pouvoir continuer ton TicTacToe .
Bon dimanche

 

[tora]

Re : Remplissage Listbox à partir d' un Array partiellement

Salut Tora ,
Nickel. Tu va pouvoir continuer ton TicTacToe .
Bon dimanche

et voilà tu te moque encore ...

Bon dimanche JNP !