Discussion :

[bookada]

Bonjour,

J'ai une base de donnée à traiter.. un peu longue 73202 lignes..
Je sais qu'il y a des lignes à supprimer que je ne connais pas mais que je peux retrouver avec un raisonnement et une fonction.

Mon but :

- j'ai une base de donnée avec les prix des puts et calls du cac40 avec leur strike,... (s'il y a des financiers ils comprendront)

- je l'ai tri manuellement et range les colonnes pour avoir cet ordre
date (croissant), strike price(croissant), échéance(croissant), heure (croissant)..

- Je veux donc que VBA se place dans un intervalle de date identique le 03.02.00 par exemple ne me garde qu'un prix pour chaque type de call.
exemple : le 03.02.00, un call à 5000, échéance le XX.XX.00 et son prix de clôture.

Le principe : automatiser un truc qu'il faut que je fasse à la main....

Programme que j'ai écrit mais j'ai une erreur 28 de "pile" sur un gosub.. Je n'arrive pas à trouver de solution en cherchant en francais et en anglais sur google..

Je suis pas expert mais quand même plus avancé qu'un débutant disons et l'erreur ne me saute pas aux yeux

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Sub tri()
'case de début a=A et b=2 ici
 
    Dim i, j As Long
    dd = 2
    i = 2
    j = 1
 
jour: 'marque gosub
    i = dd
 
    If Cells(i, 1).Value = "" Then 'si vide on stoppe le programme (correspondrait ‡ la derniËre ligne)
        GoSub fin
    End If
 
    Do While Cells(i, 1).Value = Cells(i + 1, 1).Value 'cherche l'intervalle avec les dates identiques
        i = i + 1
    Loop
 
 
strike:  'marque gosub
 
    jourd = dd 'fixe intervalle date début
    jourf = i  'fixe intervalle date fin
    i = jourd  'donne le dÈbut du nouvel intervalle
 
    Do While Cells(i, 2).Value = Cells(i + 1, 2).Value And i < jourf 'cherche l'intervalle de ma deuxième colonne ou les valeurs sont identiques
        i = i + 1
    Loop
 
echeance: 'marque gosub
 
    striked = jourd 'fixe l'intervalle..
    strikef = i
    i = striked
 
    'verifie que l'on ne soit pas sur un cas avec une seule ligne de strike
    If striked = strikef Then
        dd = dd + 1
        GoSub strike 8O
    'fin de la verif
 
    End If
 
    Do While Cells(i, 3).Value = Cells(i + 1, 3).Value And i < strikef
           i = i + 1
    Loop
 
    echeanced = striked
    echeancef = i
 
    'verifie que l'on ne soit pas sur un cas avec une ligne d'échéance
    If echeanced = echeancef And echeancef < strikef Then
        striked = echeancef + 1
        GoSub echeance
 
    ElseIf echeanced = echeancef And echeancef = strikef Then
        jourd = echeancef + 1
        GoTo strike
 
    ElseIf echeanced = echeancef And echeancef = jourf Then
        dd = echancef + 1
        GoSub jour
        'fin de la verif
 
    End If
    Range(Cells(echeanced, 1), Cells(echeancef - 1, 10)).Delete
 
        If echeancef < strikef Then
            striked = echeancef + 1
            GoSub echeance
        ElseIf echeancef = strikef Then
            jourd = echeancef + 1
            GoSub strike
 
        ElseIf echeancef = jourf Then
            dd = echeancef + 1
            GoSub jour
        End If
fin:
     MsgBox "Tri terminé"
 
End Sub

J'obtiens l'erreur sur le gosub strike avec le smiley.
J'espère que quelqu'un arrivera à me sauver.. parce que les 73000 lignes me donnent déjà envie de vomir

Bien cordialement
Olivier

[Pierre Fauconnier]

Bonjour

Tu parles de 73000 lignes, tu es donc en 2007... (merci le préfixe à gauche tu titre... )

Pourquoi ne pas utiliser la fonctionnalité consistant à extraire les doublons, éventuellement en VBA?

Les GOSUB, c'est loin d'être le top en matière de programmation.

Si les critères de sélection font que tu ne peux utiliser la fonctionnalité d'extraction des doublons, tu pourrais:

1) Trier tes données selon tes critères
2) Remonter du bas vers le début de ton tableau et extraire/supprimer ce qui doit l'être.

[bookada]

Désolé pour la version de Excel.

Le problème c'est que ce n'est pas des doublons, ils sont identiques pour certaines caractéristiques mais pas au niveau de leurs prix et de l'heure du prix.

Je suis un peu perdu pour le coup.. Je n'ai pas exactement compris ce que tu entendais par remonter..

merci pour ton aide.

[sabzzz]

bonjour bookada,

peut tu montrer quelque ligne avec deux groupes et indiquer les deux lignes à garder, je crois que ton probleme peut être résolu plus rapidement avec une formule.

[Pierre Fauconnier]

...mais que je peux retrouver avec un raisonnement et une fonction....

Quel raisonnement? Ton code n'est pas suffisamment explicite pour comprendre quoi prendre et quand le prendre

...
- je l'ai tri manuellement et range les colonnes pour avoir cet ordre
date (croissant), strike price(croissant), échéance(croissant), heure (croissant)..

Cela peut être fait en VBA (histoire de ne pas oublier de le faire)

...
- Je veux donc que VBA se place dans un intervalle de date identique le 03.02.00 par exemple...

Donne le déroulement générique plutôt qu'un exemple. Veux-tu rechercher pour un jour particulier, pour chaque jour d'une plage, pour chaque jour présent dans la base?

...ne me garde qu'un prix pour chaque type de call.
exemple : le 03.02.00, un call à 5000, échéance le XX.XX.00 et son prix de clôture...

Sur quelle base garder une ligne plutôt qu'une autre? Que veux-tu dire par "garder"? Supprimer les autres? Copier celle que tu veux "garder" sur une autre feuille? ...? Peut-on imaginer une formule Excel (via evaluate, éventuellement)?


Ton code n'est pas du tout optimisé pour travailler avec des objets. Les GOSUB, c'est vraiment à proscrire.

Perso, je découperais le travail en petites procédures propres et autonomes.
- Une pour trier
- Une pour déterminer la ligne à "garder"
- Une pour supprimer ou déplacer

...Je n'ai pas exactement compris ce que tu entendais par remonter..

Si on doit supprimer des lignes, il est préférable de commencer par le bas du tableau, pour éviter de "sauter" des lignes lors du traitement.