Macro Excel 2003 - Colorier une carte

Le 06/10/2015 à 18:34

Bonjour,

J'ai créé une carte de France sous Excel avec une freeform par département.

Je souhaite colorier chaque département d'une certaine couleur en fonction d'un critère. J'ai 3 couleurs différentes.

J'ai écris une macro pour cela mais j'ai un message d'erreur qui m'indique qu'elle est trop longue. Pouvez-vous m'aider à la réduire ?

Sub ColoriageCarte()
  If Q2 = U2 Then
ActiveSheet.Shapes("Freeform 247").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q2 = U3 Then
ActiveSheet.Shapes("Freeform 247").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q2 = U4 Then
ActiveSheet.Shapes("Freeform 247").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q3 = U2 Then
ActiveSheet.Shapes("Freeform 160").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q3 = U3 Then
ActiveSheet.Shapes("Freeform 160").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q3 = U4 Then
ActiveSheet.Shapes("Freeform 160").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q4 = U2 Then
ActiveSheet.Shapes("Freeform 256").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q4 = U3 Then
ActiveSheet.Shapes("Freeform 256").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q4 = U4 Then
ActiveSheet.Shapes("Freeform 256").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q5 = U2 Then
ActiveSheet.Shapes("Freeform 385").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q5 = U3 Then
ActiveSheet.Shapes("Freeform 385").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q5 = U4 Then
ActiveSheet.Shapes("Freeform 385").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q6 = U2 Then
ActiveSheet.Shapes("Freeform 379").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q6 = U3 Then
ActiveSheet.Shapes("Freeform 379").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q6 = U4 Then
ActiveSheet.Shapes("Freeform 379").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q7 = U2 Then
ActiveSheet.Shapes("Freeform 394").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q7 = U3 Then
ActiveSheet.Shapes("Freeform 394").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q7 = U4 Then
ActiveSheet.Shapes("Freeform 394").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q8 = U2 Then
ActiveSheet.Shapes("Freeform 622").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q8 = U3 Then
ActiveSheet.Shapes("Freeform 622").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q8 = U4 Then
ActiveSheet.Shapes("Freeform 622").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q9 = U2 Then
ActiveSheet.Shapes("Freeform 139").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q9 = U3 Then
ActiveSheet.Shapes("Freeform 139").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q9 = U4 Then
ActiveSheet.Shapes("Freeform 139").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q10 = U2 Then
ActiveSheet.Shapes("Freeform 361").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q10 = U3 Then
ActiveSheet.Shapes("Freeform 361").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q10 = U4 Then
ActiveSheet.Shapes("Freeform 361").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q11 = U2 Then
ActiveSheet.Shapes("Freeform 217").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q11 = U3 Then
ActiveSheet.Shapes("Freeform 217").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q11 = U4 Then
ActiveSheet.Shapes("Freeform 217").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q12 = U2 Then
ActiveSheet.Shapes("Freeform 236").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q12 = U3 Then
ActiveSheet.Shapes("Freeform 364").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q12 = U4 Then
ActiveSheet.Shapes("Freeform 364").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q13 = U2 Then
ActiveSheet.Shapes("Freeform 346").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q13 = U3 Then
ActiveSheet.Shapes("Freeform 346").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q13 = U4 Then
ActiveSheet.Shapes("Freeform 346").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q14 = U2 Then
ActiveSheet.Shapes("Freeform 388").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q14 = U3 Then
ActiveSheet.Shapes("Freeform 388").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q14 = U4 Then
ActiveSheet.Shapes("Freeform 388").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q15 = U2 Then
ActiveSheet.Shapes("Freeform 175").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q15 = U3 Then
ActiveSheet.Shapes("Freeform 175").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q15 = U4 Then
ActiveSheet.Shapes("Freeform 175").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q16 = U2 Then
ActiveSheet.Shapes("Freeform 319").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q16 = U3 Then
ActiveSheet.Shapes("Freeform 319").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q16 = U4 Then
ActiveSheet.Shapes("Freeform 319").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q17 = U2 Then
ActiveSheet.Shapes("Freeform 301").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q17 = U3 Then
ActiveSheet.Shapes("Freeform 301").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q17 = U4 Then
ActiveSheet.Shapes("Freeform 301").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q18 = U2 Then
ActiveSheet.Shapes("Freeform 304").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q18 = U3 Then
ActiveSheet.Shapes("Freeform 304").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q18 = U4 Then
ActiveSheet.Shapes("Freeform 304").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q19 = U2 Then
ActiveSheet.Shapes("Freeform 292").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q19 = U3 Then
ActiveSheet.Shapes("Freeform 292").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q19 = U4 Then
ActiveSheet.Shapes("Freeform 292").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q20 = U2 Then
ActiveSheet.Shapes("Freeform 313").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q20 = U3 Then
ActiveSheet.Shapes("Freeform 313").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q20 = U4 Then
ActiveSheet.Shapes("Freeform 313").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q21 = U2 Then
ActiveSheet.Shapes("Freeform 614").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q21 = U3 Then
ActiveSheet.Shapes("Freeform 614").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q21 = U4 Then
ActiveSheet.Shapes("Freeform 614").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q22 = U2 Then
ActiveSheet.Shapes("Freeform 232").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q22 = U3 Then
ActiveSheet.Shapes("Freeform 232").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q22 = U4 Then
ActiveSheet.Shapes("Freeform 232").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q23 = U2 Then
ActiveSheet.Shapes("Freeform 184").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q23 = U3 Then
ActiveSheet.Shapes("Freeform 184").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q23 = U4 Then
ActiveSheet.Shapes("Freeform 184").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q24 = U2 Then
ActiveSheet.Shapes("Freeform 295").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q24 = U3 Then
ActiveSheet.Shapes("Freeform 295").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q24 = U4 Then
ActiveSheet.Shapes("Freeform 295").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q25 = U2 Then
ActiveSheet.Shapes("Freeform 307").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q25 = U3 Then
ActiveSheet.Shapes("Freeform 307").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q25 = U4 Then
ActiveSheet.Shapes("Freeform 307").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q26 = U2 Then
ActiveSheet.Shapes("Freeform 241").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q26 = U3 Then
ActiveSheet.Shapes("Freeform 241").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q26 = U4 Then
ActiveSheet.Shapes("Freeform 241").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q27 = U2 Then
ActiveSheet.Shapes("Freeform 376").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q27 = U3 Then
ActiveSheet.Shapes("Freeform 376").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q27 = U4 Then
ActiveSheet.Shapes("Freeform 376").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q28 = U2 Then
ActiveSheet.Shapes("Freeform 178").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q28 = U3 Then
ActiveSheet.Shapes("Freeform 178").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q28 = U4 Then
ActiveSheet.Shapes("Freeform 178").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q29 = U2 Then
ActiveSheet.Shapes("Freeform 205").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q29 = U3 Then
ActiveSheet.Shapes("Freeform 205").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q29 = U4 Then
ActiveSheet.Shapes("Freeform 205").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q30 = U2 Then
ActiveSheet.Shapes("Freeform 187").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q30 = U3 Then
ActiveSheet.Shapes("Freeform 187").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q30 = U4 Then
ActiveSheet.Shapes("Freeform 187").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q31 = U2 Then
ActiveSheet.Shapes("Freeform 349").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q31 = U3 Then
ActiveSheet.Shapes("Freeform 349").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q31 = U4 Then
ActiveSheet.Shapes("Freeform 349").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q32 = U2 Then
ActiveSheet.Shapes("Freeform 358").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q32 = U3 Then
ActiveSheet.Shapes("Freeform 358").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q32 = U4 Then
ActiveSheet.Shapes("Freeform 358").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q33 = U2 Then
ActiveSheet.Shapes("Freeform 337").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q33 = U3 Then
ActiveSheet.Shapes("Freeform 337").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q33 = U4 Then
ActiveSheet.Shapes("Freeform 337").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q34 = U2 Then
ActiveSheet.Shapes("Freeform 310").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q34 = U3 Then
ActiveSheet.Shapes("Freeform 310").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q34 = U4 Then
ActiveSheet.Shapes("Freeform 310").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q35 = U2 Then
ActiveSheet.Shapes("Freeform 352").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q35 = U3 Then
ActiveSheet.Shapes("Freeform 352").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q35 = U4 Then
ActiveSheet.Shapes("Freeform 352").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q36 = U2 Then
ActiveSheet.Shapes("Freeform 193").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q36 = U3 Then
ActiveSheet.Shapes("Freeform 193").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q36 = U4 Then
ActiveSheet.Shapes("Freeform 193").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q37 = U2 Then
ActiveSheet.Shapes("Freeform 289").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q37 = U3 Then
ActiveSheet.Shapes("Freeform 289").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q37 = U4 Then
ActiveSheet.Shapes("Freeform 289").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q38 = U2 Then
ActiveSheet.Shapes("Freeform 271").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q38 = U3 Then
ActiveSheet.Shapes("Freeform 271").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q38 = U4 Then
ActiveSheet.Shapes("Freeform 271").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q39 = U2 Then
ActiveSheet.Shapes("Freeform 373").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q39 = U3 Then
ActiveSheet.Shapes("Freeform 373").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q39 = U4 Then
ActiveSheet.Shapes("Freeform 373").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q40 = U2 Then
ActiveSheet.Shapes("Freeform 244").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q40 = U3 Then
ActiveSheet.Shapes("Freeform 244").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q40 = U4 Then
ActiveSheet.Shapes("Freeform 244").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q41 = U2 Then
ActiveSheet.Shapes("Freeform 331").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q41 = U3 Then
ActiveSheet.Shapes("Freeform 331").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q41 = U4 Then
ActiveSheet.Shapes("Freeform 331").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q42 = U2 Then
ActiveSheet.Shapes("Freeform 268").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q42 = U3 Then
ActiveSheet.Shapes("Freeform 268").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q42 = U4 Then
ActiveSheet.Shapes("Freeform 268").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q43 = U2 Then
ActiveSheet.Shapes("Freeform 262").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q43 = U3 Then
ActiveSheet.Shapes("Freeform 262").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q43 = U4 Then
ActiveSheet.Shapes("Freeform 262").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q44 = U2 Then
ActiveSheet.Shapes("Freeform 322").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q44 = U3 Then
ActiveSheet.Shapes("Freeform 322").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q44 = U4 Then
ActiveSheet.Shapes("Freeform 322").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q45 = U2 Then
ActiveSheet.Shapes("Freeform 277").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q45 = U3 Then
ActiveSheet.Shapes("Freeform 277").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q45 = U4 Then
ActiveSheet.Shapes("Freeform 277").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q46 = U2 Then
ActiveSheet.Shapes("Freeform 223").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q46 = U3 Then
ActiveSheet.Shapes("Freeform 223").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q46 = U4 Then
ActiveSheet.Shapes("Freeform 223").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q47 = U2 Then
ActiveSheet.Shapes("Freeform 316").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q47 = U3 Then
ActiveSheet.Shapes("Freeform 316").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q47 = U4 Then
ActiveSheet.Shapes("Freeform 316").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q48 = U2 Then
ActiveSheet.Shapes("Freeform 328").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q48 = U3 Then
ActiveSheet.Shapes("Freeform 328").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q48 = U4 Then
ActiveSheet.Shapes("Freeform 328").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q49 = U2 Then
ActiveSheet.Shapes("Freeform 325").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q49 = U3 Then
ActiveSheet.Shapes("Freeform 325").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q49 = U4 Then
ActiveSheet.Shapes("Freeform 325").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q50 = U2 Then
ActiveSheet.Shapes("Freeform 274").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q50 = U3 Then
ActiveSheet.Shapes("Freeform 274").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q50 = U4 Then
ActiveSheet.Shapes("Freeform 274").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q51 = U2 Then
ActiveSheet.Shapes("Freeform 181").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q51 = U3 Then
ActiveSheet.Shapes("Freeform 181").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q51 = U4 Then
ActiveSheet.Shapes("Freeform 181").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q52 = U2 Then
ActiveSheet.Shapes("Freeform 166").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q52 = U3 Then
ActiveSheet.Shapes("Freeform 166").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q52 = U4 Then
ActiveSheet.Shapes("Freeform 166").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q53 = U2 Then
ActiveSheet.Shapes("Freeform 229").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q53 = U3 Then
ActiveSheet.Shapes("Freeform 229").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q53 = U4 Then
ActiveSheet.Shapes("Freeform 229").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q54 = U2 Then
ActiveSheet.Shapes("Freeform 196").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q54 = U3 Then
ActiveSheet.Shapes("Freeform 196").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q54 = U4 Then
ActiveSheet.Shapes("Freeform 196").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q55 = U2 Then
ActiveSheet.Shapes("Freeform 142").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q55 = U3 Then
ActiveSheet.Shapes("Freeform 142").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q55 = U4 Then
ActiveSheet.Shapes("Freeform 142").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q56 = U2 Then
ActiveSheet.Shapes("Freeform 169").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q56 = U3 Then
ActiveSheet.Shapes("Freeform 169").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q56 = U4 Then
ActiveSheet.Shapes("Freeform 169").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q57 = U2 Then
ActiveSheet.Shapes("Freeform 190").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q57 = U3 Then
ActiveSheet.Shapes("Freeform 190").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q57 = U4 Then
ActiveSheet.Shapes("Freeform 190").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q58 = U2 Then
ActiveSheet.Shapes("Freeform 145").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q58 = U3 Then
ActiveSheet.Shapes("Freeform 145").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q58 = U4 Then
ActiveSheet.Shapes("Freeform 145").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q59 = U2 Then
ActiveSheet.Shapes("Freeform 253").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q59 = U3 Then
ActiveSheet.Shapes("Freeform 253").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q59 = U4 Then
ActiveSheet.Shapes("Freeform 253").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q60 = U2 Then
ActiveSheet.Shapes("Freeform 133").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q60 = U3 Then
ActiveSheet.Shapes("Freeform 133").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q60 = U4 Then
ActiveSheet.Shapes("Freeform 133").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q61 = U2 Then
ActiveSheet.Shapes("Freeform 172").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q61 = U3 Then
ActiveSheet.Shapes("Freeform 172").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q61 = U4 Then
ActiveSheet.Shapes("Freeform 172").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q62 = U2 Then
ActiveSheet.Shapes("Freeform 199").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q62 = U3 Then
ActiveSheet.Shapes("Freeform 199").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q62 = U4 Then
ActiveSheet.Shapes("Freeform 199").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q63 = U2 Then
ActiveSheet.Shapes("Freeform 137").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q63 = U3 Then
ActiveSheet.Shapes("Freeform 137").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q638 = U4 Then
ActiveSheet.Shapes("Freeform 137").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q64 = U2 Then
ActiveSheet.Shapes("Freeform 265").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q64 = U3 Then
ActiveSheet.Shapes("Freeform 265").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q64 = U4 Then
ActiveSheet.Shapes("Freeform 265").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q65 = U2 Then
ActiveSheet.Shapes("Freeform 334").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q65 = U3 Then
ActiveSheet.Shapes("Freeform 334").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q65 = U4 Then
ActiveSheet.Shapes("Freeform 334").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q66 = U2 Then
ActiveSheet.Shapes("Freeform 355").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q66 = U3 Then
ActiveSheet.Shapes("Freeform 355").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q66 = U4 Then
ActiveSheet.Shapes("Freeform 355").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q67 = U2 Then
ActiveSheet.Shapes("Freeform 367").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q67 = U3 Then
ActiveSheet.Shapes("Freeform 367").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q67 = U4 Then
ActiveSheet.Shapes("Freeform 367").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q68 = U2 Then
ActiveSheet.Shapes("Freeform 148").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q68 = U3 Then
ActiveSheet.Shapes("Freeform 148").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q68 = U4 Then
ActiveSheet.Shapes("Freeform 148").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q69 = U2 Then
ActiveSheet.Shapes("Freeform 151").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q69 = U3 Then
ActiveSheet.Shapes("Freeform 151").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q69 = U4 Then
ActiveSheet.Shapes("Freeform 151").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q70 = U2 Then
ActiveSheet.Shapes("Freeform 259").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q70 = U3 Then
ActiveSheet.Shapes("Freeform 259").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q70 = U4 Then
ActiveSheet.Shapes("Freeform 259").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q71 = U2 Then
ActiveSheet.Shapes("Freeform 235").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q71 = U3 Then
ActiveSheet.Shapes("Freeform 235").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q71 = U4 Then
ActiveSheet.Shapes("Freeform 235").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q72 = U2 Then
ActiveSheet.Shapes("Freeform 628").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q72 = U3 Then
ActiveSheet.Shapes("Freeform 628").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q72 = U4 Then
ActiveSheet.Shapes("Freeform 628").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q73 = U2 Then
ActiveSheet.Shapes("Freeform 202").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q73 = U3 Then
ActiveSheet.Shapes("Freeform 202").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q73 = U4 Then
ActiveSheet.Shapes("Freeform 202").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q73 = U5 Then
ActiveSheet.Shapes("Freeform 202").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q74 = U2 Then
ActiveSheet.Shapes("Freeform 370").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q74 = U3 Then
ActiveSheet.Shapes("Freeform 370").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q74 = U4 Then
ActiveSheet.Shapes("Freeform 370").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q75 = U2 Then
ActiveSheet.Shapes("Freeform 250").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q75 = U3 Then
ActiveSheet.Shapes("Freeform 250").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q75 = U4 Then
ActiveSheet.Shapes("Freeform 250").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q76 = U2 Then
ActiveSheet.Shapes("Freeform 598").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q76 = U3 Then
ActiveSheet.Shapes("Freeform 598").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q76 = U4 Then
ActiveSheet.Shapes("Freeform 598").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q77 = U2 Then
ActiveSheet.Shapes("Freeform 163").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q77 = U3 Then
ActiveSheet.Shapes("Freeform 163").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q77 = U4 Then
ActiveSheet.Shapes("Freeform 163").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q78 = U2 Then
ActiveSheet.Shapes("Freeform 214").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q78 = U3 Then
ActiveSheet.Shapes("Freeform 214").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q78 = U4 Then
ActiveSheet.Shapes("Freeform 214").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q79 = U2 Then
ActiveSheet.Shapes("Freeform 211").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q79 = U3 Then
ActiveSheet.Shapes("Freeform 211").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q79 = U4 Then
ActiveSheet.Shapes("Freeform 211").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q80 = U2 Then
ActiveSheet.Shapes("Freeform 283").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q80 = U3 Then
ActiveSheet.Shapes("Freeform 283").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q80 = U4 Then
ActiveSheet.Shapes("Freeform 283").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q81 = U2 Then
ActiveSheet.Shapes("Freeform 157").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q81 = U3 Then
ActiveSheet.Shapes("Freeform 157").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q81 = U4 Then
ActiveSheet.Shapes("Freeform 157").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q82 = U2 Then
ActiveSheet.Shapes("Freeform 343").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q82 = U3 Then
ActiveSheet.Shapes("Freeform 343").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q82 = U4 Then
ActiveSheet.Shapes("Freeform 343").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q83 = U2 Then
ActiveSheet.Shapes("Freeform 340").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q83 = U3 Then
ActiveSheet.Shapes("Freeform 340").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q83 = U4 Then
ActiveSheet.Shapes("Freeform 340").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q84 = U2 Then
ActiveSheet.Shapes("Freeform 391").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q84 = U3 Then
ActiveSheet.Shapes("Freeform 391").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q84 = U4 Then
ActiveSheet.Shapes("Freeform 391").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
  If Q85 = U2 Then
ActiveSheet.Shapes("Freeform 382").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q85 = U3 Then
ActiveSheet.Shapes("Freeform 382").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q85 = U4 Then
ActiveSheet.Shapes("Freeform 382").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q86 = U2 Then
ActiveSheet.Shapes("Freeform 280").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q86 = U3 Then
ActiveSheet.Shapes("Freeform 280").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q86 = U4 Then
ActiveSheet.Shapes("Freeform 280").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q87 = U2 Then
ActiveSheet.Shapes("Freeform 286").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q87 = U3 Then
ActiveSheet.Shapes("Freeform 286").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q87 = U4 Then
ActiveSheet.Shapes("Freeform 286").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q88 = U2 Then
ActiveSheet.Shapes("Freeform 298").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q88 = U3 Then
ActiveSheet.Shapes("Freeform 298").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q88 = U4 Then
ActiveSheet.Shapes("Freeform 298").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q89 = U2 Then
ActiveSheet.Shapes("Freeform 154").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q89 = U3 Then
ActiveSheet.Shapes("Freeform 154").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q89 = U4 Then
ActiveSheet.Shapes("Freeform 154").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q90 = U2 Then
ActiveSheet.Shapes("Freeform 226").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q90 = U3 Then
ActiveSheet.Shapes("Freeform 226").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q90 = U4 Then
ActiveSheet.Shapes("Freeform 226").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q90 = U5 Then
ActiveSheet.Shapes("Freeform 226").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

