Compiler des codes

Version imprimable

Compiler des codes

Bonjour.

Voilà, j'ai réussi ( :aie: ) à faire deux codes qui fonctionnent à date et que j’appellerai getCalendar() et getPrice().

Je veux réaliser un code qui "compile" tout ça sous la forme suivante :

SI condition1 ALORS faire getCalendar() puis getPrice()
SI condition2 ALORS faire seulement getPrice()

Mais étant débutant, je suis passé du côté obscur de la force et j'ai utilisé les (apparemment) bannis "GoTo">

Pourriez-vous m'aider ou me conseiller pour rebasculer sur un code plus "propre"?
De plus, je vais avec beaucoup de lignes à traiter avec ce code ( environ 20 000 -_-) donc j'aimerai l'optimiser afin de pas devoir laisser la machine tourner 4 jours à chaque fois que j'appuie sur le bouton...

Voilà LA CHOSE :

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
58
59
60
61
62
63
64
65
66
Sub getCashFlow()
 
Dim i As Integer
Dim j As Integer
Dim f As Integer
Dim start As Single
Dim a As Integer
Dim b As Integer
 
start = Timer
 
For i = 13 To 25 'vérifier valeur max de i'
        For j = 16 To 380 'vérifier valeur max de j'
 
        If Cells(i, 13).Value = 0 Or Cells(i, 13).Value <> Cells(i, 12).Value Then 'Si condition 1 (colonne "check" = 0 ou colonne "check"<>calendar), alors faire getCalendar puis getPrice'
 
            GoTo getCalendar
            GoTo getPrice
 
        Else: Cells(i, 13).Value = Cells(i, 12).Value 'Si condition 2 (colonne "check"= colonne "calendar"), alors SEULEMENT getPrice'
 
            GoTo getPrice
 
    End If
 
    Next j
Next i
 
 
getCalendar:
 
For i = 13 To 25 'vérifier valeur max de i'
    For j = 16 To 380 'vérifier valeur max de j'
     If Cells(i, 12).Value = "A" Then f = 2
     If Cells(i, 12).Value = "B" Then f = 3
     If Cells(i, 12).Value = "C" Then f = 4 'différentes valeurs de f à màj'
        Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True) 'vérifier limite du tableau pour le vlookup'
    Next j
Next i
 
 
getPrice:
 
For a = 13 To 25 'vérifier valeur max de a'
    For b = 16 To 380 'vérifier valeur max de b'
 
        If Cells(12, b).Value >= WorksheetFunction.Min(Cells(a, 9).Value, Cells(a, 10).Value) And Cells(12, b).Value <= WorksheetFunction.Max(Cells(a, 9).Value, Cells(a, 10).Value) And Cells(a, b).Value <> 1 Then 'vérifier que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
        Cells(a, b).Value = Cells(a, 14).Value 'vérifier que cette ligne renvoie bien à la colonne "Daily Price"'
 
        Else: Cells(a, b).Value = Cells(a, b).Value
 
        End If
 
    Next b
Next a
 
For i = 13 To 25 'vérifier valeur max de i'
 
Cells(i, 13) = Cells(i, 12)
 
Next i
 
MsgBox "durée du traitement : " & Timer - start & "secondes"
 
 
End Sub

Merci beaucouuuup! Bye

bonjour,

j'ai mis en forme ton code qui doit te servir d'exemple,
car je n'ais pas terminé le travail...
à toi de finir et de nous montrer ton code modifié,

en premier : getCalendar() est devenu un petit programme indépendant
on peut l'appeler autan de fois que l'on veux avec : "Call"

getCalendar:

Code:

1
2
3
4
5
6
7
8
9
10
Sub getCalendar()
    For i = 13 To 25 'vérifier valeur max de i'
        For j = 16 To 380 'vérifier valeur max de j'
            If Cells(i, 12).Value = "A" Then f = 2
            If Cells(i, 12).Value = "B" Then f = 3
            If Cells(i, 12).Value = "C" Then f = 4 'différentes valeurs de f à màj'
            Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True) 'vérifier limite du tableau pour le vlookup'
        Next j
    Next i
