Je suis une débutante en VB et je dois faire une résolution de système d'équations de n variables sur VB.
J'ai réussi le tout mais mon gros problème est que si mon premier terme de la matrice est 0 je suis sensé l'échanger de ligne. J'ai aucune idée comment faire et j'ai vraiment besoin d'une bonne aide.
J'utilise la méthode Gauss-Jordan et voici le dévut de mon programme: (J'espère qu'il y a qqn qui pourra m'aider! Merci d'avance)
Sub Solution()
'Resoud le systeme
Dim N As Integer 'Le nombre d'équations
Dim Matrice As Variant
N = Range("n").Value 'va lire dans excel cette valeur
ReDim Matrice(1 To N, 1 To N + 1) As Double
For ligne = 1 To N
For colonne = 1 To N
Matrice(ligne, colonne) = Range("matrice")(ligne, colonne).Value 'va lire la matrice se situant dans excel
Next colonne
Matrice(ligne, N + 1) = Range("vecY")(ligne).Value ' va ajouter le vecteur solution d'excel comme une dernière colonne dans la matrice
Next ligne
