XL 2013 Formaté Textbox

[maval]

Bonjour

Je cherche a modifier mon TextBox et j'ai mis comme code ceci mais a toute évidence il doit y avoir une erreur au niveau de "Selection.Font"

Private Sub TextBox5_Change()
 If TextBox5 = "DCD" Then
 TextBox5.ForeColor = RGB(255, 0, 0)

With Selection.Font
 .Name = "Arial"
 .Size = 20
 .Bold = True
 End With
End If
End Sub

Je vous remercie d'avance

 

[phlaurent55]

Re : Formaté Textbox

Bonjour Max,

Private Sub TextBox5_Change()
If TextBox5 = "DCD" Then
TextBox5.ForeColor = RGB(255, 0, 0)
With TextBox5.Font
 .Name = "Arial"
 .Size = 20
 .Bold = True
 End With
End If
End Sub

à+
Philippe

 

[maval]

Re : Formaté Textbox

Bonjour Philippe

Je te remercie et te souhaite un bon WE