grouper et convertir excel en texte

[reve24]

Bonjour
pourrais je avoir de l aide
comment rassembler pour convertir en texte
J ai ceci
A,"C010201990","01","ET1","ET1"
B,"02","ET1"
B,"03","F1C"
je souhaite ceci
A,"C010201990","01","ET1","ET1",B,"02","ET1",B,"03","F1C"

merci a vous

 

[hbenalia]

Re : grouper et convertir excel en texte

Bonjour à tous,

On peut utiliser la fonction MCONCAT qui concatène un ensemble des valeurs contenues dans une plage ou un tableau et qu'on peut avoir (avec plusieurs d'autres fonctions très utiles) en téléchargeant du web la macro complémentaire "Morefunc", voir "Aide" pour l'utilisation de cette fonction.

Cordialement

 

[phlaurent55]

Re : grouper et convertir excel en texte

Bonjour à tous,

voir fichier joint
il est nécessaire d'activer les macros

Sub Macro1()
Position = 1
For i = 1 To Range("A65535").End(xlUp).Row
If Left(Cells(i, 1), 1) = "A" Then
Position = i
Cells(Position, 3) = Cells(i, 1)
Else
Cells(Position, 3) = Cells(Position, 3) & "," & Cells(i, 1)
End If
Next i
End Sub

à+
Philippe

 

[hbenalia]

Re : grouper et convertir excel en texte

Bonjour à tous,

On peut aussi utiliser le code (fonction personnalisée à mettre dans un module) créé par Rick Rothstein (MVP - Excel)

Function ConCat(Delimiteur As Variant, ParamArray CellRanges() As Variant) As String
Dim Cell As Range, Area As Variant
If IsMissing(Delimiteur) Then Delimiteur = ""
   For Each Area In CellRanges
     If TypeName(Area) = "Range" Then
       For Each Cell In Area
         If Len(Cell.Value) Then ConCat = ConCat & Delimiteur & Cell.Value
       Next
     Else
       ConCat = ConCat & Delimiteur & Area
     End If
   Next
ConCat = Mid(ConCat, Len(Delimiteur) + 1)
End Function

Utilisation:

=CONCAT("Delimiteur";PLAGE)

Cordialement

 

[reve24]

Re : grouper et convertir excel en texte

Super Merci à phlaurent 55 et à toi
Toutefois
COMMENT ON INSERE TA SOLUTION ?