Redim Preserve et Application.Transpose

[RaceX]

Bonjour à tous,

Je transpose le résultat d'un Recordset dans un tableau de type Variant.
Je souhaite agrandir la dernière dimension du tableau obtenu mais j'obtiens une erreur 9. Avez vous une idée d'où vient l'erreur?

    Set Rs = cnn.Execute(Sql)
    TableEclate = Application.Transpose(Rs.GetRows)
    ReDim Preserve TableEclate(UBound(TableEclate, 1), UBound(TableEclate, 2) + 1)

Pour info, après avoir alimenté mon tableau, celui ci fait TableEclate (15, 5)

Merci par avance.

 

[Pierrot93]

Re : Redim Preserve et Application.Transpose

Bonjour Race,

essaye peut être ainsi :

    ReDim Preserve TableEclate([B][COLOR="Red"]1[/COLOR][/B] To UBound(TableEclate, 1), [COLOR="red"][B]1[/B][/COLOR] To UBound(TableEclate, 2) + 1)

En supposant un tableau déclaré en "variant" dont le premier élément est "1", sinon modifier par "0"...

bonne journée
@+

 

[RaceX]

Re : Redim Preserve et Application.Transpose

Ce forum est vraiment une mine d'or! Merci Pierrot pour cette réponse rapide et surtout JUSTE. 🙂

Longue vie à Excel Downloads 🙂