Tableau Redim Preserve, ajout dimensions
Bonjour ,
J'ai créer un tableau et j'aimerai qu'à nouvelle ligne, mon nombre de colonne puisse augmenter ; j'ai donc utiliser un ReDim Preserve.
Cela ne fonctionne pas...
Ci dessous mon code: Le problème se situe au niveau de la ligne ReDim Preserve arrayRef(k,1 To l)
Sub variables()
'Déclaration des variables
Dim livraison As Variant
Dim Article As Variant
Dim myPage As Variant
Dim myArray As Variant
Dim arrayRef As Variant
Dim i As Long
Dim k As Long
Dim l As Long
Dim refMax As Long
'Valeurs des variables
With Worksheets("Portefeuille")
livraison = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1)).Value
Article = .Range(.Cells(2, 3), .Cells(.UsedRange.Rows.Count, 3)).Value
ReDim arrayRef(0, 0)
ReDim myArray(0)
myArray(0) = .Cells(2, 1).Value
arrayRef(0, 0) = .Cells(2, 3).Value
k = 0
l = 0
refMax = 1
arrayRef(k, l) = .Cells(1, 3)
For i = 2 To .UsedRange.Rows.Count
If .Cells(i, 1) = .Cells(i - 1, 1) Then
If l > refMax Then
ReDim Preserve arrayRef(k, l + 1)
End If
Else
k = k + 1
ReDim Preserve myArray(k)
myArray(k) = Cells(i, 1)
ReDim Preserve arrayRef(k,1 To l)
arrayRef(k, l) = Cells(i, 3)
End If
Next
End With
End Sub
Bonjour,
Merci de joindre un fichier à ta demande avec le résultat attendu.
Le forum pourra intervenir pour une aide adaptée.
Cdlt.
Bonjour à tous,
Déjà la variable arrayRef est déclarée au début avec 2 dimensions, et dans la ligne surlignée
Redim Preserve arrayRef(1 to 1) c'est une seule dimension.
Ensuite en VBA pour les variable tableaux à plusieurs dimensions, on ne peut redimensionner uniquement que la dernière dimension.
donc les lignes suivantes ne sont pas conformes :
k=k+1
Redim Preserve arrayRef(k, 1 to 1)Pierre
Bonjour,
Ci joint le fichier.
Il contient une colonne avec des numeros de livraison et dans une autre colonne les articles correspondant.
Mon but étant d'identifier les livraisons avec les mêmes articles.