VBA - Concaténer en conservant mise en forme

Bonjour,

j'ai rechercher une macro pour pouvoir concaténer plusieurs cellules en conservant la mise en forme (police, taille, couleur, ect) et un renvoie automatique à la ligne.

j'ai réussi a trouver mon bonheur, et commencer à la modifier pour l'adapté a mes besoin.

A la base la macro que j'ai trouvé était pour seulement 2 cellules, moi j'en est 3. le seul soucis est que je ne c'est pas quoi modifier pour prendre la mise en forme sur la dernière cellule "C1"

est ce que quelqu'un aurais la solution ?

Bonjour,

Remplace par cette macro celle concernée

Sub Concatener() 
  With Worksheets("Feuil1")
      .Range("D1") = .Range("A1") & vbCrLf & .Range("B1") & vbCrLf & .Range("C1")
      Formater .Range("D1"), .Range("A1"), 0
      Formater .Range("D1"), .Range("B1"), Len(.Range("A1")) + 1
      Formater .Range("D1"), .Range("C1"), Len(.Range("A1")) + 1 + Len(.Range("B1")) + 1
  End With
End Sub

M12 a écrit :

Bonjour,

Remplace par cette macro celle concernée

Sub Concatener() 
  With Worksheets("Feuil1")
      .Range("D1") = .Range("A1") & vbCrLf & .Range("B1") & vbCrLf & .Range("C1")
      Formater .Range("D1"), .Range("A1"), 0
      Formater .Range("D1"), .Range("B1"), Len(.Range("A1")) + 1
      Formater .Range("D1"), .Range("C1"), Len(.Range("A1")) + 1 + Len(.Range("B1")) + 1
  End With
End Sub

test concatener.xlsm

ah oui c'était vraiment tout con

merci beaucoup en tout cas.

aurais-tu une solution pour répéter la même opération sur toute les lignes ?

ou bien je dois le rentrer manuellement à suivre ?

Re,

A tester

ça marche , merci beaucoup M12.