Re à tous et toutes
si on doit avoir des résultats inverses en VBA c'est facile !
Option Explicit
Option Compare Text
Sub BidAskInverse()
Dim Plage As Range
Dim Cell As Range
Dim LastAchat As Integer, LastVente As Integer
Set Plage = Range("D6:E" & Range("E65536").End(xlUp).Row)
For Each Cell In Plage
If Not IsError(Cell.Value) Then
Select Case Cell.Value
Case "ACHAT"
LastAchat = Cell.Row
If LastVente <> 0 Then Cells(LastAchat, 6) = Cells(LastVente, 3) - Cells(LastAchat, 3)
Case "VENTE"
LastVente = Cell.Row
If LastAchat <> 0 Then Cells(LastVente, 6) = Cells(LastAchat, 3) - Cells(LastVente, 3)
End Select
End If
Next
End Sub
Et donc sur le tableau que tu viens de poster j'obtiens ceci :
1,2338 #N/A #N/A
1,2344 #N/A #N/A
1,2358 ACHAT #N/A
1,235 #N/A VENTE 0,0008
1,2339 #N/A #N/A
1,2349 #N/A #N/A
1,2355 ACHAT #N/A -0,0005
1,2348 #N/A #N/A
1,2333 #N/A VENTE 0,0022
1,2337 #N/A #N/A
1,2309 #N/A #N/A
1,2268 achat #N/A 0,0065
1,2286 #N/A #N/A
1,2273 #N/A #N/A
1,2264 #N/A #N/A
Par contre pour la ligne 1,2358 ACHAT, j'aimerai savoir comment tu trouves "-0.0042 " ?
Bonne soirée
@+Thierry