Donnée d’une colonne séparée par une virgule

Bonjour,

Je recherche une formule, un code, pour copier toutes les cellules non vides de la colonne A vers la cellule C1 en séparant les données par une virgule (,)

Cordialement

Galiax

Bonsoir,

avec un code VBA à tester

Sub ConcatColonneA()
    Dim cell As Range
    Dim result As String
    For Each cell In Range("A1:A100")
        If Not IsEmpty(cell.Value) Then
            result = result & cell.Text & ","
        End If
    Next cell
    ' Retirer la dernière virgule
    If Len(result) > 0 Then
        result = Left(result, Len(result) - 1)
    End If
    With Range("C1")
        .NumberFormat = "@" ' Force le format texte
        .Value = result
    End With
End Sub

Slts

Bonsoir à tous !

Une tentative :

=JOINDRE.TEXTE(",";1;A1:A10)

Plage A1:A10 à adapter.

Bonsoir,

Super, un grand MERCI A VS 2

@+

Bonjour à tous !

Bien...

Je vous remercie de ce retour.