Remplissage Listbox à partir d' un Array partiellement

JNP à dit:

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.

Code:

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 😎

Cliquez pour agrandir...

JNP à dit:

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

Cliquez pour agrandir...