Couleur de police dans textbox

[sev]

Bonsoir à tous,
Je voudrais appliquer le même format de police sur des textbox que celles d'origine sur des textbox.
Voici le fichier

 

[PascalXLD]

Re : Couleur de police dans textbox

Bonjour

ton code d'initialisation serait à peu près ainsi

Private Sub UserForm_Initialize()
TextBox1 = Range("BOX!G8")
TextBox1.Font.Bold = Range("BOX!G8").Font.Bold
TextBox1.Font.Name = Range("BOX!G8").Font.Name
TextBox1.Font.Size = Range("BOX!G8").Font.Size
TextBox1.Font.Italic = Range("BOX!G8").Font.Italic
TextBox1.ForeColor = Range("BOX!G8").Font.Color

TextBox2 = Range("BOX!G9")
TextBox2.Font.Bold = Range("BOX!G9").Font.Bold
TextBox2.Font.Name = Range("BOX!G9").Font.Name
TextBox2.Font.Size = Range("BOX!G9").Font.Size
TextBox2.Font.Italic = Range("BOX!G9").Font.Italic
TextBox2.ForeColor = Range("BOX!G9").Font.Color
End Sub

 

[Catrice]

Re : Couleur de police dans textbox

Bonjour,

Tu peux essayer :
TextBox1.ForeColor = Range("BOX!G8").Font.Color

 

[sev]

Re : Couleur de police dans textbox

Ah oui j'oubliais ,en réalité sur mon fichier dans les cellules G8 et G9 il y à un format conditionnel qui change la couleur de police.
Je voudrais avoir les couleures vues sur G8 et G9.

 

[Catrice]

Re : Couleur de police dans textbox

RE,

Dans ce cas là, il faut tester la condition ...

un exemple ci-joint.

Range("F8") > 10 et Range("F9") > 10 sont les conditions de mon exemple

Private Sub UserForm_Initialize()
If Range("F8") > 10 Then
TextBox1.ForeColor = Range("G8").FormatConditions(1).Font.Color
Else
TextBox1.ForeColor = Range("G8").Font.Color
End If

If Range("F9") > 10 Then
TextBox2.ForeColor = Range("G9").FormatConditions(1).Font.Color
Else
TextBox2.ForeColor = Range("G9").Font.Color
End If
TextBox1 = Range("G8")
TextBox2 = Range("G9")
End Sub

 

[sev]

Re : Couleur de police dans textbox

Celà semble fonctionner sur mon fichier.
Il me reste à l'appliquer à 60 textbox !!!