Re: Différentes police dans une même cellule |
Titre du sujet : Re: Différentes police dans une même cellule par Eric le 09/04/2018 14:57:07 Bonjour à toutes et tous
C'est bien ce qu'il me semblait. Essaie ce code : Sub lance() Dim tablo ' dechet bleu ' rempl vert ' sav rouge ' solde jaune ' violet total If IsError(Range("AD1")) Then val_cel = True: Range("AD15").Value = "": Exit Sub tablo = Split(Range("AD1").Value, ":") tablo_01 = Split(Mid(Range("AD1"), Len(tablo(0)) + 3), " ") t0 = tablo_01(0) ' rempl tablo_02 = Split(tablo_01(1), " ") t1 = tablo_02(0) ' dechet t2 = tablo_02(1) ' soldes tablo_03 = Split(tablo_01(2), " ") t3 = tablo_03(0) ' sav t4 = tablo_03(1) ' total val_cel = True ActiveSheet.Shapes("Rectangle 17").Select ' il serait bon de donner un nom à cette forme Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10 With Selection .Characters.Text = Range("AD1").Value ' cellule où est située la formule : AD15, AD153, ..... à toi d'adapter .Characters.Font.ColorIndex = 0 ' titre .Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 50 ' rempl .Characters(Start:=Len(tablo(0)) + Len(t0) + 10, Length:=Len(t1)).Font.ColorIndex = 41 ' dechet .Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2, Length:=Len(t2)).Font.ColorIndex = 44 ' soldes .Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7, Length:=Len(t3)).Font.ColorIndex = 3 ' sav .Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7 + Len(t3) + 2, Length:=Len(t4)).Font.ColorIndex = 7 ' total End With val_cel = False Range("N10").Select End Sub
Dis nous Eric |
Forums