Hervé
XLDnaute Barbatruc
Bonjour tout le monde
J'ai un petit souci pour redimensionner des tableaux, je m'explique
je cherche à faire un tableau dynamique contenant d'autres tableaux.
a travers une boucle je voudrais rajouter une colonne à chaque tableau secondaire du tableau principal.
Mais je ne dois pas avoir la bonne syntaxe.
voici mon code simplifié à l'extreme :
la ligne en défaut est celle ci :
auriez vous une petite idée pour cette syntaxe.
d'avance je vous en remercie.
salut
Message édité par: hervé, à: 24/01/2006 10:39
J'ai un petit souci pour redimensionner des tableaux, je m'explique
je cherche à faire un tableau dynamique contenant d'autres tableaux.
a travers une boucle je voudrais rajouter une colonne à chaque tableau secondaire du tableau principal.
Mais je ne dois pas avoir la bonne syntaxe.
voici mon code simplifié à l'extreme :
Sub Bouton1_QuandClic()
Dim tablo1()
Dim tablo2()
Dim tabloS(1 To 2)
Dim i As Byte
'initialisation des tableaux secondaires
tablo1 = Range('a1:a20')
tablo2 = Range('b1:b20')
'initialisation du tableau principal
tabloS(1) = tablo1
tabloS(2) = tablo2
'syntaxe correct mais à integrer à une boucle
ReDim Preserve tablo1(1 To UBound(tablo1), 1 To 2)
'boucle sur chaque tableau pour rajouter une colonne
For i = 1 To UBound(tabloS)
redim preserve tabloS(i)(1 to ubound(tabloS(i)),1 to 2)'MAUVAISE SYNTAXE
Next i
End Sub
la ligne en défaut est celle ci :
redim preserve tabloS(i)(1 to ubound(tabloS(i)),1 to 2)'MAUVAISE SYNTAXE
auriez vous une petite idée pour cette syntaxe.
d'avance je vous en remercie.
salut
Message édité par: hervé, à: 24/01/2006 10:39