Concaténer avec condition et espace

Bonjour le forum,

Je bloque depuis ce matin concernant la réalisation d’une macro.

Je souhaite réaliser une macro pour concaténer des données, nombre et texte avec des espaces, comme dans l’exemple ci-joint, avec comme condition : si la cellule ( i , 18) <> de vide alors concaténer. Le nombre de ligne est inconnu d’avance.

Ci-joint un fichier test.

Je remercie d’avance les intervenants et le forum.

Bon dimanche le forum.

Cordialement,

Bonjour,

Une proposition à tester :

Sub Concat_Libellé()
    Dim cel As Range
    For Each cel In Range("R8:R" & Range("R" & Rows.Count).End(xlUp).Row)
        If cel = "" Then Exit Sub
        cel.Offset(0, 4) = cel.Offset(0, 2) & " " & cel.Offset(0, 0) & " " & cel.Offset(0, 1) & " " & cel.Offset(0, 3)
    Next cel
End Sub

Bonjour JFL,

J'ai testé votre proposition et c'est exactement ce que je voulais.

Grand merci à vous.

Cependant je n'arrive pas a comprendre cette partie du code:

cel.Offset(0, 4) = cel.Offset(0, 2) & " " & cel.Offset(0, 0) & " " & cel.Offset(0, 1) & " " & cel.Offset(0, 3)

Si je peux abuser!!

Merci encore.

Cordialement,

Re bonjour JFL,

Ca y est j'ai compris, après une petite réflexion.

Merci encore.

Cordialement,