Ca me fait peur.

Je voudrais un code VBA pour Excel qui inverse la matrice présente en A1:J10

Cliquez pour agrandir...

Ce code utilise la fonction MInverse pour calculer la matrice inverse et la fonction MMult pour calculer le déterminant de la matrice. Si le déterminant est égal à zéro, la matrice n'est pas inversible et un message d'erreur est affiché. Sinon, la matrice inverse est calculée et copiée dans la plage A1:J10. Un message de confirmation est également affiché. Notez que ce code peut prendre du temps à s'exécuter pour de grandes matrices.

Cliquez pour agrandir...

Sub InverseMatrice()
Dim matrice(1 To 10, 1 To 10) As Double
Dim matriceInverse(1 To 10, 1 To 10) As Double
Dim i As Integer, j As Integer
Dim determinant As Double
' Copier les valeurs de la plage A1:J10 dans la matrice
For i = 1 To 10
    For j = 1 To 10
        matrice(i, j) = Cells(i, j).Value
    Next j
Next i
' Calculer le déterminant de la matrice
determinant = WorksheetFunction.MMult(matrice, WorksheetFunction.MInverse(matrice))
' Vérifier si le déterminant est égal à zéro, dans ce cas la matrice n'est pas inversible
If determinant = 0 Then
    MsgBox "La matrice n'est pas inversible"
Else
    ' Calculer la matrice inverse
    matriceInverse = WorksheetFunction.MInverse(matrice)
    ' Copier les valeurs de la matrice inverse dans la plage A1:J10
    For i = 1 To 10
        For j = 1 To 10
            Cells(i, j).Value = matriceInverse(i, j)
        Next j
    Next i
    MsgBox "La matrice a été inversée avec succès"
End If
End Sub

ça veut dire qu'il a avalé Excel, la structure VBA, les matrices ....

Cliquez pour agrandir...

Staple1600 à dit:

Skynet n'est pas loin

Cliquez pour agrandir...

Staple1600 à dit:

Bientôt, nous répondeurs, on ne servira plus à grand chose
Ou il faudra renommer XLD : Chat_XL

Cliquez pour agrandir...

Staple1600 à dit:

PS: Qui dit productivité, dit temps machine vs temps homme
Et dans ce cas, il y aura des charettes dans un futur proche

Cliquez pour agrandir...

1. Lecture et saisie de documents complexes : j'ai soumis à Chat GPT des documents concernant des cargaisons de marchandises (non confidentiels) en lui demandant de me retourner les dates de départ et d'arrivée, le poids des marchandises, la nature de ces dernières, le prix des chargements, ainsi qu'une batterie d'une dizaine d'autres questions de ce type. En moins de 20 secondes, Chat GPT m'a retourné toutes les réponses avec extrêmement peu d'erreurs (j'ai répété l'expérience avec plusieurs documents du même type pour des expéditions différentes). Il ne reste plus qu'à saisir ces données automatiquement dans un ERP.

1. Épuration d'une base de données : nous sommes souvent amenés à travailler avec de nombreuses entreprises à travers le monde, l'intégrité des données est donc mise à rude épreuve. Il nous arrive souvent d'avoir des bases de données fortement dégradées au gré des saisies. J'ai donc créé une macro chargée d'identifier des informations incohérentes. Une fois ces informations identifiées, je n'ai plus qu'à demander l'avis de Chat GPT sur des éléments tels que "est-ce logique qu'un navire ait fait escale à tel endroit et pas à tel autre ?" (le genre de trucs qu'on sait quand on est du métier). Chat GPT répond souvent juste. Il ne reste plus qu'à mettre une personne pour vérifier les réponses et, au besoin, les corriger. Encore une fois, une personne fait désormais le travail de cinq.

R1- à dit:

la révolution risque de faire mal.

Cliquez pour agrandir...