Fonctions VBA renvoyant des tableaux dans Excel

Version imprimable

19/08/2006, 21h06
phil_75

Fonctions VBA renvoyant des tableaux dans Excel

Bonjour

J'ai essayé de chercher sur le forum la réponse à la question suivante, sans succès : j'aimerais créer des fonctions VBA qui renvoient des tableaux dans les feuilles excel et remplissent des plages de cellules.

Un exemple : si j'ai une matrice 2*2 dans la plage A1:B2, j'aimerais créer une fonction par exemple MonInverse en VBA, et j'écris quelque chose comme '{=MonInverse(A1:B2)}' dans la plage A4:B5 et magie, l'inverse de la matrice s'affiche. Peut-être même mieux : j'écris dans la case A4 '=MonInverse(A1:B2)' et la plage A4:B5 reçoit l'inverse de la matrice.

L'idée serait ensuite de faire des traitements plus personnalisés sur des tableaux, mais l'esprit restera le même...
J'arrive déjà à effectuer ce genre d'opération via des sub's VBA, mais je trouve que c'est beaucoup moins souple que des formules à écrire directement dans Excel.

Est ce que quelqu'un à une idée sur la question ? Est-ce possible ?

Merci pour vos réponses.

bonsoir

tu peux tester cette fonction, à placer dans la cellule F8

=INVERSEPLAGE($B$2:$F$4;$F$8;F8)

$B$2:$F$4 correspond à la plage cible à inverser

$F$8 : tu y indiques la référence de la 1ere cellule qui correspond a l'angle supérieur gauche de la nouvelle plage de cellules, pour la transposition

F8 est la cellule contenant cette fonction

(attention à bien respecter les references absolues $ et relatives)

Ensuite tu étires la fonction sur la droite, puis vers le bas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
'"Plage" est la plage de cellules à transposer
'"Base" est la 1ere cellule dans l'angle supérieur gauche pour
'la transposition de la plage
'"Act" contient la reference de la cellule contenant cette fonction
Public Function InversePlage(Plage As Range, Base As Range, Act As Range)
    Dim xB As Double, xA As Double
    Dim yB As Byte, yA As Byte
    Dim i As Integer, j As Integer
 
    xB = Base.Row
    yB = Base.Column
 
    xA = Act.Row
    yA = Act.Column
 
    If Intersect(Range(Cells(xB, yB), Cells(xB + Plage.Rows.Count, _
                yB + Plage.Columns.Count)), Act) Is Nothing Then
 
        InversePlage = ""
        Exit Function
    End If
 
    i = Plage.Rows.Count - (xA - xB)
    If i = 0 Then
        InversePlage = ""
        Exit Function
    End If
 
    j = Plage.Columns.Count - (yA - yB)
    If j = 0 Then
        InversePlage = ""
        Exit Function
    End If
    InversePlage = Plage.Cells(i, j).Value
 
End Function

bonne soiree
michel

20/08/2006, 00h19
phil_75

C'est une bonne idée de faire ça, et clairement ça va marcher.

Par contre, imaginons qu'on fasse des calculs sur une matrice un peu plus compliqués (genre diagonalisation, ou autre) il me semble que les calculs vont être faits autant de fois qu'il y a d'éléments non ? ça risque d'être lent...

J'ai eu un collègue à une époque qui arrivait à pondre des fonctions pouvant s'appeler comme les fonctions Excel (avec les ctrl+shift+entrée & co), mais c'était à base de dll's écrites en C. Est-ce le seul moyen de faire, ou il y a une astuce VBA qui permet de faire une telle chose ?

En tout cas merci beaucoup pour cette réponse, ça va m'être bien utile !

Bonne soirée

Philippe