lourdeur dans form

**panda78** · 31/07/2012, 16h40

Bonjour,
j'ai un soucis concernant la lourdeur de mon programme je répète plusieurs fois la même procédure dans mon form à une valeur près :

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
Dim Alpha As Variant, Alpha_vitre As Variant, A As Variant
Dim LpGlobal As Single, LpTot As Single, S As Single
Dim Lp As Variant, Lpvoisin As Variant, Lw As Variant, Lwtrans As Variant, Lv As Variant
Dim PondA As Variant
Dim sigmaM As Variant
J = 1
         Lv = 0
         Lwtrans = 0
         Lpvoisin = 0
         S = CDbl(UserForm1.TextBox4.Value) * CDbl(UserForm1.TextBox5.Value)
         
        For i = 5 To 25
        
         Alpha_béton = Worksheets("Feuil4").Range("C" & i)         
         Alpha_vitre = Worksheets("Feuil4").Range("L" & i)
        
         PondA = Worksheets("Feuil4").Range("B" & i)
         R = Worksheets("Feuil3").Range("B" & i - 3)
         Lwatot = Worksheets("Feuil3").Range("G" & i - 3)
         sigmaM = Worksheets("Feuil3").Range("A" & i - 3)
         
         A = Alpha_béton * ((2 * CDbl(UserForm1.TextBox7.Value) * CDbl(UserForm1.TextBox8.Value)) + (2 * CDbl(UserForm1.TextBox6.Value) * (CDbl(UserForm1.TextBox7.Value) + CDbl(UserForm1.TextBox8.Value))) - ComboBox9.Value - ComboBox12.Value) + (Alpha_vitre * (100 - ComboBox13.Value) * ComboBox12.Value / 100) + ComboBox9.Value + (ComboBox13.Value * ComboBox12.Value / 100)
         Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
         LpTot = LpTot + 10 ^ (0.1 * (Lp + PondA))
         
         Lw = Lp + (10 * (Log(S) / Log(10)))
         Lwtrans = Lw - R
         Lv = Lwtrans - (10 * Log(sigmaM * S) / Log(10))
         Lpvoisin = Lv + (10 * Log(4 * sigmaM * S / Avoisin) / Log(10))
         LpTotvoisin = LpTotvoisin + 10 ^ (0.1 * (Lpvoisin + PondA))
        
        J = J + 1
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 9).Value = Lp
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 10).Value = Lpvoisin
        Next i
       
        LpGlobal = 10 * Log(LpTot) / Log(10)
        LpGlobalvoisin = 10 * Log(LpTotvoisin) / Log(10)

je cherche un moyen pour ne pas répéter cette procedure une bonne dizaine de fois d'autant plus que seul la partie soulignée en gras change selon que je selectionne dans un combobox de l'userform du béton ou de la brique etc...
j'ai essayé en recopiant ce code dans un module et en l'apellant dans le form mais ça Bug vu que le Alpha doit être inclu dans la boucle.

**mercatog** · 31/07/2012, 19h54

Plus de précision est nécessaire pour pouvoir t'orienter. (en plus ton code est incomplet)
Sinon, essaies de travailler avec des variables tableaux.

Exemple:

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
Dim Alpha_Beton As Double, Alpha_vitre As Double, A As Double, PondA As Double, sigmaM As Double, LpGlobalvoisin As Double
Dim Lp As Double, Lpvoisin As Double, Lw As Double, Lwtrans As Double, Lv As Double, R As Double
Dim LpGlobal As Double, LpTot As Double, S As Double, LwaTot As Double, Avoisin As Double, LpTotvoisin As Double
Dim i As Integer
Dim Inpt, Oupt
 
 
'S = CDbl(UserForm1.TextBox4.Value) * CDbl(UserForm1.TextBox5.Value)
'A = Alpha_béton * ((2 * CDbl(UserForm1.TextBox7.Value) * CDbl(UserForm1.TextBox8.Value)) + (2 * CDbl(UserForm1.TextBox6.Value) * (CDbl(UserForm1.TextBox7.Value) + CDbl(UserForm1.TextBox8.Value))) - ComboBox9.Value - ComboBox12.Value) + (Alpha_Vitre * (100 - ComboBox13.Value) * ComboBox12.Value / 100) + ComboBox9.Value + (ComboBox13.Value * ComboBox12.Value / 100)
S = 12.89 / 9.67
A = 0.056123
 
Inpt = Worksheets("Feuil4").Range("A5:L25")
Oupt = Worksheets("Feuil3").Range("A2:J22")
 
