Conserver la miseise en forme de plusieurs cellules concaténées

J'ai concaténé et mise en forme la deuxième ligne de cellules.

Mis je voudrais appliquer ceci dans toute les cellules de la colonne A et B

Je pense qu'il faut passer par Next i, mais je bloque.

Sub Test()

With Worksheets("SOURCE")

.Range("D3") = .Range("A2") & ";" & .Range("b2")

Formater .Range("D3"), .Range("A2"), 0

Formater .Range("D3"), .Range("b2"), Len(.Range("a2")) + 1

End With

End Sub

Private Sub Formater(RngDest As Range, RngSce As Range, n As Integer)

Dim d As Integer, i As Integer

Dim Tb

Tb = Split(RngSce)

For i = 0 To UBound(Tb)

d = d + 1

With RngDest.Characters(d + n, d + n + Len(Tb(i))).Font

.FontStyle = RngSce.Characters(d, 1).Font.FontStyle

.Size = RngSce.Characters(d, 1).Font.Size

.Color = RngSce.Characters(d, 1).Font.Color

.Underline = RngSce.Characters(d, 1).Font.Underline

End With

d = d + Len(Tb(i))

Next i

End Sub

Merci de votre aide

Bonjour

pas réussi pour le mise en forme, je me suis aidé de l'enregistreur de macro

à tester ci-joint

crdlt,

André

Bonjour

Tu as déjà eu la réponse aujourd'hui !!!

Si ce n'est toi, c'est donc ton frère, car c'est le même fichier (même données)

Je ne peux remercier l'auteur pour toi, car je ne sais plus qui c'était... un doué SÛR !!!

A+

Merci de l'aide, sauf que j'ai un petit souci, ma concaténation est exporter dans word et je me dois de ne pas récupérer le tableau,mais les données en ligne, comme une concaténation que l'on fait avec une matrice, et de con

server les caractères bold de la première colonne......Pas simple, enfin pour moi qu d

ébu

te

Bonsoir

On peut dire que je me suis encore bien pris la tête!!!

Enfin, cela va peut-être te convenir, du moins c'est une base

J'ai gardé ta formule de concaténation, puis dans la procédure "Formater", j'ai recopié le résultat à la ligne au-dessus et mis en forme

Ne demande pas des choses comme cela tous les jours LOL!!!

Ma vieille cervelle va exploser

Dis-moi

Bonne fin de journée

Merci beaucoup, mais ce qui se passe quand j'exporte dans word, les noms son coupés

Nieuil-l'Espoir;NON;Nouaillé-Maupertuis;NON;Nueil-sous-Faye;NON;Orches;NON;Les Ormes;NON;Ouzilly;NON;Oyré;NON;Paizay-le-Sec;NON;Payré;NON;Payroux;NON;Persac;NON;Pindray;NON;Plaisance;NON;Pleumartin

Bonjour

Là, c'est un problème Word, donc ce n'est pas mon domaine , désolée

Et si l'on passe par un fichier texte , on perd de nouveau les caractères gras

Il faudrait voir peut-être s'il est possible d' importer le texte dans word et faire la mise en forme dans word au lieu d'Excel.

Mais je n'ai pas le temps de m'y pencher, je m'absente plusieurs jours

Bon courage

Bye