Exploitation des données de type Range

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:

---

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

---

Bonjour.

Pour retourner un objet eb VBA il faut faire quelque chose comme :

Code:

---

1 2 3 4

Function mu(ByVal x As Range, ByVal al As Single, ByVal lon As Single) as Range 'C'est une bonne habitude de dire au compliateur quel est le type du resultat meme si c'est Variant. 'Ici du code de calcul set mu=Result: set result=nothing end function

---

pour afficher le contenu d'une range (jamais fait avec un objet Range relie a aucune feuille) tu peux faire :

Code:

---

1 2 3

dim cellule as range:for each cellule in TaRange.Cells debug.print cellule.row, cellule.column, cellule.value: doevents next cellule

---

Affiche le contenu dans la fenetre d'execution immediate.
Cette fenetre est accessible en appuyant sur les touches [ctrl][g] quand on est dans l'editeur de code.

Et au niveau efficacite, generalement Excel bat VBA donc tu aurais sans doute interet a faire ton calcul dans une feuille plutot que dans du code.

A+

@ kgbogning : Dans ton code, tu confonds la référence de la cellule et son contenu.
Quand on déclarer une variable de type Range, c'est juste une boite vide et sans étiquette.
Un Set permet d'affecter un objet référence à une variable. Par exemple ici, ça permettrait de dire quelle cellule représente la variable Range.
Ensuite, on peut utiliser cette variable pour mettre un contenu (une valeur) dans la cellule concernée. Mais pour ça on n'utilise pas de Set.

Cela dit, dans ton cas, tu n'as pas besoin de variable Range mais d'une simple variable matrice.
Un type Range désigne des cellules. Or, si je ne me trompe pas, tu veux renvoyer une valeur et non placer des valeur dans des cellules.

Malheureusement, n'ayant jamais réalisé de Function VBA renvoyant une matrice de valeur, je ne peux pas t'aider plus sur ce sujet.
Je peux juste te dire que ce genre d'acrobatie, c'est un peu osé pour débuter le VBA. Avant de faire des loopings, il faut apprendre le vol à l'horizontal. ;)
Il serait plus simple de faire une simple macro Sub qui, une fois déclenchée, place le résultat dans une zone de cellule définie.

Autre petit détail : Ton "For To" indique que la variable "i" va de 1 à "l". "i" peut donc avoir la valeur de "l". Donc, si tu définit "l" de type Long, il faut aussi définir "i" de type Long (au moins).