XL 2013 Formule texte

[Abou Dinblan]

Bonjour au Forum,
Pouvez-vous m'aider dans la réalisation d'une formule qui recopie des nombres d'une colonne voulue (saisie en W1) dans la cellule X1 en format texte et séparés par une virgule?
MERCI et bon am.

 

[sylvanu]

Bonjour Abou,
Un essai en PJ avec cette fonction perso :

Function Concat(Col As Range)
Dim Ncol%, L%, N%, Chaine$
Ncol = Asc(Col) - 64
Chaine = ""
L = Cells(Cells.Rows.Count, Ncol).End(xlUp).Row
For N = L To 2 Step -1
    Chaine = Chaine & "," & Cells(N, Ncol)
Next N
Concat = Mid(Chaine, 2)
End Function

Attention ne marche que pour les colonnes de A à Z.

 

[djidji59430]

Bonjour à tous,

Avec une formule :

 

[Lolote83]

Bonjour à tous,
En reprenant la formule de @djidji59430 que je salue au passage.
J'ai juste inversé la position de la virgule ce qui donne

Puis suppression de la première virgule

Du coup la formule est la suivante

=STXT(CONCAT("," & INDIRECT($W$1&2&":"&$W$1&NBVAL(INDIRECT(W1&":"&W1))));2;100)

@+ Lolote83

 

[Abou Dinblan]

Bonjour,
C'est vraiment parfait !
Vous êtes doués !
MERCI