Fusionner des cellules non vide en VBA

Louax · 21 Septembre 2016

Bonjour,

J'aimerai fusionner les cellule 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 une à 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 foonctionne pas car elle ne garde que les valeurs de a1

Merci pour votre aide

gosselien · 21 Septembre 2016

Bonjour,

un truc de ce genre là peut être:

[C1].Value = [A1] & Chr(10) & [A2] & Chr(10) & [A3] & Chr(10) & [A4]

P.

Robert · 21 Septembre 2016

Bonjour Louax, bonjour le forum,

Peut-êre comme ça :

VB:

Sub Macro1()
Dim T As String

T = Range("A1").Value & vbCrLf & Range("A2").Value & vbCrLf & Range("A3").Value & vbCrLf & Range("A4").Value
Range("C1").Value = T
End Sub

[Édition]
Arf ! Grillé par Gosselien que je salue au passage !...

Louax · 21 Septembre 2016

Merci à tous les deux, en fait ce n'est pas fusionner mais concaténer
je ne me souvenez plus de Chr(10) mais j'ai retrouvé et j'ai écris ce code :

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

gosselien · 21 Septembre 2016

Comme quoi les bons termes sont importants

Yurperqod · 22 Septembre 2016

Bonjour à tous

On peut obtenir le même résultat sans passer par le VBA, simplement avec une formule
=A1&CAR(10)&A2&CAR(10)&A3&CAR(10)&A4
Avec pour la cellule contenant cette formule, cette option cochée
Contrôle du texte: Renvoyer à la ligne automatiquement
(à régler dans : Format de cellule, Alignement)

Fusionner des cellules non vide en VBA

Louax

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Louax

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

Yurperqod

XLDnaute Occasionnel

Discussions similaires