Discussion :

[kgbogning]

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

[marot_r]

Bonjour.

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

Code :

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

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 :

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

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+

[Menhir]

@ 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).