Problème sur un else

Version imprimable

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:

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

25/09/2014, 17h26
Marc-L

Bonjour,

comme de coutume pas vraiment clair, si je me réfère seulement au titre de cette discussion,
j’émettrais donc un doute sur les lignes n°38 & 39 du code :
après le Then il devrait y avoir autre chose que Else, sinon revoir la condition de cette ligne;
le Else devrait être seul sur la ligne (voir donc l'aide VBA intégrée ‼), effacer les deux points
et passer le reste de la ligne en ligne suivante puis, enfin, vérifier l'enchaînement logique des conditions …
25/09/2014, 17h34
ayms75

désolé j'ai des difficultés à être précis avec VBA, quand je descend le else, ça me met les prix_exec en i,20 alor que moi je veux juste que ça me mette JM en i,12 quand c'est bon

Citation:

Envoyé par ayms75

Code:

1
2
3
4
5
6
7
8
9
10
        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

Déjà, il n'y a aucune action entre le premier If et le Else ce qui semble totalement anomal.
Ensuite, pour que le else mette effectivement "JM" dans la cellule, c'est sujet aux conditions des If suivants.

Tout à fait d'accord avec Menhir et Marc,

Le principe de cette condition est

Code:

1
2
3
4
5
If ta condition  then ' doit vérifier ta condition
Action 1 'si la condition est vérifiée l'action se réalise
Else 'Sinon (Si la condition n'est pas vérifiée)
Action2 'On réalise la deuxième action
End if

Eric

Bonjour
Sans garantie du resultat puisque on ne sait pas forcement ce que vous voulez obtenir

Code:

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
Sub Match()
Dim Sens1 As String
Dim i As Integer, p As Integer
 
For p = 7 To Sheets(2).Range("a7").End(xlDown).Row
    With Sheets(2)
        Sens1 = .Cells(p, 2)
            If Sens1 = "Buy" Then Sens1 = "B"
            If Sens1 = "Sell" Then Sens1 = "S"
 
        prix_exec1 = CDbl(.Cells(p, 10).Value)
        commission1 = CDbl(.Cells(p, 12).Value)
        quantite1 = CDbl(.Cells(p, 9).Value)
    End With
Next p
 
For i = 5 To Sheets(1).Range("b5").End(xlDown).Row
    With Sheets(1) 'Main courante
        If .Cells(i, 3).Value = Sens1 Then
            If CDbl(.Cells(i, 7).Value) <> prix_exec1 Then prix_exec1 = .Cells(i, 20).Value
 
            If Round(CDbl(.Cells(i, 11).Value), 2) = commission1 And CDbl(.Cells(i, 4).Value) = quantite1 Then .Cells(i, 12).Value = "JM"
        End If
    End With
Next i
 
End Sub

Il reste trois variable a dimensionner et je ne sais que faire de cette variable prix_exec1 lorsqu'il est egal à (i,20)

26/09/2014, 15h35
ayms75

Merci pour vos réponse mais ça ne marche pas, le principe de la macro est qu'il y a 2 fichiers avec 4 valeurs à vérifier et si elles sont identiques alors ça met JM en i,12. mais pour le prix-exec1 si la valeurs n'est pas bonne en i,7 alors il faut vérifier en i,20 et si c'est bon mettre JM en i,12. j’espère avoir était plus clair
26/09/2014, 15h58
keygen08

Remplacer

Code:

If CDbl(.Cells(i, 7).Value) <> prix_exec1 Then prix_exec1 = .Cells(i, 20).Value

par

Code:

If CDbl(.Cells(i, 7).Value) = prix_exec1 Or CDbl(.Cells(i, 20).Value) = prix_exec1 Then

dans le code precedement poster
26/09/2014, 16h42
ayms75

ça me met erreur de compilation: endwhith sans with
ce que ej comprend pas c'est que chaque with à son enwith
26/09/2014, 17h14
ayms75

c'est bon ça marche, merci keygen08, j'ai rajouté ce que tu m'as dit à mon code et ça marche