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

[chacal33]

Bonsoir à toutes et à tous,

Comme expliqué dans le titre, j'ai des cellules avec la formule suivante:
=A1&car(10)&B1

Je souhaiterais avoir la ligne contenant A1 d'une certaine taille et la ligne contenant B1 en taille plus petite et en italique et idéalement alignée à droite (mais ce dernier point n'est pas essentiel).

Merci de vos retours.

Matt

 

[Staple1600]

Bonsoir le fil, chacal33

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

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

 

[chacal33]

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

Bonsoir Staple1600,

Je ne souhaite pas modifier la hauteur d'une ligne, je souhaite, dans une même cellule avoir quelque-chose comme suit:

On trouve car(10) entre "something" et "different"

Merci

 

[Staple1600]

Re

Qui a écrit ?

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

La ligne de A1 et la ligne de B1 sont bien la ligne 1, non ?
D'où le message#2

 

[Staple1600]

Re

Ceci est possible

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

 

[chacal33]

Re

Ceci est possible

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

Merci Staple1600.
Effectivement, mon 1er message portait à confusion.

Le code fonctionne bien.
Comment faire pour le faire sur une colonne?
Je pensais à :

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

Mais, ça ne retourne rien...

 

[Staple1600]

Re

Si, si ca retourne quelque chose

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.

 

[chacal33]

Super.

Merci beaucoup Staple1600!

Re

Si, si ca retourne quelque chose

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.