Microsoft 365 Concatener et mise en forme

[Claireyou]

Bonjour,
A partir d'un fichier comprenant les colonnes suivants : titre, auteur, date de parution et prix, j'aimerais concaténer ces 4 colonnes dans une autre de manière à avoir :
Titre en gras
saut de ligne dans la même cellule pour avoir l'auteur
saut de ligne dans la même celulle pour avoir la date de parution - prix

J'aimerais appliquer différentes tailles à chacune de ces données

Ce code serait à appliquer sur un ensemble de feuille d'une même classeur ne contenant pas le même nombre de ligne.
Est-ce faisable?
Merci beaucoup!!!

 

[pierrejean]

Bonjour Claireyou
Demande succincte : réponse de même: Oui
Autre question ???

 

[Claireyou]

Bonjour PierreJean, merci pour votre réponse.
Auriez-vous quelques astuces à me donner pour créer ce code? un exemple que je pourrais réutiliser et modifier selon la mise en page souhaitée?
Merci pour votre aide.

 

[Claireyou]

J'ai réussi à bricoler la mise en page en PJ mais c'est le résultat en colonne I que j'aimerais enjoliver.
Merci mille fois

 

[pierrejean]

Re
Non désolé
créez un fichier exemple avec quelques lignes de données initiales et un exemple du résultat souhaité et l'on pourra vous proposer un code
édit : Ok je viens de voir qu'il y a un exemple

 

[Claireyou]

Re
Non désolé
créez un fichier exemple avec quelques lignes de données initiales et un exemple du résultat souhaité et l'on pourra vous proposer un code
édit : Ok je viens de voir qu'il y a un exemple

J'ai fait à la main la 1ère page
Merci beaucoup

 

[pierrejean]

Re
Un 1er exemple

 

[Claireyou]

Super merci, ça fonctionne super pour la concaténation.
Serait-il possible d'ajouter les mises en formes différentes pour la colonne I en suivant le 2ème que j'avais fait à la main? ou m'indiquer à peu près la méthodo pour modifier votre code?
Ce serait super !!
Merci beaucoup

Re
Un 1er exemple

 

[pierrejean]

Re
A tester:

Sub report()
For Each sh In Sheets
 For n = 3 To sh.Range("B" & Rows.Count).End(xlUp).Row
   sh.Range("I" & n) = sh.Range("C" & n) & Chr(10) & sh.Range("D" & n) & Chr(10) & sh.Range("E" & n) & " " & sh.Range("F" & n)
   x = Len(sh.Range("C" & n))
   With sh.Range("I" & n).Characters(Start:=1, Length:=x).Font
     .FontStyle = "Gras"
   End With
   y = Len(sh.Range("D" & n))
   With sh.Range("I" & n).Characters(Start:=x + 1, Length:=y + 1).Font
      .Color = -16776961
       .FontStyle = "Normal"
   End With
 Next
Next
End Sub