Couleur de fonf d'une textbox sur une feuille

[maval]

Bonjour


J'ai trois texbox sur une feuille que j'alimente avec une combobox qui se trouve sur la même feuille et j'aimerai que mes textbox on un fond bleu.
Mon code est:

Private Sub ComboBox1_Click()
Call Oter_Couleur
n = Feuil2.Cells(ComboBox1.ListIndex + 2, 1)
If n = "" Then Exit Sub
If Left(n, 4) = "EU0" Then
n = Right(n, 1)

Else
n = Right(n, 2)
End If
'End If
ActiveSheet.Shapes("EU-" & n).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
ActiveSheet.Shapes("TextBox95").Select
Selection.Caption = "Département :  " & Feuil2.Cells(ComboBox1.ListIndex + 2, 3) & "  " & Feuil2.Cells(ComboBox1.ListIndex + 2, 4)
ActiveSheet.Shapes("Text Box 97").Select
Selection.Caption = "Région :  " & Feuil2.Cells(ComboBox1.ListIndex + 2, 4) & "  " & Feuil2.Cells(ComboBox1.ListIndex + 3, 7)
ActiveSheet.Shapes("Text Box 96").Select
Selection.Caption = "Code Postal :  " & Feuil2.Cells(ComboBox1.ListIndex + 2, 2) & "  " & Feuil2.Cells(ComboBox1.ListIndex + 3, 7)
[A1].Select

End Sub

Merci d'avance

 

[Paritec]

Re : Couleur de fonf d'une textbox sur une feuille

Bonjour Maval
pour le fond bleu du textbox95

activesheet.textbox95.backcolor= &HFF0000

et tous tes select ne servent à rien

ActiveSheet.Shapes("TextBox95").Select
Selection.Caption = "Département :  " &  Feuil2.Cells(ComboBox1.ListIndex + 2, 3) & "  " &  Feuil2.Cells(ComboBox1.ListIndex + 2, 4)

est égal à

activesheet.textbox95.caption="Département :  " &  Feuil2.Cells(ComboBox1.ListIndex + 2, 3) & "  " &  Feuil2.Cells(ComboBox1.ListIndex + 2, 4)

a+
Papou😱