Microsoft 365 Concatener et mise en forme

pierrejean

XLDnaute Barbatruc

• 16 Mars 2021

• #2

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

 

Vote positif 0 Vote négatif

C

Claireyou

XLDnaute Nouveau

• 16 Mars 2021

• #3

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.

 

Vote positif 0 Vote négatif

C

Claireyou

XLDnaute Nouveau

• 16 Mars 2021

• #4

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

 

Pièces jointes

• Ex.xlsx

  23.2 KB · Affichages: 8

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Mars 2021

• #5

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

 

Vote positif 0 Vote négatif

C

Claireyou

XLDnaute Nouveau

• 16 Mars 2021

• #6

pierrejean à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Ex.xlsx

  16.2 KB · Affichages: 2

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Mars 2021

• #7

Re
Un 1er exemple

 

Pièces jointes

• Ex.xlsm

  34.6 KB · Affichages: 9

Vote positif 0 Vote négatif

C

Claireyou

XLDnaute Nouveau

• 16 Mars 2021

• #8

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

pierrejean à dit:

Re
Un 1er exemple

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Mars 2021

• #9

Re
A tester:

VB:

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

 

Vote positif 0 Vote négatif