Concatener cellules

Bonsoir,

Je souhaite concatener des cellules et insérer "/" entre chaque cellule.

Jusque là rien de compliqué....

Seulement je n'ai jamais le même nombre de cellules à concatener et j'aimerais éviter de me retrouver avec "////////" à la fin de ma cellule contenant le resultat.

Merci pour votre aide,

J'ai fini par trouver une fonction personnalisée de Frangy

Bonsoir,

ce n'est pas beau...

fichier joint

@ bientôt

LouReeD

Bonjour,

Ou alors en vba avec deux boucles imbriquées. A adapter à ta feuille.

Colle ce code dans la feuil!1

Sub concatenation()
Dim v As Integer
Dim h As Integer
Range("F1:F20").ClearContents
For v = 1 To 5 
    If Cells(v, 1) = "" Then Exit For
    For h = 1 To 5
        If Cells(v, h).Value <> "" Then
            Cells(v, 6) = Cells(v, 6) & Cells(v, h) & "/"
        Else
        Cells(v, 6) = Left(Cells(v, 6), Len(Cells(v, 6)) - 1)
        Exit For
        End If
    Next h
Next v
End Sub

Cordialement