XL 2013 Formule texte

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Vendredi à 14:27

• #2

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

VB:

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.

 

Pièces jointes

• Classeur11.xlsm

  18.5 KB · Affichages: 2

Dernière édition: Vendredi à 14:35

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• Vendredi à 16:01

• #3

Bonjour à tous,

Avec une formule :

 

Pièces jointes

• Classeur11.xlsx

  11.6 KB · Affichages: 4

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• Vendredi à 16:12

• #4

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)

Cliquez pour agrandir...

@+ Lolote83

 

Vote positif 0 Vote négatif

A

Abou Dinblan

XLDnaute Junior

• Vendredi à 17:45

• #5

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

 

Vote positif 0 Vote négatif