Discussion :

[Marc31]

BOnjour j'aimerais automatiser un code qui permet d'additionner deux colonnes entre elles et d'afficher le resultat.
Si quelqu'un pouvait m'aider, merci?

ColA  ColB
10	6
5	6
10	10
5	10
1	1
5	5

Resultat	
16	
11	
20	
15
2
10

Code :

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

1
2
3
4
Sheets("calcul").Cells(65, 1) = Sheets("calcul").Range("A57") + Sheets("calcul").Range("B57")
Sheets("calcul").Cells(66, 1) = Sheets("calcul").Range("A58") + Sheets("calcul").Range("B58")
Sheets("calcul").Cells(67, 1) = Sheets("calcul").Range("A59") + Sheets("calcul").Range("B59")
Sheets("calcul").Cells(68, 1) = Sheets("calcul").Range("A60") + Sheets("calcul").Range("B60")

[Nico Chg]

Bonjour,

Pourquoi ne pas te tourner vers une simple formule Excel ? Du style "=SUM(A1+B1)" ?

[Marc31]

En fait j'ai commencé en vba et j'aurais aimé terminé l'automatisation en vba mais c'est pas gagné....

[Nico Chg]

Je te conseil vivement de faire tout ce que tu peux à l'aide de formule Excel, avant d'envisager d'utiliser une méthode VBA.

Ceci dit, pour répondre purement en VBA :

Code :

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

1
2
3
4
5
With Sheets("calcul")
     For I = 1 to 7
          .cells(I + 8, 1) = .cells(I, 1) + .cells(I, 2)
     Next I
End with

Mais encore une fois, je vois très mal l’intérêt de ce code, parce qu'en approximativement 10sec, tu peut écrire une formule SOMME, et la tirer sur 7 cases.

[Marc31]

merci et En fait j'ai plein de tableaux avec une 20 lignes à chaque fois, j'ai mis un petit exemple là.

[Nico Chg]

merci et En fait j'ai plein de tableaux avec une 20 lignes à chaque fois, j'ai mis un petit exemple là.

Ah, mais c'est plutôt par là qu'il fallait commencer.

Pour automatiser le truc, il faut plutôt parcourir toutes les feuilles, afin d'appliquer ton code sur toutes les feuilles.

Code :

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

1
2
3
4
5
6
7
8
Dim Ws as worksheets
For Each Ws in ThisWorkbook
     With Ws
     For I = 1 to 7
          .cells(I + 8, 1) = .cells(I, 1) + .cells(I, 2)
     Next I
     End with
Next Ws