bonjour,
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$6" Then
Select Case Target.Value
Case 1
ActiveSheet.Shapes("c vert").ZOrder msoBringToFront
Case 2
ActiveSheet.Shapes("c jaune").ZOrder msoBringToFront
Case 3
ActiveSheet.Shapes("c rouge").ZOrder msoBringToFront
End Select
End If
If Target.Address = "$H$32" Then
Select Case Target.Value
Case 1
ActiveSheet.Shapes("p vert").ZOrder msoBringToFront
Case 2
ActiveSheet.Shapes("p jaune").ZOrder msoBringToFront
Case 3
ActiveSheet.Shapes("p rouge").ZOrder msoBringToFront
End Select
End If
If Target.Address = "$D$50" Then
Select Case Target.Value
Case 1
ActiveSheet.Shapes("s vert").ZOrder msoBringToFront
Case 2
ActiveSheet.Shapes("s rouge").ZOrder msoBringToFront
End Select
End If
VformesD = [J6] * 100 + [H32] * 10 + [D50]
If VformesD < 123 Then
ActiveSheet.Shapes("pe vert").ZOrder msoBringToFront
Else
If VformesD = 111 Or VformesD = 333 Then
ActiveSheet.Shapes("pe jaune").ZOrder msoBringToFront
Else
If VformesD > 333 Then
ActiveSheet.Shapes("pe rouge").ZOrder msoBringToFront
End If
End If
End Sub
je n'arrive pas a la faire fonctionner
pourquoi
a+
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$6" Then
Select Case Target.Value
Case 1
ActiveSheet.Shapes("c vert").ZOrder msoBringToFront
Case 2
ActiveSheet.Shapes("c jaune").ZOrder msoBringToFront
Case 3
ActiveSheet.Shapes("c rouge").ZOrder msoBringToFront
End Select
End If
If Target.Address = "$H$32" Then
Select Case Target.Value
Case 1
ActiveSheet.Shapes("p vert").ZOrder msoBringToFront
Case 2
ActiveSheet.Shapes("p jaune").ZOrder msoBringToFront
Case 3
ActiveSheet.Shapes("p rouge").ZOrder msoBringToFront
End Select
End If
If Target.Address = "$D$50" Then
Select Case Target.Value
Case 1
ActiveSheet.Shapes("s vert").ZOrder msoBringToFront
Case 2
ActiveSheet.Shapes("s rouge").ZOrder msoBringToFront
End Select
End If
VformesD = [J6] * 100 + [H32] * 10 + [D50]
If VformesD < 123 Then
ActiveSheet.Shapes("pe vert").ZOrder msoBringToFront
Else
If VformesD = 111 Or VformesD = 333 Then
ActiveSheet.Shapes("pe jaune").ZOrder msoBringToFront
Else
If VformesD > 333 Then
ActiveSheet.Shapes("pe rouge").ZOrder msoBringToFront
End If
End If
End Sub
je n'arrive pas a la faire fonctionner
pourquoi
a+