Discussion :

[rassoul1993]

Bonjour Tout le monde,

je dois créer une fonction personnalisée appelée « absoluteMatrix ». L’unique paramètre
de cette fonction doit être une matrice (une plage de cellules). Elle doit retourner une autre matrice
de même dimension, elle doit donc être utilisée dans Excel comme une fonction matricielle.
Dans la matrice retournée par votre fonction, l’élément de coordonnées (i,j) doit etre égal à la
valeur absolue de l’élément de coordonnées (i,j) du paramètre.
Mais quoi que je fasse je n'y arrive pas. J'ai fais le tour de plein de forum et essayer plein de choses... comme par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function absoluteMatrix(selection As Range)
Dim i, j, imax, jmax As Integer
 
i = 0
j = 0
 
imax = selection.Rows.Count
jmax = selection.Columns.Count
For i = 1 To imax
For j = 1 To jmax
selection(i, j) = Abs(selection(i, j))
Next j
Next i
End Function

Quelqu'un peut m'aider?

[pijaku]

Bonjour,

Un exemple (bien commenté) :

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
Sub test()
'appel de la fonction
Dim Matr() As Variant
    Matr = Matrice(Range("A1:C4"))
    'affichage des résultats
    Range("F1").Resize(UBound(Matr, 1), UBound(Matr, 2)) = Matr
End Sub
 
Function Matrice(Plage As Range) As Variant()
Dim Temp() As Variant
    'création d'une variable temporaire
    'dans laquelle on stocke la "matrice" passée en paramètre
    Temp = Plage.Value
    'Ici les calculs à faire sur la variable Temp
        'Code
    'Restitution pour retour de la fonction
    Matrice = Temp
End Function