Discussion :

[Marc31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vanhoa]

Bonjour,

Voici une solution parmi tant d'autres:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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

[vanhoa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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

[vanhoa]

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