automatisation de données

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:

---

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")

---

Bonjour,

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

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

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:

---

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.

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

Citation:

---

Envoyé par Marc31

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:

---

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

---