If Q91 = U3 Then
ActiveSheet.Shapes("Freeform 238").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q91 = U4 Then
ActiveSheet.Shapes("Freeform 238").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q92 = U2 Then
ActiveSheet.Shapes("Freeform 220").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q92 = U3 Then
ActiveSheet.Shapes("Freeform 220").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q92 = U4 Then
ActiveSheet.Shapes("Freeform 220").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If

  If Q96 = U2 Then
ActiveSheet.Shapes("Freeform 208").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q96 = U3 Then
ActiveSheet.Shapes("Freeform 208").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
If Q96 = U4 Then
ActiveSheet.Shapes("Freeform 208").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
End Sub

Merci d'avance,

Cordialement,

AD

Le 06/10/2015 à 22:02

Bonsoir,

avez vous le fichier ?

pour pouvoir faire des test, ou au moins la feuille où se trouve les Shapes avec le code de mise en couleur.

Merci et @ bientôt

LouReeD

Le 06/10/2015 à 22:19

Ceci dit :

il faudrait mettre en variable le nom des Shapes :

ActiveSheet.Shapes("Freeform 247").Select

dans Freeform 247 il y a des choses qui se pépète comme "Freeform "

ici dans l'exemple 247 correspond à Q2

Imaginez un tableau qui reprend tous les Q (?!) pour leur affecter une valeur constante de Freeform;

