XL 2016 Concatener plusieurs ligne d'un range (range variable)

[kontractor08]

Bonjour à tous,

je sèche depuis quelques jours la dessus

je dois regrouper pour creer un csv les valeur d'un range sheets("provisoir") (concatener chaque ligne indépendamment et les copier les unes sous les autres dans la sheets("labo") avec une virgule comme séparateur.
je dois également inverser l'ordre des 2 premières colonnes.

je ne l ai pas mis mais cette macro sera déclenchée par un bouton
je vous joint un exemple
merci par avance

 

[pierrejean]

Bonjour kontractor 08
un essai

 

[Hasco]

Bonjour,

En une requête powerquery (inclus dans votre version).

Cordialement

[Edit] Hello @pierrejean

 

[kontractor08]

Bonjour kontractor 08
un essai

Bonjour Pierrejean
toujours là à la rescousse

ton code est parfait, c'est exactement ce que j'ai besoin
par contre lorsque je réimporte ton code, j ai une erreur à la ligne For n --> (erreur de compilation variable non definie )


Sub export_bioxa()


'CREATION DE LA FEUILLE POUR CSV

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "BIOXA"
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "provisoir"

'concatainer les resultats
Sheets("BIOXA").Activate
Sheets("BIOXA").Select
For n = 1 To Sheets("provisoir").Range("A" & Rows.Count).End(xlUp).Row
a = Sheets("provisoir").Range("B" & n) & "," & Sheets("provisoir").Range("A" & n) & ","
For m = 3 To 13
a = a & Sheets("provisoir").Cells(n, m) & ","
Next
Sheets("labo").Range("A" & n) = Left(a, Len(a) - 1)
Next
End Sub


j'avoue que la je sèche
j ai essayé de la définir avec dim n as range

 

[kontractor08]

c'est bon j ai trouvé les bonnes déclarations ca fonctionne nickel

un grand merci

 

[Hasco]

Bonjour,

Et la version powerquery que je vous ai donnée ?

Cordialement

 

[kontractor08]

Bonjour Roblochon

votre version fonctionne mais dans mon cas de figure elle ne s adaptera pas a cause du fais que mon fichier comporte 15 module qui se recroisent dans leur code
merci merci beaucoup


j ai adopté la solution de Pierrejean en ayant retrouvé mon erreur

merci encore a tous