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
|
Private Sub CommandButton1_Click()
BidActuel = 0
BidMini = 0
AskActuel = 0
AskMaxi = 0
'Dernière ligne
LigneFin = Sheets("Base Exemple").Range("B" & Rows.Count).End(xlUp).Row
'boucle
For n = 2 To LigneFin
Select Case UCase(Sheets("Base Exemple").Range("B" & n).Value)
Case "BID"
BidActuel = Sheets("Base Exemple").Range("C" & n).Value
If BidMini = 0 Then
BidMini = BidActuel
Else
If BidActuel < BidMini Then
BidMini = BidActuel
'ICI possible écrire dans cellule la valeur de BidMini
End If
End If
Case "ASK"
AskActuel = Sheets("Base Exemple").Range("C" & n).Value
If AskActuel = 0 Then
AskMaxi = AskActuel
Else
If AskActuel > AskMaxi Then
AskMaxi = AskActuel
'ICI possible écrire dans cellule la valeur de AskMaxi
End If
End If
Case "TRADE"
'ICI le code pour ecrire les valeurs de la ligne n et BidMini et AskMaxi
'attention ne pas oublier le changement d'onglet
'Sheets("Output").Range("A" & Ligne).Value = Sheets("Base Exemple").Range("A" & n).Value
End Select
Next n
End Sub |
