Bonjour à vous.
Désolé de relancer le sujet c'est un sujet qui était en Standbye pour moi et j'ai le temps actuellement de m'y remettre ..
Malhereusement cela ne fonctionne toujours pas....
Ci-joint mon code:
"
Private Sub Worksheet_Activate()
Call CouleurZoneTexte
End Sub
Sub CouleurZoneTexte()
Application.ScreenUpdating = False
xVal = Sheets("Satisfaction Client").[R7]
ActiveSheet.Shapes.Range(Array("TextBox 14")).Select
Call Coloriage
xVal = Sheets("Satisfaction Client").[R7]
ActiveSheet.Shapes.Range(Array("TextBox 56")).Select
Call Coloriage
xVal = Sheets("Satisfaction Client").[V7]
ActiveSheet.Shapes.Range(Array("TextBox 57")).Select
Call Coloriage
xVal = Sheets("Satisfaction Client").[V7]
ActiveSheet.Shapes.Range(Array("TextBox 16")).Select
Call Coloriage
xVal = Sheets("Satisfaction Client").[Z7]
ActiveSheet.Shapes.Range(Array("TextBox 58")).Select
Call Coloriage
xVal = Sheets("Satisfaction Client").[Z7]
ActiveSheet.Shapes.Range(Array("TextBox 17")).Select
Call Coloriage
xVal = Sheets("nombre chantier en cours").[B5]
ActiveSheet.Shapes.Range(Array("TextBox 88")).Select
Call Coloriage
xVal = Sheets("nombre chantier en cours").[B5]
ActiveSheet.Shapes.Range(Array("TextBox 11")).Select
Call Coloriage
xVal = Sheets("nombre chantier en cours").[E5]
ActiveSheet.Shapes.Range(Array("TextBox 83")).Select
Call Coloriage
xVal = Sheets("nombre chantier en cours").[E5]
ActiveSheet.Shapes.Range(Array("TextBox 79")).Select
Call Coloriage
xVal = Sheets("nombre chantier en cours").[H5]
ActiveSheet.Shapes.Range(Array("TextBox 89")).Select
Call Coloriage
xVal = Sheets("nombre chantier en cours").[H5]
ActiveSheet.Shapes.Range(Array("TextBox 80")).Select
Call Coloriage
End Sub
Sub Coloriage()
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
Select Case xVal
Case Is = 3
.ForeColor.RGB = RGB(0, 176, 80) 'VERT
Case Is = 2
.ForeColor.RGB = RGB(255, 192, 0) 'ORANGE
Case Is = 1
.ForeColor.RGB = RGB(255, 0, 0) 'ROUGE
End Select
.Transparency = 0
.Solid
End With
Application.ScreenUpdating = True
[A1].Select
End Sub
"
Des idées ?
Merci d'avance