Espace concatener

Atiom · 7 Mai 2018

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.

VB:

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 · 7 Mai 2018

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

phlaurent55 · 7 Mai 2018

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 · 7 Mai 2018

bonjour tous

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

Code:

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

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

VB:

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

Atiom · 7 Mai 2018

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!

Espace concatener

Atiom

XLDnaute Occasionnel

Dugenou

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

laetitia90

XLDnaute Barbatruc

Atiom

XLDnaute Occasionnel

Discussions similaires