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

Version imprimable

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

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

Une alternative (non testée)

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

Bonjour,

Mon essai à tester :

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

06/08/2012, 09h43
panda78

ça marche merci beaucoup? j'ai utilisé le code de Mercatog. Je vais continuer mon code en utilisant ce principe en espérant que je ne rencontre pas de difficulté. Merci !