Espace concatener

[Atiom]

Bonjour,

Dans ce petit but de code les mots restent collés.
Comment je peux modifier le code pour les séparer ?
Merci de votre aide.

Sub CONCATINERR()
Dim i As Long
With Sheets("Annuelles")
i = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To i
.Cells(i, 1) = .Cells(i, 50) & .Cells(i, 2) & .Cells(i, 3)
' Je ne sais pas ou mettre le ""
Next i
End With
Range("A2:AX1000").Sort Key1:=Range("A2"), Order1:=xlAscending
End Sub

 

[Dugenou]

Bonjour,
Peut être avec : .Cells(i, 1) = .Cells(i, 50) & " "&.Cells(i, 2) &" "& .Cells(i, 3)
sans aucune certitude n'étant pas VBiste

 

[phlaurent55]

Bonjour à tous

Du jamais vu: For i = 2 To i
Et ne pas oublier de mettre des espaces comme l'a fait l'ami Dugenou

À+
Philippe

 

[laetitia90]

bonjour tous
je mettrais quand meme un separateur special en cas ou plusieurs mot avec espace

    .Cells(i, 1) = .Cells(i, 50) & "ù" & .Cells(i, 2) & "ù" & .Cells(i, 3)

pour eclater sans manipuler SPLIT .......un code de base

   Range("a2:a" & Cells(Rows.Count, 1).End(3).Row).TextToColumns Other:=1, OtherChar:="ù"

 

[Atiom]

Bonjour,
Merci Dugenou, pour quelqu’un que ce dit pas Vbiste !

Philippe apparemment le ( For i = 2 To i ) ne pose pas de problème puisque avec la solution de Dugenou cela fonctionne correctement.
En tout cas pour l’instant.

laetitia90 je ne sais pas si je tout bien compris mais je viens de faire un essaie et même avec plusieurs mots avec espace Le code Cells(i, 1) = .Cells(i, 50) & " "&.Cells(i, 2) &" "& .Cells(i, 3) fonctionne parfaitement.

Bonne journée et merci à tous!