End Sub

le test IF et l'appel :

Code:

1
2
3
4
5
6
7
8
Sub getCashFlow()
    'à titre d'exemple
    If Cells(i, 13).Value = 0 Or Cells(i, 13).Value <> Cells(i, 12).Value Then
        Call getCalendar
    Else
        Cells(i, 13).Value = Cells(i, 12).Value 'Si condition 2 (colonne "check"= colonne "calendar"), alors SEULEMENT getPrice'
    End If
End Sub

getCalendar n'est plus dans getCashFlow
@+JP

Bonjour mjpmjp et merci pour ta réponse.

J'ai donc codé la chose comme suit mais j'ai l'impression que le code tourne en boucle (je suis obligé de l'arrêter de force et les cellules se remplissent et se vident). Ai-je oublié une instruction de "fin"?

Merci ! ;)

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
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
84
85
86
Sub getCashFlow()
 
Dim i As Integer
Dim j As Integer
Dim f As Integer
Dim start As Single
Dim a As Integer
Dim b As Integer
 
start = Timer
 
 
For i = 13 To 25 'VERIFIER valeur max de i'
        For j = 16 To 380 'VERIFIER valeur max de j'
 
        If Cells(i, 13).Value = 0 Or Cells(i, 13).Value <> Cells(i, 12).Value Then 'Si condition 1 (check = 0), alors faire getCalendar puis getPrice'
 
            Call getCalendar
            Call getPrice
 
 
        Else: Cells(i, 13).Value = Cells(i, 12).Value 'Si condition 2 (check=calendar), alors SEULEMENT getPrice'
 
            Call getPrice
 
        End If
 
 
    Next j
Next i
 
 
For i = 13 To 25 'VERIFIER valeur max de i'
Cells(i, 13) = Cells(i, 12)
Next i
 
MsgBox "durée du traitement : " & Timer - start & "secondes"
 
End Sub 'Fin du programme'
 
 
 
 
Sub getCalendar()
 
For i = 13 To 25 'vérifier valeur max de i'
        For j = 16 To 380 'vérifier valeur max de j'
 
 
        If Cells(12, j).Value >= WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(12, j).Value <= WorksheetFunction.Max(Cells(i, 9).Value, Cells(i, 10).Value) Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
            If Cells(i, 12).Value = "A" Then f = 2
            If Cells(i, 12).Value = "B" Then f = 3
            If Cells(i, 12).Value = "C" Then f = 4 'différentes valeurs de f à màj'
            Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True) 'vérifier limite du tableau pour le vlookup'
 
 
        Else: Cells(i, j).Value = Cells(i, j).Value
 
        End If
 
 
        Next j
    Next i
 
End Sub
 
 
 
 
 
Sub getPrice()
 
For a = 13 To 25 'VERIFIER valeur max de a'
    For b = 16 To 380 'VERIFIER valeur max de b'
 
        If Cells(12, b).Value >= WorksheetFunction.Min(Cells(a, 9).Value, Cells(a, 10).Value) And Cells(12, b).Value <= WorksheetFunction.Max(Cells(a, 9).Value, Cells(a, 10).Value) And Cells(a, b).Value <> 1 Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
        Cells(a, b).Value = Cells(a, 15).Value 'VERIFIER que cette ligne renvoie bien à la colonne "Daily Price"'
 
        Else: Cells(a, b).Value = Cells(a, b).Value
 
        End If
 
    Next b
Next a
 
End Sub

bonjour,
Code:

1 2 3 4 5 6 7 8 9 10 11 For i = 13 To 25 'VERIFIER valeur max de i' For j = 16 To 380 'VERIFIER valeur max de j' If Cells(i, 13).Value = 0 Or Cells(i, 13).Value <> Cells(i, 12).Value Then 'Si condition 1 (check = 0), alors faire getCalendar puis getPrice' Call getCalendar Call getPrice Else Cells(i, 13).Value = Cells(i, 12).Value 'Si condition 2 (check=calendar), alors SEULEMENT getPrice' Call getPrice End If Next j Next i
pour cette partie:
n'écrit pas...

