attribuer format majuscule

[rudymagny]

Bonjour le forum,

Voilà je voudrais formater une cellule pour que le texte soit en majuscule, là je fais ça mais quelle l'attibut à mettre pour majuscule:

With .Range('G' & L) 'Poste
.Value = TextBox3.Value
.Font.Bold = True
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Font.ColorIndex = 3
End With

Merci d'avance

 

[pierrejean]

bonjour rudymagny

sauf erreur de ma part (test difficile)

remplacer

.Value = TextBox3.Value

par

.Value = UCase(TextBox3.Value)

 

[rudymagny]

Bonjour pierrejean!

Merci c nickel !
j'avais essayé avec l'enregistreur de macro en faisant
MAJUSCULE(texte)
mais trouvait po!

Merci et bonne journée