Discussion :

[Didpa]

Voilà j'aimerai savor comment je peux forcé un type d'écriture dans une cellule a partir de l'userform

Exemple : sur cette ligne j'aimerais que ce sir ecrit en time new roman et format justifié est ce possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveCell.Offset(10, 2).Value = Nouvelle_Fiche_A4.TextBox_Bat_RGP.Value & " - Réf Battery ASG" & " " & Nouvelle_Fiche_A4.TextBox_DIVERS.Value

Merci

[Larsen21]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Range("A1").Select
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Ensuit il te suffit de l'adapter


A+