Code:

Else: Cells(i, 13).Value = Cells(i, 12).Value 'Si condition 2 (check=calendar), alors SEULEMENT getPrice'

fait attention à bien aligner les boucles (ici, "For j" n'était pas aligné)

c'est très important (pour contrôler et comprendre)

tu as donc 2 boucles imbriquées i et j
dans cette partie on pourrait croire que "j" n'est pas utilisé, mais c'est faux car "j" est utilisé par getCalendar

MAIS getCalendar utilise ses propres boucles !!! il faut SUPRIMER ces boucles et vérifier si à l’intérieur de getCalendar "i" et "j" on la même valeur des boucles du programme getCashFlow qui l’appelle.

@+JP

24/05/2017, 21h34
mjpmjp

bonjour,

Citation:

il faut SUPRIMER ces boucles...

celles de getCalendar...
@+JP

J'ai corrigé le code (la partie ELSE) mais j'ai essayé de sortir les variables pour les rendre globales et coder ainsi :
Mais évidemment ca ne marche pas ;)

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
58
59
60
61
62
63
Option Explicit
Dim i As Integer
Dim j As Integer
Dim f As Integer
 
Sub getCashFlow()
 
Dim start As Single
 
start = Timer
 
For i = 13 To 14 'VERIFIER valeur max de i'
        For j = 16 To 380 'VERIFIER valeur max de j'
 
        If Cells(i, 13).Value = 0 Or Cells(i, 13).Value <> Cells(i, 12).Value Then 'Si condition 1 (colonne "check" = 0) ou condition 2 (colonne "check"<>colonne "calendar"), alors faire getCalendar puis getPrice'
 
            Call getCalendar
            Call getPrice
 
        Else 'Sinon (colonne "check"= colonne "calendar"), alors SEULEMENT getPrice'
 
            Call getPrice
 
        End If
 
    Next j
Next i
 
For i = 13 To 25 'VERIFIER valeur max de i'
Cells(i, 13) = Cells(i, 12)
Next i
 
MsgBox "durée du traitement : " & Timer - start & "secondes"
 
End Sub 'Fin du programme'
 
 
Sub getCalendar()
 
        If Cells(12, j).Value >= WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(12, j).Value <= WorksheetFunction.Max(Cells(i, 9).Value, Cells(i, 10).Value) Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
            If Cells(i, 12).Value = "A" Then f = 2
            If Cells(i, 12).Value = "B" Then f = 3
            If Cells(i, 12).Value = "C" Then f = 4 'différentes valeurs de f à màj'
            Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True) 'vérifier limite du tableau pour le vlookup'
 
 
        Else: Cells(i, j).Value = Cells(i, j).Value
 
        End If
 
End Sub
 
 
Sub getPrice()
 
        If Cells(12, j).Value >= WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(12, j).Value <= WorksheetFunction.Max(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(i, j).Value <> 1 Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
        Cells(i, j).Value = Cells(i, 15).Value 'VERIFIER que cette ligne renvoie bien à la colonne "Daily Price"'
 
        Else: Cells(i, j).Value = Cells(i, j).Value
 
        End If
 
End Sub

Aurais-tu une idée?

24/05/2017, 22h34
mjpmjp

1 pièce(s) jointe(s)

bonjour,
maintenant tu as un code propre (reste encore "else :")
il faut trouver effectivement pourquoi çà ne fonctionne pas ....
j'ai lancé le code .... et immédiatement, une première erreur :

Code:

Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True)

l'erreur c'est : "Sheet2",.... pour continuer le test je l'ai suprimé
et ensuite encore une erreur, c'est pas un problème, corrige cette erreur dans : Sub getPrice()

Code:

If Cells(12, j).Value >= WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(12, j).Value <= WorksheetFunction.Max(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(i, j).Value <> 1 Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'

Pièce jointe 278983

vérifies chaque "bout"
Cells(12, j).Value --> çà dit quoi ? --> vide, alpha, num ?
WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) --> idem

