1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Set SR = SY.Worksheets("Synthèse rdv & orientation tot")
.....
For i = 5 To derligne1
'On affiche les notes correspondants à la période sélectionnée par l'utilisateur
Select Case SYN.Cells(1, "D").Value
Case Is = SR.Cells(2, "R").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "R").Value
Case Is = SR.Cells(2, "S").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "S").Value
Case Is = SR.Cells(2, "T").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "T").Value
Case Is = SR.Cells(2, "U").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "U").Value
Case Is = SR.Cells(2, "V").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "V").Value
Case Is = SR.Cells(2, "W").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "W").Value
Case Is = SR.Cells(2, "X").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "X").Value
Case Is = SR.Cells(2, "Y").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "Y").Value
Case Is = SR.Cells(2, "Z").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "Z").Value
Case Is = SR.Cells(2, "AA").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "AA").Value
Case Is = SR.Cells(2, "AB").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "AB").Value
Case Is = SR.Cells(2, "AC").Value
SYN.Cells(i, "BE").Value = SR.Cells(i, "AC").Value
End Select
Next i |
Partager