Excel VBA, somme d'élements d'une matrice
Argile92
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Chricky_80 -
Chricky_80 -
Bonjour,
J'ai un problème, qui est je pence, très simple à résoudre pour les personnes connaissant la commande à effectuer.
Alors voilà, j'ai codé dans une macro une matrice de la forme suivante "matrice(1 to 10, 1 to 5)" et j'aimerai faire la somme des éléments suivant "matrice(1 to 10, 1)" soit les 10 éléments se trouvant dans "le 1er tableau".
Existe-t-il une commande autre que
Merci de votre aide
J'ai un problème, qui est je pence, très simple à résoudre pour les personnes connaissant la commande à effectuer.
Alors voilà, j'ai codé dans une macro une matrice de la forme suivante "matrice(1 to 10, 1 to 5)" et j'aimerai faire la somme des éléments suivant "matrice(1 to 10, 1)" soit les 10 éléments se trouvant dans "le 1er tableau".
Existe-t-il une commande autre que
WorksheetFunction.Sum(matrice(1,1), matrice(2,1) ... etc... )??
Merci de votre aide
A voir également:
- Excel VBA, somme d'élements d'une matrice
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
- Somme si couleur excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
1 réponse
Je ne sais pas si ca répond à ta question mais essayes :
Sub test()
LigneDépart = 1 'Ligne de ta cellule de départ
ColonneDépart = 2 'Colonne de ta cellule de départ
For Ligne = LigneDépart To LigneDépart + 10 'Boucle de 10 occurances
For Colonne = ColonneDépart To ColonneDépart + 5 'Boucle de 5 occurances
Somme = Cells(Ligne, Colonne) + Somme ' Ancienne somme + nouvelle cellule
Next
Next
'pour visualiser ton résultat
mess = "Somme est égale à " & Somme
MsgBox (mess)
End Sub
A+
Chricky_80
Sub test()
LigneDépart = 1 'Ligne de ta cellule de départ
ColonneDépart = 2 'Colonne de ta cellule de départ
For Ligne = LigneDépart To LigneDépart + 10 'Boucle de 10 occurances
For Colonne = ColonneDépart To ColonneDépart + 5 'Boucle de 5 occurances
Somme = Cells(Ligne, Colonne) + Somme ' Ancienne somme + nouvelle cellule
Next
Next
'pour visualiser ton résultat
mess = "Somme est égale à " & Somme
MsgBox (mess)
End Sub
A+
Chricky_80