Compiler des codes

**Gailuron45** · 24/05/2017, 20h12

Bonjour.

Voilà, j'ai réussi (

) à 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 :

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
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

**mjpmjp** · 24/05/2017, 20h46

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Gailuron45** · 24/05/2017, 21h04

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 :

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
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

**mjpmjp** · 24/05/2017, 21h32

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**mjpmjp** · 24/05/2017, 21h34

bonjour,

il faut SUPRIMER ces boucles...

celles de getCalendar...
@+JP

**Gailuron45** · 24/05/2017, 22h13

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 :

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
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?

**mjpmjp** · 24/05/2017, 22h34

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

        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)'

Nom : Capture3.PNG
Affichages : 93
Taille : 5,8 Ko

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

**Gailuron45** · 24/05/2017, 22h37

Ok je pense que c'est bon !
Voilà mon 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
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

**mjpmjp** · 24/05/2017, 22h44

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

**Gailuron45** · 24/05/2017, 22h48

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 ?
Nom : Capture.PNG
Affichages : 89
Taille : 3,8 Ko

Nom : Capture.PNG
Affichages : 89
Taille : 3,8 Ko

**mjpmjp** · 24/05/2017, 23h11

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Gailuron45** · 25/05/2017, 14h47

Merci pour la correction et pour toute ton aide !

Compiler des codes [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager