Petit problème déclaration

Version imprimable

Bonjour !

Je suis totalement nouvelle en VBA. J'ai fait une fonction pour m'aider à gagner du temps. Ma fonction comporte beaucoup de boucles et de conditions. Néanmoins tout marche sauf ceci:

Je veux faire une fonction avec deux paramètres en entrée et en sortir une chaînes de caractères par ex 0 1.32 7.89 ... correspondant aux valeurs de mon spectre. Ces valeurs devront apparaître dans une cellule, séparés par un espace par ex (je n'ai pas trouvé de façon plus adapté étant donné que j'ai un peu près 200 fois à exécuter la fonction avec une centaines de points en sortir par fonction).

Ma fonction est longue mais mon seul problème se résume à ce court programme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim Tp As Integer Dim Hs As Double Dim i As Integer Dim tab As Variant Function tab(Hs As Double, Tp As Integer) For i = 1 To 10 tab(i) = i Next i End Function
Est-ce que qqn pourrait gentiment m'aider ??

Bonne journée ! ;)

Caroline

12/11/2010, 15h15
lmb19

Si tu as une cellule A1 avec la valeur 1.89
Si tu as une cellule B1 avec la valeur 3.88
Il te suffit d'écrire la formule suivante dans C1 : =A1&" "&B1
Tu obtiendras dans C1 : 1.89 3.88

Je ne sais pas si c'est bien cela que tu voulais ???..

Bonjour,

Citation:

Envoyé par Caroline_1

Ma fonction est longue mais mon seul problème se résume à ce court programme:

Dim Tp As Integer
Dim Hs As Double

Dim i As Integer
Dim tab As Variant

Function tab(Hs As Double, Tp As Integer)
For i = 1 To 10
tab(i) = i
Next i

End Function

Et le problème est ...?
C'est tellement bien résumé, que je ne vois pas la question! ET comme je suis imprudent, je réponds quand même.
1) tu oublies les déclarations hors de la fonction
2) tu essaies
Code:

1 2 3 4 5 6 7 8 Function fTab(ByVal Hs As Double,ByVal Tp As Integer) as string Dim iTab(1 to 10) as integer For i = 1 To 10 iTab(i) = i Next i fTab = join(iTab, " ") End Function
Sans oublier que Hs et Tp devraient jouer un rôle...

Cordialement,

PGZ

Merci lmb19 mais non ce n'est pas ce que je recherchais. Je suis désolée je me suis en effet mal expliqué. Je vais calculer des valeurs qui seront rentrées dans mon tableau de sortie.

En fait mon réel programme que je n'ai pas mis en entier pour ne pas encombrer est le suivant:

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
Dim Tp As Integer
Dim Hs As Double
Dim Gamma As Integer
Dim Agamma As Double
Dim w As Double
Dim w2 As Double
Dim wp As Double
Dim sigma As Double
Dim S As String
Dim M0 As Double
Dim Hs2 As Double
Dim Agamma2 As Double
'Dim spectrum As String
Dim i As Integer
 
Function spectrum(Hs As Double, Tp As Integer)
 
        'Attribution of value to gamma
        If (Tp / Sqr(Hs) <= 3.6) Then
            Gamma = 5
        End If
        If (Tp / Sqr(Hs) > 3.6) And (Tp / Sqr(Hs) < 5) Then
            Gamma = Exp(5.75 - 1.15 * Tp / Sqr(Hs))
        End If
        If (Tp / Sqr(Hs) >= 5) Then
            Gamma = 1
        End If
        'Agamma value (first)
        Agamma = 1 - 0.287 * Log(Gamma)
        'wp value
        wp = 2 * Pi / Tp
        'Spectrum construction
        For w = 2 * Pi / 18 To 2 * Pi / 7 Step 0.01
            If (w <= wp) Then
                sigma = 0.07
            Else
                sigma = 0.09
            End If
            S(100 * (w - 2 * Pi / 18) + 1) = (5 / 16) * (Hs ^ 2) * (wp ^ (-5)) * Exp((-5 / 4) * ((w / wp) ^ (-4))) * Agamma * Gamma ^ (Exp((-0.5) * (((w - wp) / (sigma * wp)) ^ 2)))
            Next w
        'Calculation of the spectral moments (order 0)
        M0 = 0
        For i = 1 To Len(S)
            M0 = M0 + S(i)
        Next i
        M0 = ((2 * Pi) ^ 0) * M0
        'Check of the Hs
        Hs2 = 4 * Sqr(M0)
        'Recalculation of Agamma
        Agamma2 = (Hs * Agamma) / Hs2
        'Recalculation of the spectrum
        For w2 = 2 * Pi / 18 To 2 * Pi / 7 Step 0.01
            If (w2 <= wp) Then
                sigma = 0.07
            Else
                sigma = 0.09
        End If
        spectrum(100 * (w2 - 2 * Pi / 18) + 1) = (5 / 16) * (Hs ^ 2) * (wp ^ (-5)) * Exp((-5 / 4) * ((w2 / wp) ^ (-4))) * Agamma2 * Gamma ^ (Exp((-0.5) * (((w2 - wp) / (sigma * wp)) ^ 2)))
        Next w2
End Function

Merci aussi PGZ pour ta réponse. Mais j'ai essayé ta syntaxe en rentrant ta fonction et en faisant un test en mettant =fTab(une valeur;une autre) et cela ne marche pas. Tu saurais ce qui ne va pas avec ton idée?

Re,

En effet, il y avait un petit pb. Au temps pour moi :

Code:

1
2
3
4
5
6
7
8
9
10
11
Function fTab(ByVal Hs As Double, ByVal Tp As Integer) As String
Dim i As Integer
Dim iTab(1 To 10) As String
 
For i = 1 To 10
    iTab(i) = i
Next i
 
fTab = Join(iTab, " ")
 
End Function

Cette fois, j'ai vérifié.

Cordialement,

PGZ

12/11/2010, 21h00
Caroline_1

Merci beaucoup ! C'était rapide et très sympa à vous deux.