Mise en forme dans un cellule

[billyboy]

Bonjour à tous,
J'aurai besoin de réaliser la mise en forme suivante:
dans une cellule, j'ai deux valeur séparées par un retour chariot
Je souaitherai que la première ligne ("A7"ds la formule)soit en gras avec un taille de police de 36
et la deuxieme ligne ("B7") soit en normal avec une police de 12

la formule actuelle est celle-ci : =A7&CAR(10)&B7

Merci pour votre aide

 

[mromain]

Re : Mise en forme dans un cellule

bonjour billyboy,

peux-tu mettre un fichier avec ce que tu as et ce que tu veux, parce que ce n'est pas très clair (du moins pour moi 🙂)

a+

 

[billyboy]

Re : Mise en forme dans un cellule

Bonjour mromain,

je te joins un fichier en exemple

merci par avance

A+

 

[mromain]

Re : Mise en forme dans un cellule

re,

je n'arrive pas à mettre le texte en gras, mais déjà, voici un bout de code (avec les tailles de police à adapter) :

Sub test()
Dim i As Integer
i = 5
With ThisWorkbook.Sheets("Feuil1")
    For i = 4 To .Range("B" & .Rows.Count).End(xlUp).Row
        .Range("F" & i).Value = .Range("B" & i).Text & Chr(10) & .Range("C" & i).Text
        .Range("F" & i).Characters(1, Len(.Range("B" & i).Text)).Font.Size = [B][COLOR=Red]36[/COLOR][/B]
        .Range("F" & i).Characters(Len(.Range("B" & i).Text) + 1, _
            Len(.Range("F" & i).Text) - Len(.Range("B" & i).Text)).Font.Size = [COLOR=Red][B]12[/B][/COLOR]
    Next i
End With
End Sub

a+

 

[billyboy]

Re : Mise en forme dans un cellule

merci de te pencher sur mon problème, aurais-tu une solution sans passer par le VBA?

A+

 

[mromain]

Re : Mise en forme dans un cellule

bonjour billyboy,

personnellement je ne vois pas...
mais on ne sait jamais

wait and see 🙂

a+

 

[Nekoty]

Re : Mise en forme dans un cellule

Bonjour,

Mise à part effectuer des paramétrage de cellules... je ne vois pas.

Voir fichier