Discussion :

[Louax]

Bonjour,

J'aimerai concaténer les cellules de a1 à a4 en c1 sachant que :
a1 : la civilité, nom prénom d'une personne
a2 : première ligne de son adresse
a3 : deuxième ligne de son adresse
a4 : code postal

et donc en c1 avoir toute ces informations les unes à la suite des autres avec un retour à la ligne ce qui visuellement donnerait en c1 :

la civilité, nom prénom d'une personne
première ligne de son adresse
deuxième ligne de son adresse
code postal

La fonction Range("a1:a4").Merge ou Range("a1:a4").MergeCells = true ne fonctionne pas car elle ne garde que les valeurs de a1

Merci pour votre aide

[RyuAutodidacte]

Bonjour,
je suppose que vous vouliez dire concaténer et pas fusionner, non ?
si c'est le cas une simple formule suffit :
Formule pour concaténer avec un retour à la ligne

[Louax]

En effet c'est concaténer, mais je le voudrais en VBA car il y a 11000 lignes à ma liste de base.
De plus dans votre lien il utilise =A1&CAR(10)&A2 hors car(10) n'est pas un retour à la ligne mais un "".

Merci pour votre aide si vous avez la solution en VBA

[RyuAutodidacte]

De plus dans votre lien il utilise =A1&CAR(10)&A2 hors car(10) n'est pas un retour à la ligne mais un "".

Dans format de cellule => Alignement, il faut cocher : "Renvoyer à la ligne automatiquement"
Car(10) est bien un retour à la ligne, en VBA c'est Chr(10)

Edit : c'est quand même le support microsoft qui le dit pour CAR(10) !!!

[Louax]

Un grand merci cela fonctionne très bien, je met le code pour ceux qui seront intéressés:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub macro2()
Cells(1, 5) = Cells(1, 1)
For i = 2 To 4
   Cells(1, 5) = Cells(1, 5) & Chr(10) & Cells(i, 1)
Next
End Sub

[RyuAutodidacte]

pour 11000 lignes si c'est toutes les 4 lignes dans la colonne A
A1, A2 , A3 et A4
puis A5, A6, A7, et A8 et ainsi de suite, on aura :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Application.ScreenUpdating = False
    For i = 1 To 11000 Step 4
    Cells(i, 3) = Cells(i, 1) & Chr(10) & Cells(i + 1, 1) & Chr(10) & Cells(i + 2, 1) & Chr(10) & Cells(i + 3, 1)
    Next
Application.ScreenUpdating = True
End Sub