For i = 1 To 21
    Alpha_Beton = Inpt(i, 3)                       'Worksheets("Feuil4").Range("C" & i)
    Alpha_vitre = Inpt(i, 12)                      'Worksheets("Feuil4").Range("L" & i)
    PondA = Inpt(i, 2)                             'Worksheets("Feuil4").Range("B" & i)
 
    R = Oupt(i, 2)                                 'Worksheets("Feuil3").Range("B" & i - 3)
    LwaTot = Oupt(i, 7)                            'Worksheets("Feuil3").Range("G" & i - 3)
    sigmaM = Oupt(i, 1)                            'Worksheets("Feuil3").Range("A" & i - 3)
 
    Lp = LwaTot + 6 - 10 * Logd(A)
    LpTot = LpTot + 10 ^ (0.1 * (Lp + PondA))
 
    Lw = Lp + 10 * Logd(S)
    Lwtrans = Lw - R
    Lv = Lwtrans - 10 * Logd(sigmaM * S)
    Lpvoisin = Lv + 10 * Logd(4 * sigmaM * S / A) 'voisin)
    LpTotvoisin = LpTotvoisin + 10 ^ (0.1 * (Lpvoisin + PondA))
 
    Oupt(i, 9) = Lp                                'ThisWorkbook.Worksheets("Feuil3").Cells(j, 9).Value = Lp
    Oupt(i, 10) = Lpvoisin                         'ThisWorkbook.Worksheets("Feuil3").Cells(j, 10).Value = Lpvoisin
Next i
LpGlobal = 10 * Logd(LpTot)
LpGlobalvoisin = 10 * Logd(LpTotvoisin)
 
Worksheets("Feuil4").Range("A5:L25") = Inpt
Worksheets("Feuil3").Range("A2:J22") = Oupt

PS: vérifie la ligne 31. je ne vois pas d'où sort la variable Avoisin

EDIT: Oups oublié la fonction Logd utilisée dans le code

Code :

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

1
2
3
4
Private Function Logd(ByVal T As Double) As Double
 
If T > 0 Then Logd = Log(T) / Log(10)
End Function

**panda78** · 31/07/2012, 21h33

Avoisin est une variable que je rentre au clavier elle est de type integer

**mercatog** · 31/07/2012, 21h34

Il faudrait mettre le code en entier relatif à la procédure en question.

Sinon, j'ai édité mon post

**panda78** · 31/07/2012, 22h57