crétion d'un tableau avec comme 1 :

Option Base 1

DIM Q(96) ' on crée 96 cases car on commence à 2 et on doit aller sauf erreur de ma part jusqu'à 96

ensuite on lui attribue les 96 numéro de freeform

Q(2) = 247

Q(3) = 160

etc, c'est un peu long

le top aurait été d'avoir des Freeform en adéquation avec le Q... Alors une boucle suffirait pour attribuer les valeurs, bref.

Ensuite vous pourriez mettre en variable comme ceci :

ActiveSheet.Shapes("Freeform " & Q(2)).Select

tout ceci dans une boucle :

For I = 2 To 96
    If Q(I) = U2 Then
        ActiveSheet.Shapes("Freeform " & Q(I)).Select
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
    ElseIf Q(I) = U3 Then
        ActiveSheet.Shapes("Freeform " & Q(I)).Select
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
    ElseIf Q(I) = U4 Then
        ActiveSheet.Shapes("Freeform " & Q(I)).Select
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    End If
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
Next I

C'est une orientation avec les peu d'éléments connus... d'autre ferait mieux j'en suis sur...

@ bientôt

LouReeD

Le 07/10/2015 à 08:31

Bonjour LouReed,

Merci pour votre aide !

J'ai essayé avec ta proposition mais cela ne fonctionne pas.... J'ai un message d'erreur.

