bonjour , je suis nouveau sur la plate forme et je sollicite votre aide.
En fait j'ai débuté le VBA il y a 2 jours dans le cadre d'un petit outils de travail que je souhaite mettre sur pieds.
J'ai du mal à exploitée une donnée de type range, car mes résultats sortent sous forme de matrice (n ligne , 1 colonne)
j'ai crée une fonction pour effectuer un calcul qui devrait me renvoyer des résultats sous forme de matrice que je dois extraire et exploiter dans une autre fonction. je n'arrive pas déjà à extraire et afficher le résultat de la dite fonction
vous trouver mes lignes de codes ci dessous , merci d'avance pour votre aide ,cdlt

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 mu(ByVal x As Range, ByVal al As Single, ByVal lon As Single)
 
'Tailles matrices
Dim l As Long, C As Long
Dim i As Integer
l = x.Rows.Count
C = x.Columns.Count
ReDim mom(l, 1) As Range
For i = 1 To l
    If y <= x(i) Then
    Set mom(i, 1) = (lon / 2 - x(i)) * (lon / 2 - al) / (lon)
    Else
    Set mom(i, 1) = (lon / 2 + x(i)) * (lon / 2 - al) / (lon)
    End If
Next i
mu = mom
End Function