ok dans mon form voilà le 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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Private Sub CommandButton1_Click()
Dim Alpha_béton As Variant, Alpha_brique_pleine As Variant, Alpha_brique_creuse As Variant, Alpha_vitre As Variant, A As Variant
Dim LpGlobal As Single, LpTot As Single, S As Single
Dim Lp As Variant, Lpvoisin As Variant, Lw As Variant, Lwtrans As Variant, Lv As Variant
Dim PondA As Variant
Dim sigmaM As Variant
J = 1
S = CDbl(UserForm1.TextBox4.Value) * CDbl(UserForm1.TextBox5.Value)
 
   If ComboBox1.Text = "BRH" And ComboBox2.Text = "Béton dense" And ComboBox4.Text = "Mur" And ComboBox5.Text = "Refend" Then
 
         ThisWorkbook.Worksheets("Feuil3").Range("I28").Value = (ComboBox6.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B2").Value
         ThisWorkbook.Worksheets("Feuil3").Range("K28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("I28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
 
 
 
         rayonnement
         rayonnementM
 
         Lv = 0
         Lwtrans = 0
         Lpvoisin = 0
        For i = 5 To 25 '<< A Ajuster à la plage ...
 
         Alpha_béton = Worksheets("Feuil4").Range("C" & i)
         Alpha_vitre = Worksheets("Feuil4").Range("L" & i)
         'Alpha_porte_bois = Worksheets("Feuil4").Range("M" & i)
         PondA = Worksheets("Feuil4").Range("B" & i)
         R = Worksheets("Feuil3").Range("B" & i - 3)
         Lwatot = Worksheets("Feuil3").Range("G" & i - 3)
         sigmaM = Worksheets("Feuil3").Range("A" & i - 3)
 
         A = Alpha_béton * ((2 * CDbl(UserForm1.TextBox7.Value) * CDbl(UserForm1.TextBox8.Value)) + (2 * CDbl(UserForm1.TextBox6.Value) * (CDbl(UserForm1.TextBox7.Value) + CDbl(UserForm1.TextBox8.Value))) - ComboBox9.Value - ComboBox12.Value) + (Alpha_vitre * (100 - ComboBox13.Value) * ComboBox12.Value / 100) + ComboBox9.Value + (ComboBox13.Value * ComboBox12.Value / 100)
         Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
         LpTot = LpTot + 10 ^ (0.1 * (Lp + PondA))
 
         Lw = Lp + (10 * (Log(S) / Log(10)))
         Lwtrans = Lw - R
         Lv = Lwtrans - (10 * Log(sigmaM * S) / Log(10))
         Lpvoisin = Lv + (10 * Log(4 * sigmaM * S / Avoisin) / Log(10))
         LpTotvoisin = LpTotvoisin + 10 ^ (0.1 * (Lpvoisin + PondA))
         J = J + 1
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 9).Value = Lp
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 10).Value = Lpvoisin
        Next i
        LpGlobal = 10 * Log(LpTot) / Log(10)
        LpGlobalvoisin = 10 * Log(LpTotvoisin) / Log(10)
         Range("Feuil3!I23") = LpGlobal
         Range("Feuil3!J23") = LpGlobalvoisin
         UserForm1.TextBox1.Value = Round(LpGlobalvoisin, 2) & "  dB(A)"
 
    ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Béton léger" And ComboBox4.Text = "Mur" And ComboBox5.Text = "Refend" Then
 
        ThisWorkbook.Worksheets("Feuil3").Range("I28").Value = (ComboBox6.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B3").Value
        ThisWorkbook.Worksheets("Feuil3").Range("K28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("I28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
 
 
 
        rayonnement
        rayonnementM
 
         Lv = 0
         Lwtrans = 0
         Lpvoisin = 0
        For i = 5 To 25 '<< A Ajuster à la plage ...
 
         Alpha_béton = Worksheets("Feuil4").Range("D" & i)
         Alpha_vitre = Worksheets("Feuil4").Range("L" & i)
 
         PondA = Worksheets("Feuil4").Range("B" & i)
         R = Worksheets("Feuil3").Range("B" & i - 3)
         Lwatot = Worksheets("Feuil3").Range("G" & i - 3)
         sigmaM = Worksheets("Feuil3").Range("A" & i - 3)
 
         A = Alpha_béton * ((2 * CDbl(UserForm1.TextBox7.Value) * CDbl(UserForm1.TextBox8.Value)) + (2 * CDbl(UserForm1.TextBox6.Value) * (CDbl(UserForm1.TextBox7.Value) + CDbl(UserForm1.TextBox8.Value))) - ComboBox9.Value - ComboBox12.Value) + (Alpha_vitre * (100 - ComboBox13.Value) * ComboBox12.Value / 100) + ComboBox9.Value + (ComboBox13.Value * ComboBox12.Value / 100)
         Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
         LpTot = LpTot + 10 ^ (0.1 * (Lp + PondA))
 
         Lw = Lp + (10 * (Log(S) / Log(10)))
         Lwtrans = Lw - R
         Lv = Lwtrans - (10 * Log(sigmaM * S) / Log(10))
         Lpvoisin = Lv + (10 * Log(4 * sigmaM * S / Avoisin) / Log(10))
         LpTotvoisin = LpTotvoisin + 10 ^ (0.1 * (Lpvoisin + PondA))
 
         J = J + 1
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 9).Value = Lp
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 10).Value = Lpvoisin
 
        Next i
        LpGlobal = 10 * Log(LpTot) / Log(10)
        LpGlobalvoisin = 10 * Log(LpTotvoisin) / Log(10)
 
         Range("Feuil3!I23") = LpGlobal
         Range("Feuil3!J23") = LpGlobalvoisin
 
         UserForm1.TextBox1.Value = Round(LpGlobalvoisin, 2) & "  dB(A)"
 
 
 
    ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Parpaings pleins" And ComboBox4.Text = "Mur" Then
'etc...
 end sub

