Code regroupement excel VBA

Citation:

---

Envoyé par aziz1015

A moins que je m'y prenne mal

---

Sans poster de code …

Bonjour,

Je n'ai pas dit d'enlever la ligne. Simplement le "Preserve".

Citation:

---

De la destination ? Il n'y a rien dans la feuille de destination !

---

Ca n'empêche pas le code de planter quand il va la chercher !

Citation:

---

Par ailleurs j'ai modifié mon fichier test !

---

Tu l'as mis dans quel post ?

Bonjour,

J'ai trouvé une solution !

Apparemment,

Code:

---

DEST.Resize(UBound(TL, 2), UBound(TL, 1)) = Application.Transpose(TL)

---

limite de la transposition d'un élément du tableau semble être de 255 caractères.

Du coup, en modifiant comme ceci :

Code:

---

1 2 3 4

ReDim Preserve TL(1 To NC, 1 To K) For L = 1 To NC 'boucle 2 : sur toutes les colonnes de TC TL(L, K) = Left(TC(J, L), 255)

---

Le regroupement se fait parfaitement

Merci pour votre aide

Exact et c'est pour cela qu'il est idiot d'utiliser cette fonction dans ce cas !

Comme déjà indiqué, la solution est de créer la variable tableau directement au format de sortie et l'alimenter de même …