Bonjour,
j'essai d'utiliser "redim preserve" pour redimenssionner un tableau sous Excel dans une boucle,
ca marche à la première itération,
ensuite j'ai le message d'erreur : "L'indice n'apparitient pas à la sélection"
Voici le code :
Quelqu'un aurait une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Dim myarray() As String Ecran.ColumnCount = 2 For i = 0 To 50 If Not IsNull(Sheets("Données_paramétrage").Range("A" & i + 2)) And Sheets("Données_paramétrage").Range("I" & i + 2) = Me.IGE And Len(Sheets("Données_paramétrage").Range("A" & i + 2)) > 0 Then 'Ecran.AddItem (Sheets("Données_paramétrage").Range("K" & i)) 'ReDim Preserve myarray(2) ReDim Preserve myarray(i, 0 To 2) myarray(i, 0) = Sheets("Données_paramétrage").Range("K" & i + 2) myarray(i, 1) = Sheets("Données_paramétrage").Range("J" & i + 2) Debug.Print Sheets("Données_paramétrage").Range("K" & i + 2) End If Next Ecran.List() = myarray
Merci d'avance
Partager