Faire des additions de ligne en vba

Bonjour,

J'ai trouvé un code qui marche bien et qui additionne des valeurs d'une ligne sur l'autre mais il n'est pas très pratique car il faut faire une ligne de code pour ajouter deux valeurs.
J'aimerais savoir comment simplifier ce code? Si quelqu'un pouvait m'aider? merci.
Je souhaite obtenir ceci:


ligne1 2 4 1 3 10 6 8 7 12 36 58 7 4 2
ligne2 10 2 3 5 6 3 7 8 9 15 56 8 7 1
resultat 12 6 4 8 16 9 15 15 21 51 114 15 11 3

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub calcul()     'Activation de la feuille 3 Sheets("calcul").Activate   Cells(9, 1).Value = WorksheetFunction.Sum(Feuil10.Range("A7:A8")) Cells(9, 2).Value = WorksheetFunction.Sum(Feuil10.Range("B7:B8")) Cells(9, 3).Value = WorksheetFunction.Sum(Feuil10.Range("C7:C8")) Cells(9, 4).Value = WorksheetFunction.Sum(Feuil10.Range("D7:D8")) Cells(9, 5).Value = WorksheetFunction.Sum(Feuil10.Range("E7:E8"))   End Sub

---

Bonjour,

Voici une solution parmi tant d'autres:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub addition() Dim i As Integer, numcolonne As Integer   numcolonne = Sheets("calcul").Cells(7, 1).End(xlToRight).Column   For i = 1 To numcolonne Sheets("calcul").Cells(9, i) = WorksheetFunction.Sum(Sheets("calcul").Range(Sheets("calcul").Cells(7, i), Sheets("calcul").Cells(8, i))) Next i   End Sub

---

Ah oui merci ça marche super et c'est beaucoup mieux!
Maintenant sera-t-il possible d'ajouter des lignes en fonction d'un critère?
Dans l'exemple ci-dessous il faudrait ajouter la ligne 555011 avec la ligne 555111....

547000 0 0 0 0 0 0
555011 5 0 0 2 1 0
555012 2 0 0 1 0 0
555013 3 0 0 2 0 0
555014 10 0 0 3 1 0
555111 0 0 0 0 0 0
555114 2 0 0 2 0 0

Oui c'est possible.

Pour les criteres, il faut utiliser des fonctions du type If...End If, ou Select Case... End Select, puis tu definis tes criteres a l'interieur de ces fonctions. Exemple si le numero de la ligne est un nombre pair ou si le numero de la ligne est superieur a un certain nombre etc...

si tu veux simplement additionner la ligne 555011 et 555111 il faut:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Sub addition() Dim i As Long, numcolonne As Long, lignesomme as Long   numcolonne = Sheets("calcul").Cells(7, 1).End(xlToRight).Column lignesomme = 1 'j'ai mis 1 par defaut, mais tu peux remplacer 1 par le numero de ligne ou tu souhaites voir les sommes s'afficher   For i = 1 To numcolonne Sheets("calcul").Cells(lignesomme, i) = Sheets("calcul").Cells(555011, i)+Sheets("calcul").Cells(555111, i) Next i   End Sub

---

Encore Merci tu as l'air super fort en vba, je vais regarder tout ça!

Merci pour ce compliment :-) mais je reste encore un debutant compare a ceux qui sont sur ce forum

Ah non je retire mon compliment (lol) ça marche pas, cela m'affiche que des 0 sur la ligne resultat....

Encore MERCI c'est bon il a juste fallu que je change les critères 555011 et 555111 par le numéro de ligne.