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 34 35 36 37 38 39 40
|
'proof mesure button add device
Private Sub CommandButton1_Click()
With ActiveSheet
.OLEObjects("CommandButton1").Object.Caption = "ajouter appareil"
End With
End Sub
Private Sub CommandButton2_Click()
With ActiveSheet
.OLEObjects("CommandButton2").Object.Caption = "ajouter mesures"
End With
'appel le dispatcher
add_proof_mesure
End Sub
Private Sub CommandButton3_Click()
With ActiveSheet
.OLEObjects("CommandButton3").Object.Caption = "5 dernières mesures"
End With
'appel le dispatcher
get_five_last_record
End Sub
Private Sub SpinButton1_Change()
Dim limit As Variant
Dim offset As Variant
Dim value As Variant
With SpinButton1
.Min = 0
.Max = 10
End With
value = SpinButton1.value
Debug.Print value
offset = value * 5
limit = offset + 5
get_five_last_record limit, offset
End Sub |
Partager