Optimiser le codage par les boucles

Version imprimable

Bonjour, étant débutant en VBA, j'ai un peu de mal à optimiser mon code.
Je dois réaliser le calcul de plusieurs indicateurs, à différentes dates. Afin de ne pas avoir à réutiliser pour chaque indicateurs le même code, je cherche à transformer le code suivant en une ou plusieurs boucles :

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
 
T1 = "01/01/2015"
T2 = "01/04/2015"
T3 = "01/07/2015"
T4 = "01/10/2015"
Jan = "01/01/2016"
Fev = "01/02/2016"
Mar = "01/03/2016"
Avr = "01/04/2016"
Mai = "01/05/2016"
Juin = "01/06/2016"
Jui = "01/07/2016"
Aou = "01/08/2016"
Sep = "01/09/2016"
Oct = "01/10/2016"
Nov = "01/11/2016"
Dec = "01/12/2016"
nAn = "01/01/2017"
    If (Sheets("feuil1").Cells(2, 8) < T1) _
        Then Sheets("feuil2").Cells(8, 8) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T1 And Sheets("feuil1").Cells(2, 8) < T2) _
        Then Sheets("feuil2").Cells(8, 9) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T2 And Sheets("feuil1").Cells(2, 8) < T3) _
        Then Sheets("feuil2").Cells(8, 10) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T3 And Sheets("feuil1").Cells(2, 8) <= T4) _
        Then Sheets("feuil2").Cells(8, 11) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= T4 And Sheets("feuil1").Cells(2, 8) < Jan) _
        Then Sheets("feuil2").Cells(8, 12) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Jan And Sheets("feuil1").Cells(2, 8) < Fev) _
        Then Sheets("feuil2").Cells(8, 13) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Fev And Sheets("feuil1").Cells(2, 8) < Mar) _
        Then Sheets("feuil2").Cells(8, 14) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Mar And Sheets("feuil1").Cells(2, 8) < Avr) _
        Then Sheets("feuil2").Cells(8, 15) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Avr And Sheets("feuil1").Cells(2, 8) < Mai) _
        Then Sheets("feuil2").Cells(8, 16) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Mai And Sheets("feuil1").Cells(2, 8) < Juin) _
        Then Sheets("feuil2").Cells(8, 17) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Juin And Sheets("feuil1").Cells(2, 8) < Jui) _
        Then Sheets("feuil2").Cells(8, 18) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Jui And Sheets("feuil1").Cells(2, 8) < Aou) _
        Then Sheets("feuil2").Cells(8, 19) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Aou And Sheets("feuil1").Cells(2, 8) < Sep) _
        Then Sheets("feuil2").Cells(8, 20) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Sep And Sheets("feuil1").Cells(2, 8) < Oct) _
        Then Sheets("feuil2").Cells(8, 21) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Oct And Sheets("feuil1").Cells(2, 8) < Nov) _
        Then Sheets("feuil2").Cells(8, 22) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Nov And Sheets("feuil1").Cells(2, 8) < Dec) _
        Then Sheets("feuil2").Cells(8, 23) = numCA / denumC
 
    If (Sheets("feuil1").Cells(2, 8) >= Dec And Sheets("feuil1").Cells(2, 8) < nAn) _
        Then Sheets("feuil2").Cells(8, 24) = numCA / denumC
 
    If Sheets("feuil1").Cells(2, 8) >= nAn _
        Then Sheets("feuil2").Cells(8, 25) = numCA / denumC

J'espère que mes explication ne sont pas trop vague..
Merci d'avance pour vos réponses !

Bonjour,

J'ai deux solution à te proposer, la première est d'utiliser Elseif :
Code:

1 2 3 4 5 6 7 8 9 10 11 If ..... then 'action Elseif ..... then 'action2 Elseif ... then . . . Else 'action si autres conditions non respectés End if
Ton code sortira de la vérification dès qu'il trouvera une condition respectée, ce qui éviterait les AND de chaque ligne déjà.

Sinon tu peux utiliser les Select Case mais j'ai cru lire de mémoire sur le net qu'il est un chouilla moins opti question temps d'exécution que les elseif mais cela fonctionne avec une structure assez similaire je te laisse chercher sur le net.

Après pour le principe de boucle j'espère que c'était bien ça.
Sinon pour bouclier sur les Cellules :
Code:

1 2 3 For i = 1 to 42 Cells(i,8) = 'action Next i
Ceci permet de parcourir une colonne de la ligne 1 à 42.

De plus je te conseille d'utiliser les With pour alléger ton code. Dans ton cas par exemple :
Code:

1 2 3 4 With Sheets("feuil1").Cells(2, 8) If .value < T1 then '... etc End With
Voici donc un Code que je te propose:
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 Sub test() Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date, Jan As Date, _ Fev As Date, Mar As Date 'je te laisse compléter Dim fract As Double T1 = DateSerial(2015, 1, 1) T2 = DateSerial(2015, 4, 1) T3 = DateSerial(2015, 7, 1) T4 = DateSerial(2015, 10, 1) Jan = DateSerial(2016, 1, 1) Fev = DateSerial(2016, 2, 1) Mar = DateSerial(2016, 3, 1) 'DateSerial renvoie une variable de type Date fract = numCA / denumC Dim i As Long i = 0 With Sheets("feuil2") For i = 2 To 42 Select Case Sheets("feuil1").Cells(i, 8) Case Is < T1 .Cells(i + 2, 8) = fract Case Is < T2 .Cells(i + 2, 9) = fract Case Is < T3 .Cells(i + 2, 10) = fract Case Is < T4 .Cells(i + 2, 11) = fract Case Is < Jan .Cells(i + 2, 12) = fract Case Is < Fev .Cells(i + 2, 13) = fract Case Is < Mar .Cells(i + 2, 14) = fract End Select Next i End With End Sub
Si je suis dans le faux ou que j'ai mal compris ta question, je m'en excuse d'avance, en espérant t'avoir aidé.
Cela reste long mais c'est plus lisible. Après il y a peut-être solution, je laisse les autres te répondre.

DeathZarakai.

03/05/2016, 10h51
Philippe Tulliez
Bonjour,
Sans en savoir plus, difficile d'apporter une aide sérieuse mais déjà au lieu d'utiliser des variables simples, il serait plus judicieux de se diriger vers des variables tableaux.
Ainsi par exemple, au lieu de
Code:

1 2 3 4 T1 = "01/01/2015" T2 = "01/04/2015" T3 = "01/07/2015" T4 = "01/10/2015"
il serait plus simple d'écrire par exemple pour l'année 2016
Code:

1 2 3 4 5 6 7 Sub CalculTrimestre() Dim t(1 To 4), Periode As Byte For Periode = 1 To 4 t(Periode) = DateSerial(2016, ((Periode - 1) * 3) + 1, 1) Next MsgBox t(2) ' Donnera 1/4/2016 End Sub
On peut bien entendu placer l'année dans une variable et également sans doute ne pas passer par une variable tableau mais directement par l'écriture dans une cellule en utilisant la même formule

A lire Utiliser les variables tableaux en VBA Excel
03/05/2016, 13h27
toune4

Merci pour vos réponses rapides, elles m'ont permi de résoudre quelques problèmes.
J'aurais une autre interrogation à vous faire part : A partir d'une base de données de plusieurs années, je dois remplir un tableau de bord d'indicateurs mensuels. Comment faire pour remplir toutes les colonnes de mon tableau de bord, en respectant la contraintes de date ?
Veuillez m'excuser pour mes informations pas très claires.. Je posterai dans la journée, en pièce-jointe, mes feuilles excel pour que cela soit davantage concret pour vous.
Merci d'avance pour vos réponses précieuses.
03/05/2016, 13h42
Philippe Tulliez
Bonjour,

Citation:

J'aurais une autre interrogation à vous faire part : A partir d'une base de données de plusieurs années, je dois remplir un tableau de bord d'indicateurs mensuels.

Il faudrait plus d'explications

Citation:

Comment faire pour remplir toutes les colonnes de mon tableau de bord, en respectant la contraintes de date ?

Il y a tellement de manière de procéder qu'il faudrait mieux expliquer
1. Les données en ta possession
2. Comme celles-ci sont elles organisées
3. Ce que tu attends comme résultat en matière d'analyse
Citation:

Je posterai dans la journée, en pièce-jointe, mes feuilles excel pour que cela soit davantage concret pour vous.

C'est parfaitement inutile et pas toujours très appréciés. Une bonne explication écrite et documentée éventuellement par une image illustrant tes propos est largement suffisante pour obtenir une réponse.
03/05/2016, 13h52
Igloobel

Bonjour à tous,

Je suis tout à fait d'accord avec "DeathZarakai" et "Philippe Tulliez" je vous salue au passage :coucou:

Citation:

Envoyé par toune4

... Comment faire pour remplir toutes les colonnes de mon tableau de bord, en respectant la contraintes de date ?
...

Le mieux comme l'a dit Philippe c'est de passer par une variable de type tableau :mrgreen:

Mais comme le dit Philippe

Citation:

Une bonne explication écrite et documentée éventuellement par une image illustrant tes propos est largement suffisante pour obtenir une réponse.

C'est tellement vrai que je :plusser:

A+
03/05/2016, 18h51
toune4

Bonsoir,
Vraiment désolé pour mes explications foireuses..

Ma base de donnée (stockée dans 1 feuille) contient des données sur 3 ans.
Mon tableau de bord contient le calcul de 15 indicateurs à réaliser sur plusieurs périodes (voir les périodes dans le haut de la discussion).

Chaque colonne du tableau de bord représente une période différentes.
Chaque colonne de ma base de donnée représente des variables différentes, nécessaires aux calculs des indicateurs.

Toutes les macros concernant le calcul des indicateurs marchent.
Je cherche à me servir de ma variable date pour répartir les éléments de ma bases dans les colonnes correspondantes à la bonne période.

J'espère avoir été plus clair, et vous remercie d'avance pour votre patience !