XL 2019 Résolu: 2 mises en forme différentes dans une même cellule avec car(10)

chacal33 à dit:

Je souhaiterais avoir la ligne contenant A1 d'une certaine taille et la ligne contenant B1

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil, chacal33



En résumé, tu veux modifier la ligne 1 à un endroit puis à un autre.
Or ceci n'est point possible
La ligne 1 aura la même hauteur de A1 à XFD1

Cliquez pour agrandir...

Je souhaiterais avoir la ligne contenant A1 d'une certaine taille et la ligne contenant B1 en taille plus petite

Cliquez pour agrandir...

Staple1600 à dit:

Re

Ceci est possible

VB:

Sub test()
[A1] = [B1] & Chr(10) & [C1]
p = InStr(1, [A1], Chr(10))
[A1].Characters(p, 9 ^ 9).Font.Size = 30
[A1].Characters(p, 9 ^ 9).Font.Color = vbRed
Columns(1).ColumnWidth = 33.33
End Sub

Cliquez pour agrandir...

Sub Test3()

    Dim p As Long
    Dim i As Integer
    
    For i = 1 To 10

    p = InStr(1, Cells(i, 1), Chr(10))

    Cells(i, 1).Characters(p, 9 ^ 9).Font.Size = 8
    Cells(i, 1).Characters(p, 9 ^ 9).Font.Italic = True
    
    Next
    
End Sub

Staple1600 à dit:

Re

Si, si ca retourne quelque chose

VB:

Sub Test3b()
Dim p As Long
Dim i%
[B1:B10] = Application.UserName
[C1] = 1600: [C1:C10].DataSeries
For i = 1 To 10
Cells(i, 1) = Cells(i, 2) & Chr(10) & Cells(i, 3)
p = InStr(1, Cells(i, 1), Chr(10))
Cells(i, 1).Characters(p, 9 ^ 9).Font.Size = 8
Cells(i, 1).Characters(p, 9 ^ 9).Font.Italic = True
Next
End Sub

NB: A tester sur une feuille vierge.

Cliquez pour agrandir...