VBA
Panda1nd
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Sub Macro()
Dim Tab1(4, 4) As Integer
Dim Tab2(4, 4) As Integer
Dim Tab_Resultat(4, 4) As Integer
For ligne = 1 To 4
For colonne = 1 To 4
Tab1(ligne, colonne) = Worksheets("So").Cells(ligne + 49, colonne + 4).Value
Next colonne
Next ligne
For ligne = 1 To 4
For colonne = 1 To 4
Tab2(ligne, colonne) = Worksheets("So").Cells(ligne + 49, colonne + 4).Value
Next colonne
Next ligne
For i = 1 To 4
For j = 1 To 4
Som = 0
For k = 1 To 4
Som = Som + Tab1(i, k) * Tab2(k, j)
Next k
Tab_Resultat(i, j) = Som
Next j
Next i
For ligne = 1 To 4
For colonne = 1 To 4
Worksheets("So").Cells(ligne + 56, colonne + 5).Value = Tab_Resultat(ligne, colonne)
Next colonne
Next ligne
End Sub
Que réalise cette macro ?
Mercii
Sub Macro()
Dim Tab1(4, 4) As Integer
Dim Tab2(4, 4) As Integer
Dim Tab_Resultat(4, 4) As Integer
For ligne = 1 To 4
For colonne = 1 To 4
Tab1(ligne, colonne) = Worksheets("So").Cells(ligne + 49, colonne + 4).Value
Next colonne
Next ligne
For ligne = 1 To 4
For colonne = 1 To 4
Tab2(ligne, colonne) = Worksheets("So").Cells(ligne + 49, colonne + 4).Value
Next colonne
Next ligne
For i = 1 To 4
For j = 1 To 4
Som = 0
For k = 1 To 4
Som = Som + Tab1(i, k) * Tab2(k, j)
Next k
Tab_Resultat(i, j) = Som
Next j
Next i
For ligne = 1 To 4
For colonne = 1 To 4
Worksheets("So").Cells(ligne + 56, colonne + 5).Value = Tab_Resultat(ligne, colonne)
Next colonne
Next ligne
End Sub
Que réalise cette macro ?
Mercii
1 réponse
Bonjour,
tu peux modifier ton titre, rien n'est urgent ici, c'est très mal perçu dans les forums.
Indente ton code et utilise l'icone <> pour le mettre en forme.
Et pas de doublons stp
Merci
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
tu peux modifier ton titre, rien n'est urgent ici, c'est très mal perçu dans les forums.
Indente ton code et utilise l'icone <> pour le mettre en forme.
Et pas de doublons stp
Merci
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
