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

Bonjour,

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

Cordialement

[Edit] Hello @pierrejean 🙂

pierrejean à dit:

Bonjour kontractor 08
un essai

Cliquez pour agrandir...

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

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

un grand merci

Bonjour,

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

Cordialement

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