Je joins le fichier Excel.

Cordialement,

AD

47carte2.xlsm (157.08 Ko)
Le 07/10/2015 à 18:00

Bonsoir,

en effet il vous manque toute la partie de définition du tableau Q :

crétion d'un tableau avec comme 1 :

Option Base 1

DIM Q(96) ' on crée 96 cases car on commence à 2 et on doit aller sauf erreur de ma part jusqu'à 96

ensuite on lui attribue les 96 numéro de freeform

Q(2) = 247

Q(3) = 160

etc, c'est un peu long

le top aurait été d'avoir des Freeform en adéquation avec le Q... Alors une boucle suffirait pour attribuer les valeurs, bref.

c'est un tableau qui a pour nom Q pour garder le visuel de votre code. Ce tableau lors de sa création DIM Q(96), possède 97 cases qui sont vides ! ou non définies !

Il vous faut alors les définir avec les instructions suivante et jusqu'à 96 ! :

Q(2) = 247

Q(3) =160

Q(4) = 256

Q(5) = 385

etc etc etc

C'est pourquoi je demandais s'il n'était pas possible de renommer les FreeForm de façon qu'elles soient chronologique en terme de chiffre...

Si j'ai un peu de temps...

@ bientôt

LouReeD

Rechercher des sujets similaires à "macro 2003 colorier carte"