Bonjour à tous,

J'ai fait une macros pour matcher 2 fichiers mais je rencontre un problème sur "prix_exec1", en effet je voudrais qu'il prenne le prix de la cellule i,7 si c'est pareil avec l'autre fichier mais si c'est différent qu'il prenne i,20, le souci c'est que sans le else la macro fonctionne quand prix-exec1 = i,7 mais avec le else plus rien, voici le code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Match()
 
 
 
'Matching
 
    'Morgan Stanley
 
    Sheets(2).Activate
 
lignemax1 = Range("a7").End(xlDown).Row
 
For p = 7 To lignemax1
 
Sheets(2).Activate
 
    sens1 = Cells(p, 2)
        If sens1 = "Buy" Then
            sens1 = "B"
        ElseIf sens1 = "Sell" Then
            sens1 = "S"
        End If
 
    prix_exec1 = CDbl(Cells(p, 10).Value)
    commission1 = CDbl(Cells(p, 12).Value)
    quantite1 = CDbl(Cells(p, 9).Value)
 
 
    'Main courante
 
    Sheets(1).Activate
 
    lignemax2 = Range("b5").End(xlDown).Row
 
    For i = 5 To lignemax2
 
    If Cells(i, 3).Value = sens1 Then
        If CDbl(Cells(i, 7).Value) = prix_exec1 Then
         Else: Cells(i, 20).Value = prix_exec1
            If Round(CDbl(Cells(i, 11).Value), 2) = commission1 Then
                If CDbl(Cells(i, 4).Value) = quantite1 Then
 
                   Cells(i, 12).Value = "JM"
 
                End If
            End If
        End If
    End If
 
    Next i
 
 
Next p
 
 
 
End Sub
Si quelqu'un pouvez y jeter un œil svp