Concaténer colonnes en utilisant les tableaux (Array)

[cathodique]

Bonsoir,

Très confus de revenir vers vous. Ce matin, j'ai ouvert une discussion pour la concaténation dans une colonne, les valeurs de cette même colonne et 2 autres; puis de supprimer ces 2 dernières.

J'ai eu 2 solutions, dont celle de Mécano41 (merci) que j'ai testé assez rapidement (mes enfants me harcelaient pour leur sortie) et pensé qu'elle répondait bien à mes attentes. voici le code ci-dessous:

Option Explicit
Option Base 1

Sub GroupeInfos()
Dim T As Variant
Dim T1()
Dim PlageDonn As Range
Dim Cpt As Long

Set PlageDonn = Range(Range("D8"), Range("J65536").End(xlUp))
T = PlageDonn.Value
ReDim T1(UBound(T, 1))
For Cpt = 1 To UBound(T)
    T1(Cpt) = T(Cpt, 1) & Chr(10) & T(Cpt, 6) & Chr(10) & T(Cpt, 7)
Next Cpt
Range("D8").Resize(UBound(T), 1).Value = WorksheetFunction.Transpose(T1)
Columns("I:J").Delete Shift:=xlToLeft
End Sub

Donc, en testant à tête reposée je me suis aperçu que les données étaient décalées vers le bas d'une ligne. La 1ère ligne colonne "D" est vide et les valeurs de la dernière ligne ne sont pas prises en compte (c'est comme-ci la dernière ligne est omise).

Ne maitrisant pas du tout les tableaux, je m'en remets à vous. Je suis juste parvenu à modifier le code par rapport à mon post de ce matin (colonne "D" au lieu de "B").

Il y sûrement une petite erreur dans le code. Je vous remercie beaucoup. J'ai failli bousillé mes données de + de 6000 lignes.

Cordialement,

 

[eriiic]

Re : Concaténer colonnes en utilisant les tableaux (Array)

Bonjour,

Option Explicit
et Option Base 1
doivent être en premières lignes dans le module.

J'ai failli bousillé mes données de + de 6000 lignes.

Ben non, puisque tu prends soin de toujours avoir une copie de secours ;-)

eric

 

[cathodique]

[Parfaitement Résolu] : Concaténer colonnes en utilisant les tableaux (Array)

Bonsoir Eric,

En effet, j'ai une copie de secours mais au bureau.

J'avoue que j'ai fait du n'importe quoi aujourd'hui.

J'ai voulu avancer sur mon fichier tout en ayant promis aux enfants une sortie.

Conclusion, je ne ferai qu'une seule chose à la fois. Surtout quand les enfants sont présents.

Je te remercie beaucoup Eric. Ouf! j'ai un peu de paix ils dorment enfin.

Encore mille mercis.

Cordialement,