Atiom
XLDnaute Occasionnel
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.
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