méthode d’allègement d'un code.

**panda78** · 06/08/2012, 00h24

Bonsoir,
je souhaiterai recourir à une technique pour alléger mon code que voici:

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
 
Private Sub CommandButton1_Click()
 
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)
 
 
         ThisWorkbook.Worksheets("Feuil3").Range("J28").Value = (ComboBox3.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B2").Value
         ThisWorkbook.Worksheets("Feuil3").Range("L28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("J28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
         ThisWorkbook.Worksheets("Feuil3").Range("N28").Value = ThisWorkbook.Worksheets("Feuil2").Range("C2").Value
         ThisWorkbook.Worksheets("Feuil3").Range("H28").Value = ThisWorkbook.Worksheets("Feuil2").Range("D2").Value
         rayonnement
         rayonnementM
         NiveauP
 
   ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Brique pleine" And ComboBox4.Text = "Mur" Then
 
        ThisWorkbook.Worksheets("Feuil3").Range("J28").Value = (ComboBox3.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B6").Value
        ThisWorkbook.Worksheets("Feuil3").Range("L28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("J28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
        ThisWorkbook.Worksheets("Feuil3").Range("N28").Value = ThisWorkbook.Worksheets("Feuil2").Range("C6").Value
        ThisWorkbook.Worksheets("Feuil3").Range("H28").Value = ThisWorkbook.Worksheets("Feuil2").Range("D6").Value
        rayonnement
        rayonnementM
        NiveauP
 
   ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Brique creuse" And ComboBox4.Text = "Mur" Then
 
        ThisWorkbook.Worksheets("Feuil3").Range("J28").Value = (ComboBox3.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B7").Value
        ThisWorkbook.Worksheets("Feuil3").Range("L28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("J28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
        ThisWorkbook.Worksheets("Feuil3").Range("N28").Value = ThisWorkbook.Worksheets("Feuil2").Range("C7").Value
        ThisWorkbook.Worksheets("Feuil3").Range("H28").Value = ThisWorkbook.Worksheets("Feuil2").Range("D7").Value
        rayonnement
        rayonnementM
        NiveauP
 
   ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Pan de bois" And ComboBox4.Text = "Mur" Then
 
        ThisWorkbook.Worksheets("Feuil3").Range("J28").Value = (ComboBox3.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B8").Value
        ThisWorkbook.Worksheets("Feuil3").Range("L28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("J28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
        ThisWorkbook.Worksheets("Feuil3").Range("N28").Value = ThisWorkbook.Worksheets("Feuil2").Range("C8").Value
        ThisWorkbook.Worksheets("Feuil3").Range("H28").Value = ThisWorkbook.Worksheets("Feuil2").Range("D8").Value
        rayonnement
        rayonnementM
        NiveauP
 
   ElseIf ComboBox1.Text = "BRH" And ComboBox2.Text = "Pan de fer" And ComboBox4.Text = "Mur" Then
 
        ThisWorkbook.Worksheets("Feuil3").Range("J28").Value = (ComboBox3.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B9").Value
        ThisWorkbook.Worksheets("Feuil3").Range("L28").Value = (ThisWorkbook.Worksheets("Feuil3").Range("J28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
        ThisWorkbook.Worksheets("Feuil3").Range("N28").Value = ThisWorkbook.Worksheets("Feuil2").Range("C9").Value
        ThisWorkbook.Worksheets("Feuil3").Range("H28").Value = ThisWorkbook.Worksheets("Feuil2").Range("D9").Value
        rayonnement
        rayonnementM
        NiveauP
   End If
 
 
 
 
End Sub

rayonnement , rayonnementM et NiveauP sont des procédures dans le module1 que je fais appelle ici dans le module de l'userform. La feuille 2 contient les valeurs que je fais chercher pour mes calculs et j'envoi le résultat dans la feuille3 à titre facultatif pour avoir juste une idée de la cohérence de sa valeur . Voilà est il possible d'utiliser une autre méthode pour faire appel à ces valeurs et continuer le module de l'userform en l’allégeant ( d'autant plus que j'aurais d'autres conditions et ça risque d'être à nouveau lourd)? Merci

**mercatog** · 06/08/2012, 01h15

Une alternative (non testée)

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
Private Sub CommandButton1_Click()
Dim U As Double, V As Double, W As Double
Dim Flag As Boolean
Dim X As Variant
Dim n As Byte
 
If ComboBox1.Text = "BRH" And ComboBox4.Text = "Mur" Then
    If ComboBox2.Text = "Béton dense" And ComboBox5.Text = "Refend" Then
        V = 0.01 * ComboBox6.Value
        n = 2
    ElseIf ComboBox2.Text = "Brique pleine" Then
        n = 6
    ElseIf ComboBox2.Text = "Brique creuse" Then
        n = 7
    ElseIf ComboBox2.Text = "Pan de bois" Then
        n = 8
    ElseIf ComboBox2.Text = "Pan de fer" Then
        n = 9
    Else
        Flag = True
    End If
Else
    Flag = True
End If
 
If Not Flag Then
    With ThisWorkbook.Worksheets("Feuil2")
        U = .Range("B2").Value
        X = .Range("B" & n & ":D" & n).Value
    End With
    W = 0.01 * ComboBox3
 
    With ThisWorkbook.Worksheets("Feuil3")
        If V > 0 Then
            .Range("I28").Value = V * X(1, 1)
            .Range("K28").Value = V
        End If
        .Range("J28").Value = W * X(1, 1)
        If U <> 0 Then .Range("L28").Value = W * X(1, 1) / U
        .Range("N28").Value = X(1, 2)
        .Range("H28").Value = X(1, 3)
    End With
 
    rayonnement
    rayonnementM
    NiveauP
End If
End Sub

**Bear the french** · 06/08/2012, 01h53

Bonjour,

Mon essai à tester :

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
Private Sub CommandButton1_Click()
Dim x As Integer
x = 0
If ComboBox1.Text = "BRH" And ComboBox4.Text = "Mur" Then
    Select Case ComboBox2.Text
        Case "Béton dense": x = 2
        Case "Brique pleine": x = 6
        Case "Brique creuse": x = 7
        Case "Pan de bois": x = 8
        Case "Pan de fer": x = 9
    End Select
End If
If x <> 0 Then
    With ThisWorkbook.Worksheets("Feuil3")
        If x = 2 And ComboBox5.Text = "Refend" Then
             .Range("I28").Value = (ComboBox6.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B" & x).Value
             .Range("K28").Value = (.Range("I28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B" & x).Value)
        End If
        .Range("J28").Value = (ComboBox3.Value) * 0.01 * ThisWorkbook.Worksheets("Feuil2").Range("B" & x).Value
        .Range("L28").Value = (.Range("J28").Value) / (ThisWorkbook.Worksheets("Feuil2").Range("B2").Value)
        .Range("N28").Value = ThisWorkbook.Worksheets("Feuil2").Range("C" & x).Value
        .Range("H28").Value = ThisWorkbook.Worksheets("Feuil2").Range("D" & x).Value
        rayonnement
        rayonnementM
        NiveauP
    End With
End If
End Sub

Bertrand

méthode d’allègement d'un code.

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager