Bonjour à tous,

Dans le morceau de code ci dessous, il me dit que ma référence pour mon goto est non vailde. Est ce que ma syntaxe est bonne ? Est ce qu'il y a une autre manière que ce goto de brute épaisse pour "simuler" un Next[/CODE] dans une boucle For ?

PS : fts est une classe que j'ai définie => pas de pb à ce niveau là

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
58
59
60
61
62
63
64
65
66
67
For Each UneCellTer In Range(Cells(2, 4), Cells(Der, 4))
        If UneCellTer.Offset(0, 1).Value = fts.sousjacent Then  'sousjacent correct
            If UneCellTer.Value = "SHA" Then 'c'est bien une opération sur shares (?)
                If Right(UneCellTer.Offset(0, 5).Value, 9) = DateOperation Then 'date correcte
            'test du sens : si FTS = acheteur, SHA doit être vendeur et vice versa
                Select Case UneCellTer.Offset(0, -3) 'sens de SHA
                    Case Is = "Buy"
                        If UneCell.Offset(0, -3).Value = "Buy" Then
                            Application.Goto Sortir 'FTS achetés et Shares achetés => pas bon
                        ElseIf UneCell.Offset(0, -3).Value = "Sell" Then 'FTS vendus et shares achetées => OK
                            fts.prixref = UneCellTer.Offset(0, 3) 'on prend le prix de la première case qui vérifie les critères comme prix de ref
                            Set fts1 = fts
                            But = fts.quantity * Quotite
                            fts1.quantity = UneCellTer.Offset(0, -2).Value
                            Call recherchesuivantSHAprFTS(UneCellTer.Row)
                            fts.prixref = fts1.prixref
                            Exit For
                        Else
                            MsgBox "souci à l'horizon"
                            Stop
                        End If
                    Case Is = "Sell"
                        If UneCell.Offset(0, -3).Value = "Sell" Then
                            Application.Goto Sortir 'FTS vendus et Shares vendues => pas bon
                        ElseIf UneCell.Offset(0, -3).Value = "Buy" Then 'FTS achetés et shares vendues => OK
                            fts.prixref = UneCellTer.Offset(0, 3) 'on prend le prix de la première case qui vérifie les critères comme prix de ref
                            Set fts1 = fts
                            But = fts.quantity * Quotite
                            fts1.quantity = UneCellTer.Offset(0, -2).Value
                            Call recherchesuivantSHAprFTS(UneCellTer.Row)
                            fts.prixref = fts1.prixref
                            Exit For
                        Else
                            MsgBox "souci à l'horizon"
                            Stop
                        End If
                    Case Is = "Internal"
                        If UneCell.Offset(0, -3).Value = "Buy" Then 'FTS achetés
                            If UneCellTer.Offset(0, 15) <> "ZG" Then 'Shares achetées
                                Application.Goto Sortir
                            Else 'shares vendues
                                fts.prixref = UneCellTer.Offset(0, 3)
                                Set fts1 = fts
                                But = fts.quantity * Quotite
                                fts1.quantity = UneCellTer.Offset(0, -2).Value
                                Call recherchesuivantSHAprFTS(UneCellTer.Row)
                                fts.prixref = fts1.prixref
                                Exit For
                            End If
                        ElseIf UneCell.Offset(0, -4).Value = "Sell" Then 'FTS vendus
                            If UneCellTer.Offset(0, 12) <> "ZG" Then
                                Application.Goto Sortie 'Shares vendues
                            Else 'Shares achetées
                                fts.prixref = UneCellTer.Offset(0, 2)
                                Set fts1 = fts
                                But = fts.quantity * Quotite
                                fts1.quantity = UneCellTer.Offset(0, -3).Value
                                Call recherchesuivantSHAprFTS(UneCellTer.Row)
                                fts.prixref = fts1.prixref
                                Exit For
                            End If
                        End If
                End Select
            End If
        End If
    End If
Sortir: Next UneCellTer