VBA tableau 2 dimensions

Résolu
chrisnyc Messages postés 25 Date d'inscription mardi 16 août 2005 Statut Membre Dernière intervention 22 septembre 2005 - 9 sept. 2005 à 16:41
chrisnyc Messages postés 25 Date d'inscription mardi 16 août 2005 Statut Membre Dernière intervention 22 septembre 2005 - 12 sept. 2005 à 21:35
bonjour
voici mon probleme j ai besoins d alimenter un tableau 2 d mais dont la taille n est pas constante
les redim utilises ici me donne une erreur!!!!!
voici mon bout de code qui plante
Dim Price() As String
Dim OverFlds() As String
Dim cusip() As String
.........................
For compt2 = LBound(cusip) To UBound(cusip)

If cusip(compt2) <> "" Then
Sheets(3).Range("A1").Select
compt = 0
For n = 1 To nb_over
If ActiveCell.Offset(compt2 - 1, n).Value <> "" Then
'ReDim Preserve Price(compt2, compt)
'ReDim Preserve OverFlds(compt2, compt)
OverFlds(compt2, compt) = Override_mnem(0)
Price(compt2, compt) = ActiveCell.Offset(compt2 - 1, n).Value
compt = compt + 1
End If
Next n
End If
Next compt2
..........................................

Merci d avance pour vos conseils
cordialement
christophe

7 réponses

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
9 sept. 2005 à 16:55
Salut Chris NYC,


C'est dans la synthaxe de ton ReDim que ça cloche :



voisi une expmple idiot : dans la case 1 le nombre, dans la case 2, le carré ;)





Dim t() As String



Dim i As Integer



For i = 1 To 10



If i = 1 Then

ReDim t(1 To 2, 1 To 1)

Else

ReDim Preserve t(1 To 2, 1 To i)

End If



t(1, i) = i

t(2, i) = i * i

Next i



For i = 1 To 10

Debug.Print "t(1," & i; ") " & t(1, i) & " t(2," & i; ") " & t(2, i)

Next i





++

Zlub
3