1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub ScrollBar_Change()
With Sheets("Curseur")
.Range("H31") = ScrollBar.Value / 100
.Range("G31") = (1 - .Range("H31"))
P = Application.WorksheetFunction.VLookup(Sheets("Curseur").Range("G31").Value,
Sheets("Curseur").Range("G8:J28"), 3, False)
R = Application.WorksheetFunction.VLookup(Sheets("Curseur").Range("G31").Value,
Sheets("Curseur").Range("G8:J28"), 4, False)
MDD = Application.WorksheetFunction.HLookup(.Range("i31").Value,
Sheets("Données").Range("D2:X27"), 7, False)
.Range("i31") = P
.Range("j31") = R
.Range("k31") = MDD
End With
End Sub |
Partager