Discussion :

[panda78]

Bonjour j'ai un le code suivant et je souhaiterai calculer mon A en fonction de AlphaP et ALphaM qui varie selon la sélection des combobox :

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
Public Function AlphaM(ByVal i As Integer, ByVal n As Byte, ByRef inpt As Range) As Variant
'Dim n As Byte
inpt = Worksheets("Feuil4").Range("A5:L25")
 
If cboTypParoi.Text = "Mur" Then
   If userform1.cboMatParoi.Text = "Béton dense" Then
   n = 3
   ElseIf userform1.cboMatParoi.Text = "Béton léger" Then
   n = 4
   ElseIf userform1.cboMatParoi.Text = "Parpaings pleins" Then
   n = 5
   ElseIf userform1.cboMatParoi.Text = "Parpaings creux" Then
   n = 6
   ElseIf cboMatParoi.Text = "Brique pleine" Then
   n = 8
   ElseIf userform1.cboMatParoi.Text = "Brique creuse" Then
   n = 7
   ElseIf userform1.cboMatParoi.Text = "Pan de bois" Then
   n = 9
   ElseIf userform1.cboMatParoi.Text = "Pan de fer" Then
   n = 10
   ElseIf userform1.cboMatParoi.Text = "Moellon" Then
   n = 11
   End If
End If
   AlphaM = inpt(i, n)
 
End Function

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
Public Function AlphaP(ByVal i As Integer, ByVal n As Byte, ByRef inpt As Range) As Variant
'Dim n As Byte
inpt = Worksheets("Feuil4").Range("A5:N25")
 
If cboTypParoi.Text = "Plancher" Then
   If Public Function AlphaP(ByVal i As Integer, ByVal n As Byte, ByRef inpt As Range) As Variant
'Dim n As Byte
inpt = Worksheets("Feuil4").Range("A5:N25")
 
If cboTypParoi.Text = "Plancher" Then
   If cboNatParoi.Text = "Dalle béton" Or cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or cboNatParoi.Text = "Dallage sur terre plein" _
   Or cboNatParoi.Text = "Bac collaborant" Or cboMatParoi.Text = "Chape béton" Then
   n = 3
   ElseIf cboNatParoi.Text = "Poutrelle métallique" Then
   n = 14
   ElseIf cboNatParoi.Text = "Plancher bois" Then
   n = 13
 
   End If
End If
   AlphaP = inpt(i, n)
 
End Function

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
 
Public Sub NiveauP()
  inpt = Worksheets("Feuil4").Range("A5:L25")
         Oupt = Worksheets("Feuil3").Range("A2:J22")
 
For i = 1 To 21
 
    Alpha_vitre = inpt(i, 12)                   
    PondA = inpt(i, 2)                            
 
    R = Oupt(i, 2)                                
    Lwatot = Oupt(i, 7)                          
    sigmaM = Oupt(i, 1)                           
 
 A = (AlphaP * ((2 * CDbl(UserForm1.TxtLargPlanch.Value) * CDbl(UserForm1.TxtLongPlanch.Value)))) + _
    ((AlphaM * CDbl(UserForm1.TxtHteurPlaf.Value) * 2 * (CDbl(UserForm1.TxtLargPlanch.Value) + CDbl(UserForm1.TxtLongPlanch.Value))) - _
    UserForm1.cboOuvAutLoc.Value - UserForm1.cboSurFen.Value) + _
    (Alpha_vitre * (100 - UserForm1.cboPourcOuv.Value) * UserForm1.cboSurFen.Value / 100) + UserForm1.cboOuvAutLoc.Value + _
    (UserForm1.cboPourcOuv.Value * UserForm1.cboSurFen.Value / 100)
 
''calculs....
end sub

je dois surement m'y prendre mal mais comment faire pour pouvoir appeler correctement les fonctions et bien les définir si ce n'est pas le cas? Merci.

[Philippe Tulliez]

Bonsoir,
Tu écris

Code :

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

A = (AlphaP * ((2 * CDbl(UserForm1.TxtLargPlanch.Value)

AlphaP est une fonction que tu as écrites, enfin je suppose, contenant 3 arguments obligatoires.

Code :

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

Function AlphaP(ByVal i As Integer, ByVal n As Byte, ByRef inpt As Range)

Donc tu dois écrire par exemple

Code :

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

A = AlphaP(50, 10, range("A10"))

Où 50 est l'argument i, 10 n et Range("A10") = inpt

[panda78]

AlphaP et AlphaM et donc A prennent plusieurs valeurs ( 20 au total) pour une configuration quelconque ( sélection des combobox).

Code :

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

inpt = Worksheets("Feuil4").Range("A5:N25")

les valeurs de AlphaP et AlphaM figurent sur une feuille pour différents types de matériaux (alpha est le coefficient d'absorption) et j'aimerai aller chercher les bons pour calculer A. C'est pour ça que j'ai pensé que se serait mieux que se soient des fonctions, mais peut être que je me trompe et qu'il ya un autre moyen. Je sais pas si c'est clair...

[panda78]

J'ai fais comme ceci cette fois mais ça marche toujours 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
Public Function AlphaMur(ByVal i As Integer, ByVal n As Byte, ByRef inpt As Range) As Variant
'Dim n As Byte
inpt = Worksheets("Feuil4").Range("A5:N25")
 
If cboTypParoi.Text = "Mur" Then
   If UserForm1.cboMatParoi.Text = "Béton dense" Then
   n = 3
   ElseIf UserForm1.cboMatParoi.Text = "Béton léger" Then
   n = 4
   ElseIf UserForm1.cboMatParoi.Text = "Parpaings pleins" Then
   n = 5
   ElseIf UserForm1.cboMatParoi.Text = "Parpaings creux" Then
   n = 6
   ElseIf UserForm1.cboMatParoi.Text = "Brique pleine" Then
   n = 8
   ElseIf UserForm1.cboMatParoi.Text = "Brique creuse" Then
   n = 7
   ElseIf UserForm1.cboMatParoi.Text = "Pan de bois" Then
   n = 9
   ElseIf UserForm1.cboMatParoi.Text = "Pan de fer" Then
   n = 10
   ElseIf UserForm1.cboMatParoi.Text = "Moellon" Then
   n = 11
   End If
End If
   AlphaMur = inpt(i, n)
 
End Function
 
'Public Sub verif_formulaire()
'Dim obj As Control
''Dim plein As String
'plein = "Oui"
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function AlphaPlancher(ByVal i As Integer, ByVal n As Byte, ByRef inpt As Range) As Variant
'Dim n As Byte
inpt = Worksheets("Feuil4").Range("A5:N25")
 
If UserForm1.cboTypParoi.Text = "Plancher" Then
   If UserForm1.cboNatParoi.Text = "Dalle béton" Or UserForm1.cboNatParoi.Text = "Dalle béton sur poutrelle métallique" Or UserForm1.cboNatParoi.Text = "Dallage sur terre plein" _
   Or UserForm1.cboNatParoi.Text = "Bac collaborant" Or UserForm1.cboMatParoi.Text = "Chape béton" Then
   n = 3
   ElseIf UserForm1.cboNatParoi.Text = "Poutrelle métallique" Then
   n = 14
   ElseIf UserForm1.cboNatParoi.Text = "Plancher bois" Then
   n = 13
 
   End If
End If
   AlphaPlancher = inpt(i, n)
 
End Function

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
 
Public Sub NiveauP()
Dim Alpha_vitre As Variant, A As Variant, AlphaP As Variant, AlphaM As Variant
Dim LpGlobal As Single, LpTot As Single, S As Variant
Dim Lpvoisin As Variant, Lw As Variant, Lwtrans As Variant, Lv As Variant
Dim PondA As Variant
Dim sigmaM As Variant, Alpha As Variant
Dim LpTotvoisin As Double, LpGlobalvoisin As Double
Dim inpt, Oupt
 
S = CDbl(UserForm1.TxtHteurMit.Value) * CDbl(UserForm1.TxtLargMit.Value)
 
         inpt = Worksheets("Feuil4").Range("A5:N25")
         Oupt = Worksheets("Feuil3").Range("A2:J22")
 
AlphaP = AlphaPlancher(i, n, inpt)
AlphaM = AlphaMur(i, n, inpt)
 
For i = 1 To 21
    'Alpha = 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)
 
    A = (AlphaP * ((2 * CDbl(UserForm1.TxtLargPlanch.Value) * CDbl(UserForm1.TxtLongPlanch.Value)))) + _
    ((AlphaM * CDbl(UserForm1.TxtHteurPlaf.Value) * 2 * (CDbl(UserForm1.TxtLargPlanch.Value) + CDbl(UserForm1.TxtLongPlanch.Value))) - _
    UserForm1.cboOuvAutLoc.Value - UserForm1.cboSurFen.Value) + _
    (Alpha_vitre * (100 - UserForm1.cboPourcOuv.Value) * UserForm1.cboSurFen.Value / 100) + UserForm1.cboOuvAutLoc.Value + _
    (UserForm1.cboPourcOuv.Value * UserForm1.cboSurFen.Value / 100)
 
    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 / Avoisin))
    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
 
Worksheets("Feuil4").Range("A5:L25") = inpt
Worksheets("Feuil3").Range("A2:J22") = Oupt
 
end sub

[Philippe Tulliez]

Bonsoir,
Il faut d'abord comprendre ce que l'on fait.
Pour cela rien de tel que de lire un bon tutoriel, par exemple Les fonctions personnelles dans Excel

[mercatog]

J'appuie la proposition de Corona

Sinon, ci-après une seule fonction pour traiter les cas Mur ou Plancher avec en résultat la valeur cherchée

PS: Fonction pour comprendre et non pour appliquer telle à ton besoin

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
'Paramètres de la fonction:
'Tb: Tableau de données
'i Ligne de données
'Mur: Optionnel, Omise ou True pour cboTypParoi.Text="Mur". False pour cboTypParoi.Text="Plancher"
 
Function Alpha(ByVal Tb As Variant, ByVal i As Byte, Optional Mur As Boolean = True) As Double
Dim Inpt As Variant
Dim Str As String
Dim n As Byte
 
If i <= UBound(Tb, 1) Then
    If Mur Then
        Str = Me.cboMatParoi.Text
        Select Case Str
            Case "Béton dense": n = 3
            Case "Béton léger": n = 4
            Case "Parpaings pleins": n = 5
            Case "Parpaings creux": n = 6
            Case "Brique pleine": n = 8
            Case "Brique creuse": n = 7
            Case "Pan de bois": n = 9
            Case "Pan de fer": n = 10
            Case "Moellon": n = 11
        End Select
    Else
        Str = Me.cboNatParoi.Text
        Select Case Str
            Case "Dalle béton", "Dalle béton sur poutrelle métallique", "Dallage sur terre plein", "Bac collaborant", "Chape béton": n = 3
            Case "Plancher bois": n = 13
            Case "Poutrelle métallique": n = 14
        End Select
 
    End If
    If n > 0 Then Alpha = Tb(i, n)
End If
End Function

Ensuite, j'appelle la fonction dans une procédure test

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim AlphaP As Double, AlphaM As Double
Dim Inpt As Range
Dim i As Byte
 
Inpt = Worksheets("Feuil4").Range("A5:N25")
For i = 1 To 21
    AlphaM = Alpha(Inpt, i)                             'Ou Alpha(Inpt, i, True)
    AlphaP = Alpha(Inpt, i, False)
    Debug.Print i, AlphaP, AlphaM
Next i
End Sub

A toi maintenant de lire et de comprendre ce que tu es entrain de faire.