Discussion :

[crimetime]

Bonjour à tous,

J'ai un petit soucis avec mon code vba.
Je souhaite réaliser une fonction recevant 3 doubles et un tableau et renvoyant un tableau.

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
 
Function Calc(Sqv As Double, Total As Double, Exo As Double, TableauVal() As Variant) As Variant()
    Dim I As Integer
    Dim Cap As Variant 
 
    I = 1
    For I = 1 To UBound(TableauVal, 1)
 
        Cap = TableauVal(I, 2)*0.389 +3*Sqv
        CalC(I, 1) = Cap
 
    Next I
 
End Function
 
Sub App()
 
Dim Plage() As Variant, test As Variant
 
Plage  = Feuil3.Range("B4:E16").Value
test = Calc(12,7.8,6,Plage)
 
 
EndSub

Le problème est qu'il ne veut pas me mettre la valeur dans le tableau de la fonction Calc :

Code :

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

Calc (I,1) = Cap

Je pensais que ce code remplissait une case... J'ai une erreur du style "Un appel de fonction de la parti gauche de l' affectation doit renvoyer Variant ou Object.

EN mode pas à pas je vois bien pourtant que le tableau que je lui envoit est bien lu.
Je ne vois pas trop ce qu'il attend mais en tout cas je m'y prend mal pour le remplir

Merci et Bonne journée

[jfontaine]

Bonjour,

Peut être comme cela

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
Function Calc(Sqv As Double, Total As Double, Exo As Double, TableauVal() As Variant) As Variant()
    Dim I As Integer
    Dim Cap() As Variant
 
    ReDim Cap(UBound(TableauVal, 1))
    I = 1
    For I = 1 To UBound(TableauVal, 1)
 
        Cap(I - 1) = TableauVal(I, 2) * 0.389 + 3 * Sqv
 
    Next I
 
    Calc = Cap
 
End Function

[crimetime]

Bonjour,

Merci pour votre réponse.

J'ai testé cela et ça fonctionne, mais mon problème est que je n'arrive pas récupérer le tableau que la fonction renvoie.

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
Sub App()
 
Dim Plage() As Variant, test As Variant
 
Plage  = Feuil3.Range("B4:E16").Value
Redim test(Plage(test, 1))
test = Calc(12,7.8,6,Plage)
 
 
For I = 1 To UBound(test, 1)
 
       Feuil1.Range("D" & I) = test(I)
 
 
    Next I
 
EndSub

J'ai mis un 'for' pour l'exemple car je n'arrive pas à récupérer la dimension de 'test'. "l'indice n'appartient pas à la sélection"

Ya un truc qui m'echappe


Bonne soirée et merci

[mercatog]

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
Function Calc(Sqv As Double, Total As Double, Exo As Double, TableauVal As Variant) As Variant
Dim i As Integer
Dim Cap() As Variant
 
ReDim Cap(1 To UBound(TableauVal, 1))
For i = 1 To UBound(TableauVal, 1)
    Cap(i) = TableauVal(i, 2) * 0.389 + 3 * Sqv
Next i
Calc = Cap
End Function
 
Sub App()
Dim Tb, Test
 
Tb = Feuil3.Range("B4:E16").Value
Test = Calc(12, 7.8, 6, Tb)
Feuil1.Range("D1:D" & UBound(Test)) = Application.Transpose(Test)
End Sub

Avec TableauVal est une variable tableau

[crimetime]

Merci beaucoup!!!

Bonne soirée