Redim Preserve tableau

Bonjour,

j’essaie de redimensionner un de mes tableaux et ça bloque tout mon code, le bout de code problématique est celui-la

 tableau_transpose = Application.Transpose(tableau_CC)

            a = UBound(tableau_transpose, 1)
            b = UBound(tableau_transpose, 2)

 ReDim Preserve tableau_transpose(a, b + 1)

je ne comprends pas car j'ai essayé avec des petits exemple sur d'autre fichier excel pour tester et ça marche parfaitement le redimensionnant de la derniere dimension.

Je vous envoi en pièce jointe mon fichier excel sur lequel ça bloque

Si quelqu'un pourrait me donner une idée du problème

merci beaucoup

Bonjour,

Test en faisant l'inverse :

a = UBound(tableau_CC, 1)
b = UBound(tableau_CC, 2)

ReDim Preserve tableau_CC(a, b + 1)

tableau_transpose = Application.Transpose(tableau_CC)

Hervé.

Bonjour,

Merci mais ce que je veux cest d'augmenter la derniere dimension de tableau_transpose, pourquoi ca ne marche pas?

Bonjour,

Dans un tableau, seule la dernière dimension est redimensionnable et ce n'est pas en essayant de contourner le truc en faisant passer la première en seconde position que tu peut y arriver ! La fonction Transpose ne fait que d'inverser les lignes en colonnes et vice versa mais ton tableau reste le même et une fois transposé, tu ne peux plus rien y faire. Il te faut créer ta propre fonction de transposition.

Hervé.