Discussion :

[Lnmex]

Bonjour j'ai un problème pour inverser une matrice...

J'utilise ceci:

Code :

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

1
2
3
4
5
6
 
Dim Monomio(3, 3)
Monomio(1, 1) = 3
'(etc.. je définis toute la matrice comme cela)
Dim Monomioinv As Variant
Monomioinv = Application.WorksheetFunction.MInverse(Monomio)

Mais j'ai un message d'erreur qui me dit (bon c'est en espagnol je vais essayer de traduire)
"Erreur 1004
On ne peut pas obtenir la propriété Minverse de la classe WorksheetFunction..."

J'imagine que cela vient dans les définitions de matrices... j'ai cherché mais j'avoue que je ne vois pas... merci!

[Lnmex]

Bon j'ai trouvé le pourquoi de l'erreur, la matrice n'est pas inversible.
Mais j'ai une nouvelle question (j'espère cette fois avec réponse ) pour la gestion de cette erreur...

En fait j'ai besoin de terminer la macro, je ne peux pas la laisser s'arrêter à cette erreur et j'aimerais que lorsqu'il la rencontre il me le marque dans la table excel par ERROR du coup j'ai fait ça pour qu'il me reprenne à la ligne suivante...

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
 
'On Error GoTo FinError
 
i = 3
Do While Not i = 289
'reprend:
'----------- code
i = i + 1
Loop
Exit Sub
 
FinError:
Cells(i, "X") = "ERROR"
i = i + 1
GoTo reprend
Resume

Ca marche la première fois, mais ensuite ça plante, je retombe sur mon erreur du début, comme si il zappait le on error go to... la gestion d'erreur n'est apparemment plus prise en compte, et je ne comprends pas pourquoi...

Merci pour votre aide.

[Lnmex]

Bon j'ai trouvé, je ne sais si laisser mon message, mais peut être cela peut être utile pour les suivants qui sait?

Cela aide à faire une gestion d'erreur dans une boucle.

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
19
20
 
On Error Resume Next 'au debut
 
i = 3
Do While Not i = 289
 
'------ code
 
        'apres l'endroit où je sais que cela pose une erreur
        MatDistEuinv = Application.WorksheetFunction.MInverse(MatDistEu)
        If Err.Number <> 0 Then
            Cells(i, "X") = "Error"
            i = i + 1
            Err.Clear
        End If
 
'------- code
        i = i + 1
Loop
Exit Sub

Voili,