Concatener données

Bonjour,

Je souhaite concaténer dans une cellule les données d'une colonne, sans y inclure celles qui sont a zéro...

pour exemple:

Colonne1

745,12

0

2156,1

0

0

1258,56

Je souhaiterais avoir une seule cellule avec les résultats >0 sépares avec le retour chariot (car(10))...

Je n'ai jamais utilisé VBA, et la j'ai du mal ^^

Merci!

Bonjour,

Une proposition

Sub Test()
Dim DerCel As Range, Cel As Range
Dim Texte As String
    With Worksheets("Feuil1")
        Set DerCel = .Range("A" & Rows.Count).End(xlUp)
        For Each Cel In .Range(.Range("A1"), DerCel)
            If Cel > 0 Then Texte = Texte & Format(Cel, "0.00") & Chr(10)
        Next Cel
    End With
    DerCel.Offset(2, 0) = Left(Texte, Len(Texte) - 1)
End Sub

A+

Bonjour,

Merci, mais cela ne fonctionne pas...

J'ai une erreur a la ligne For Each

Il serait souhaitable que tu joignes un fichier exemple pour que nous puissions t'aider d'avantage.

A+

ca marche ^^

Merci beaucoup pour la réactivité !!