Discussion :

[EvaMa]

Bonjour a tous

Sous vba en excel je souhaite creer une fonction , c'est la suivante:

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
Function Hs(T, Dir, H)
    If 5 <= T < 7 Then
 
        If 180 <= Dir < 195 Then
            Hs = 0.7522 * H - 0.0166
 
                ElseIf 195 <= Dir < 210 Then
                    Hs = 0.858 * H - 0.0469
 
                    ElseIf 210 <= Dir < 225 Then
                        Hs = 0.8467 * H - 0.0338
 
                            ElseIf 225 <= Dir < 240 Then
                                Hs = 0.7822 * H - 0.0094
 
                                ElseIf 225 <= Dir < 240 Then
                                    Hs = 0.7822 * H - 0.0094
 
                                    ElseIf 225 <= Dir < 240 Then
                                        Hs = 0.6564 * H + 0.0133
 
                                          ElseIf 240 <= Dir < 270 Then
                                            Hs = 0.5767 * H + 0.0314
 
        End If
            End If
 
End Function

Mon probléme est que cette fonction ne fonctionne que pour la première boucle elle ne prend pas en compte les autres. Avez vous une idée d'ou sa pourrais provenir svp?

[parmi]

Bonjour,

Quand tu mets du code, utilise le bouton # pour le formater et le rendre plus lisible...

Ceci dit, de quelle boucle parles-tu ?

[Jean-Philippe André]

SAlut,

ton test
If 5 <= T < 7 Then

n'est pas ecrit correctement, la bonne syntaxe doit etre

Code :

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

If 5 <= T and T < 7 Then

tous les tests doivent etre rediges de cette facon pour etre valides.

[Philippe Tulliez]

Bonjour,
Plutôt que d'utiliser une suite de If avec des ElseIf qui rend la lecture du code très indigeste, intéresse toi au Select Case qui offre de belles possibilités.

[Invité]

Bonjour,
Dir est une fonction Vba ne pas l'utiliser en variable!

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
Function Hs(T, Dirs, H)
If 5 <= T < 7 Then
    Select Case Dirs
        Case 180 To 194: Hs = 0.7522 * H - 0.0166
        Case 195 To 209: Hs = 0.858 * H - 0.0469
        Case 210 To 224: Hs = 0.8467 * H - 0.0338
        Case 225 To 239: Hs = 0.7822 * H - 0.0094
        Case 240 To 269: Hs = 0.5767 * H + 0.0314
    End Select
End If
End Function
'En revanche je ne comprends pas ce qui suit!
'------------------------------------------
'ElseIf 225 <= Dir < 240 Then
'Hs = 0.7822 * H - 0.0094
'
'ElseIf 225 <= Dir < 240 Then
'Hs = 0.7822 * H - 0.0094
'
'ElseIf 225 <= Dir < 240 Then
'Hs = 0.6564 * H + 0.0133
'
'ElseIf 240 <= Dir < 270 Then
'Hs = 0.5767 * H + 0.0314
'--------------------------------------

[EvaMa]

Bonjour,

Quand tu mets du code, utilise le bouton # pour le formater et le rendre plus lisible...

Ceci dit, de quelle boucle parles-tu ?

bonjour ,
je parle de la premiere avec le Dir compris entre 180 et 195

[EvaMa]

Merci beaucoup sa marche

Bonjour,
Dir est une fonction Vba ne pas l'utiliser en variable!

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
Function Hs(T, Dirs, H)
If 5 <= T < 7 Then
    Select Case Dirs
        Case 180 To 194: Hs = 0.7522 * H - 0.0166
        Case 195 To 209: Hs = 0.858 * H - 0.0469
        Case 210 To 224: Hs = 0.8467 * H - 0.0338
        Case 225 To 239: Hs = 0.7822 * H - 0.0094
        Case 240 To 269: Hs = 0.5767 * H + 0.0314
    End Select
End If
End Function
'En revanche je ne comprends pas ce qui suit!
'------------------------------------------
'ElseIf 225 <= Dir < 240 Then
'Hs = 0.7822 * H - 0.0094
'
'ElseIf 225 <= Dir < 240 Then
'Hs = 0.7822 * H - 0.0094
'
'ElseIf 225 <= Dir < 240 Then
'Hs = 0.6564 * H + 0.0133
'
'ElseIf 240 <= Dir < 270 Then
'Hs = 0.5767 * H + 0.0314
'--------------------------------------

[riaolle]

bonjour ,
je parle de la premiere avec le Dir compris entre 180 et 195

Bonjour,
If n'est pas une boucle, mais une condition