Discussion :

[Spani]

Bonjour,

J'ai un souci avec une matrice qui a 2 colonnes et X lignes, a cause de Preserve. En effet je voudrais lui ajouter une ligne mais Preserve ne me permet de modifier que la 2e dimension.
J'ai vu quelques problemes semblables sur le forum mais je n'arrive pas a comprendre le code qui a ete donne pour resoudre le ptit souci.
Voila mon code, j'appelle la procedure chaque fois que je dois modifier la matrice.

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
Sub actualizar_listing()
 
     Dim listing() as Variant
     Dim nb_lineas, i, j as Integer
     'nb_lineas = nb de lignes du listing
 
     nb_lineas = nb_lineas + 1
     ActiveSheet.Range("B10").Value = nb_lineas
 
     ReDim Preserve Listing(1 To nb_lineas, 1 to 6)
 
     Listing(nb_lineas,1) = tipo_salida
     Listing(nb_lineas,2) = Cant_entrada.Art.List(0, 0)
     Listing(nb_lineas,3) = Cant_entrada.Art.List(0, 5)
     Listing(nb_lineas,4) = Cant_entrada.Art.List(0, 6)
     Listing(nb_lineas,5) = Cant_entrada.Art.List(0, 7)
     Listing(nb_lineas,6) = Cant_entrada.Art.List(0, 4)
 
End Sub

Ouskel'n'or avait donne un code qui me semble-t-il avait resolu un probleme similaire mais....... JE NE LE COMPRENDS PAAAAAAAAAAS !!!!!!!!!!!!!!!!! (c'est peut-etre parce que c'est le matin) voila ce que c'etait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Tableau1()
Dim Tableau2()
'Gnagna...
i = i + 1
Redim Preserve Tableau1(i)
j = j + 1
Redim Preserve Tableau2(j)
'Gnagna
'Gnagna...
Tableau2(j) = "Une donnée"
Tableau1(i) = Tableau2
 
'Pour retrouver ta donnée :
msgbox Tableau1(i)(1) '=> "Une donnée"

Voila si quelqu'un pourrait m'eclairer un peu en m'expliquant ca en l'adaptant a mon probleme... Ce serait super.
Merci beaucoup de votre aide
Carole

[Spani]

Alors voila ou j'en suis :

J'ai trouve une solution pour resoudre mon probleme, mais sans resoudre la question qui me tourne dans la tete depuis hier soir : comment redimensionner ma matrice au niveau des lignes sans toucher a son contenu ???? Du coup pour des questions de culture generale je ne clique pas tout de suite sur RESOLU pour voir si quelqu'un sait comment le faire.
J'ai penser a la transposer (la matrice), modifier le nb de colonnes, puis la retransposer et on la retrouve ds le bon sens avec le nouveau nb de lignes. Oui je sais c'est ingenieux. Mais je ne sais pas comment le faire.

A vos claviers j'attends vos reponses. Concours ouvert jusqu'a 11h30.
A+
Carole

[ouskel'n'or]

Bon, par mp je t'ai répondu un peu vite... bref, je t'ai dit une c...rie.
Tu ne peux pas redimensionner la seconde dimension de ton tableau. Par contre tu peux inverser les indices et redimensionner la 1ère dimension.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     ReDim Preserve Listing(6,  nb_lineas)

Ton code sera à modifier en conséquence.
A+

[Spani]

OK donc en fait ca ca fait tout simplement ce que je voulais c'est a dire transposer la matrice non ??? Je teste tout de suite.
Merci !
Carole