Discussion :

[Clemlfge]

Bonjour,

Je suis débutante en VBA et je souhaite inverser une matrice. Je programme sous Excel 2016
Sachant que j'ai d'abord écrit un tableau, que j'ai ensuite converti en matrice, que je souhaite inversé.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'On converti le tableau en matrice
 
ReDim Mat(1 To derniere, 1 To derniere) As Variant
Dim ho As Integer
Dim go As Integer
 
For ho = 1 To derniere
    For go = 1 To derniere
        Mat(ho, go) = Cells(lo + 2, go + 1).Value
    Next go
Next ho
 
ReDim Matinverse(1 To derniere, 1 To derniere) As Variant
Matinverse = Application.MInverse(Mat)

Aidez moi s'il vous plait

[Clemlfge]

Pardon j'ai oublié de dire que le message d'erreur qui s'affiche est "incompatibilité de type" au niveau de la livre d'inversion "MaInverse...."

Help

[patricktoulon]

re
Bonjour je ne suis pas sur que tu ai besoins de faire 2 boucle imbiquées pour construire ta matrice(variable tableau)

'On converti le tableau en matrice

Code :

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

1
2
3
4
5
6
7
8
9
dim mat
Dim dercol' a déterminer de la facon que tu veux 
 Dim derlig' a determiner de la facon que tu veux 
dim firstcell as range
 
with  sheets("toto")
Set firstcell=.range("A1")
 Mat=Application.MInverse(.range(firstcell,.cells((derlig,dercol)).value)
end with

[unparia]

Bonjour
lecture de l'aide interne VBA :

La matrice peut être indiquée sous forme de plage de cellules, par exemple, A1:C3, sous forme de constante matricielle, par exemple, {1,2,3;4,5,6;7,8,9}, ou sous forme de nom renvoyant à la plage ou à la constante.

[Clemlfge]

Bonjour,

Déjà merci pour votre aide.
Quand j'adapte votre code à mon problème j'obtiens :

Code :

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

1
2
3
4
5
ReDim Mat(1 To derniere, 1 To derniere) As Variant
With Sheets("Graphique")
Set firstcell = .Range("B3")
    Mat = Application.MInverse(.Range(firstcell, .Cells(derniere, derniere).Value))
End With

Mais un message d'erreur apparaît me disant "erreur définie par l'application ou par l'object" sur la ligne Mat = ...

[Clemlfge]

Bonjour unparia,

Mon tableau est uniquement composé de nombre, pas de cellule vide, et j'utilise des intégrateur, donc je ne vois pas le problème ....

[unparia]

C'est ta plage, que tu peux passer en paramètre (et pas une matrice construite sur les valeurs de cette plage)

[Clemlfge]

Je suis désolé je ne comprends pas ...