actuellement tu compare 2 choses de type différents

@+JP

Ok je pense que c'est bon !
Voilà mon 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
58
59
60
61
62
63
Option Explicit
Dim i As Integer
Dim j As Integer
Dim f As Integer
 
 
Sub getCashFlow()
 
Dim start As Single
 
start = Timer
 
For i = 13 To 14 'VERIFIER valeur max de i'
        For j = 16 To 380 'VERIFIER valeur max de j'
 
        If Cells(i, 13).Value = 0 Or Cells(i, 13).Value <> Cells(i, 12).Value Then 'Si condition 1 (colonne "check" = 0) ou condition 2 (colonne "check"<>colonne "calendar"), alors faire getCalendar puis getPrice'
 
            Call getCalendar(i, j)
            Call getPrice(i, j)
 
        Else 'Sinon (colonne "check"= colonne "calendar"), alors SEULEMENT getPrice'
 
            Call getPrice(i, j)
 
        End If
 
    Next j
Next i
 
For i = 13 To 25 'VERIFIER valeur max de i'
Cells(i, 13) = Cells(i, 12)
Next i
 
MsgBox "durée du traitement : " & Timer - start & "secondes"
 
End Sub 'Fin du programme'
 
 
Sub getCalendar(i As Integer, j As Integer)
 
        If Cells(12, j).Value >= WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(12, j).Value <= WorksheetFunction.Max(Cells(i, 9).Value, Cells(i, 10).Value) Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
            If Cells(i, 12).Value = "A" Then f = 2
            If Cells(i, 12).Value = "B" Then f = 3
            If Cells(i, 12).Value = "C" Then f = 4 'différentes valeurs de f à màj'
            Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True) 'vérifier limite du tableau pour le vlookup'
 
        Else: Cells(i, j).Value = Cells(i, j).Value
 
        End If
 
End Sub
 
 
Sub getPrice(i As Integer, j As Integer)
 
        If Cells(12, j).Value >= WorksheetFunction.Min(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(12, j).Value <= WorksheetFunction.Max(Cells(i, 9).Value, Cells(i, 10).Value) And Cells(i, j).Value <> 1 Then 'VERIFIER que cette ligne utilise bien les colonnes "Start Date" (Cells(a, 9).Value) et "Finish Date" (Cells(a,10)'
        Cells(i, j).Value = Cells(i, 15).Value 'VERIFIER que cette ligne renvoie bien à la colonne "Daily Price"'
 
        Else: Cells(i, j).Value = Cells(i, j).Value
 
        End If
 
End Sub

24/05/2017, 22h44
mjpmjp

bonjour,
il est vrai que j'ai testé avec des cellules vides !!!
chez toi çà peux fonctionner !!!

mais reste : "sheet2" ? --> sheets(2) ? ou sheets("2")...

@+JP
24/05/2017, 22h48
Gailuron45

1 pièce(s) jointe(s)

Ca fonctionne parfaitement même si le délai de traitement est encore très long et m'inquiète un peu quand je vais devoir l'appliquer à 5000 lignes ...

Pour le "Sheet2", cela fait référence à l'onglet "Sheet2" de mon fichier Excel. Y a-t-il quelque chose d'incorrect ?
Pièce jointe 278988
24/05/2017, 23h11
mjpmjp
bonjour,
~~Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheet2.Range("D6:G370"), f, True)~~
Code:

1 2 Cells(i, j).Value = Application.VLookup(Cells(12, j), Sheets("Sheet2").Range("D6:G370"), f, True)
en fait, je t'ai "guidé" dans ta structure vba,
mais pour l'amélioration de la vitesse de traitement, c'est a toi d' "envisager" d'autres approches,
notamment (vu que tu utilise des "WorksheetFunction") avec des tableaux coté "Worksheet"
mais là je suis pas trop bon ;)
@+JP
25/05/2017, 14h47
Gailuron45

Merci pour la correction et pour toute ton aide ! :)