rayonnement et rayonnementM sont des procédures que j'appelle pour calculer sigmaM ,Lwtot et R dont j'envoi les valeurs dans des colonnes que je vais chercher par la suite pour faire ma boucle. Si je dois répéter à chaque fois le code principal ça devient très lourd! Merci du coup de main.

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
 ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Brique creuse" And ComboBox4.Text = "Mur" Then
 
        ThisWorkbook.Worksheets("Feuil3").Range("I28").Value = (ComboBox6.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B7").Value
        ThisWorkbook.Worksheets("Feuil3").Range("K28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("I28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
 
 
        rayonnement
        rayonnementM
 
         Lv = 0
         Lwtrans = 0
         Lpvoisin = 0
        For i = 5 To 25 '<< A Ajuster à la plage ...
 
         Alpha_brique_creuse = Worksheets("Feuil4").Range("G" & i)
         Alpha_vitre = Worksheets("Feuil4").Range("L" & i)
 
         PondA = Worksheets("Feuil4").Range("B" & i)
         R = Worksheets("Feuil3").Range("B" & i - 3)
         Lwatot = Worksheets("Feuil3").Range("G" & i - 3)
         sigmaM = Worksheets("Feuil3").Range("A" & i - 3)
 
         A = Alpha_brique_creuse * ((2 * CDbl(UserForm1.TextBox7.Value) * CDbl(UserForm1.TextBox8.Value)) + (2 * CDbl(UserForm1.TextBox6.Value) * (CDbl(UserForm1.TextBox7.Value) + CDbl(UserForm1.TextBox8.Value))) - ComboBox9.Value - ComboBox12.Value) + (Alpha_vitre * (100 - ComboBox13.Value) * ComboBox12.Value / 100) + ComboBox9.Value + (ComboBox13.Value * ComboBox12.Value / 100)
         Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
         LpTot = LpTot + 10 ^ (0.1 * (Lp + PondA))
 
         Lw = Lp + (10 * (Log(S) / Log(10)))
         Lwtrans = Lw - R
         Lv = Lwtrans - (10 * Log(sigmaM * S) / Log(10))
         Lpvoisin = Lv + (10 * Log(4 * sigmaM * S / Avoisin) / Log(10))
         LpTotvoisin = LpTotvoisin + 10 ^ (0.1 * (Lpvoisin + PondA))
 
         J = J + 1
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 9).Value = Lp
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 10).Value = Lpvoisin
 
        Next i
        LpGlobal = 10 * Log(LpTot) / Log(10)
        LpGlobalvoisin = 10 * Log(LpTotvoisin) / Log(10)
 
         Range("Feuil3!I23") = LpGlobal
         Range("Feuil3!J23") = LpGlobalvoisin
 
         UserForm1.TextBox1.Value = Round(LpGlobalvoisin, 2) & "  dB(A)"
 
        For i = 1 To 10
         If ThisWorkbook.Worksheets("Feuil3").Cells(i, 9).Value = "" Then Cells(i, 9).Value = " Lp"
         If ThisWorkbook.Worksheets("Feuil3").Cells(i, 10).Value = "" Then Cells(i, 10).Value = " Lpvoisi"
        Next i
 
   ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Pan de bois" Then
'etc...

**mercatog** · 31/07/2012, 23h08

La lourdeur de ton code vient des allez - retours incessants entre vba et les feuilles excel.
Je vois que mes efforts n'ont pas été pris en considération dans ton nouveau code. C'est à dire que je suis à côté de la plaque.

Peut être il ne reste que joindre le fichier pour revoir le code.

**panda78** · 01/08/2012, 14h05

Merci pour vos conseils.

mais j'ai pas bien compris vos conseils 1,2 et 4
j'ai compris l'histoire des variables tableaux c'est déjà un bon début ;-)

les sous routine c'est une sorte de code que j'écris dans un module et que j'apelle ensuite dans mon form pour ne pas répéter à chaque fois le code dans différents cas de figure?

ok j'ai compris l'histoire des boucles (conseil n°2) , reste à comprendre les conseils n°1 et n°4

**mercatog** · 01/08/2012, 14h32

1.
Au lieu de

Code :

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

1
2
3
4
5
6
7
With Me.ComboBox1
    .AddItem "Item1"
    .AddItem "Item2"
    .AddItem "Item3"
    .AddItem "Item4"
    .AddItem "Item5"
End With

Sur une feuille (disons Config) on inscrit nos items. Notre code sera donc

Code :

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

1
2
3
4
5
6
Dim LastLig As Long
 
With Worksheets("Config")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    Me.ComboBox1.RowSource = "'" & .Name & "'!A2:A" & LastLig
End With

Avec le 2ème code, si on ajoute ou supprime ou modifie un élément de la feuille Config, la mise à jour sera automatique Alors que si on écrit en dur les éléments dans le code, on doit à chaque changement modifier notre code.

4. Regarde dans ton code principal les parties qui se répétent. un exemple simple qui est passé inapperçu
Pour le logarithe de base 10 tu passais partout par

Code :

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

1
2
X=Log(Y)/Log(10)
A=Log(B)/Log(10)

j'avais proposé une fonction Logd

Code :

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

1
2
3
4
Private Function Logd(ByVal T As Double) As Double
 
If T > 0 Then Logd = Log(T) / Log(10)
End Function

Et dorénavant, tu peux faire

Code :

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

1
2
X=Logd(Y)
A=Logd(B)

**panda78** · 01/08/2012, 14h51

ook j'ai compris, merci beaucoup pour votre aide.

lourdeur dans form

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager