Boucle (SOMME)
Résolu
Lentz
-
Lentz -
Lentz -
Bonjour,
Suite à un nouveau tableau (1 par mois)
Je souhaite addiotionner 2 cellule (exemple A5 et B5) de mon ancien tableau pour y mettre en C5 dans mon nouveau tableau.
Je pourrais le faire à la main mais j'ai plus de 1000 lignes ...
Je chercherche exclusivement une macro,
Cordialement,
Suite à un nouveau tableau (1 par mois)
Je souhaite addiotionner 2 cellule (exemple A5 et B5) de mon ancien tableau pour y mettre en C5 dans mon nouveau tableau.
Je pourrais le faire à la main mais j'ai plus de 1000 lignes ...
Je chercherche exclusivement une macro,
Cordialement,
A voir également:
- Boucle (SOMME)
- Somme si couleur - Guide
- Formule somme excel colonne - Guide
- Somme en anglais excel - Guide
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Somme excel ne fonctionne pas ✓ - Forum Excel
2 réponses
bonjour,
décidément, tu mets des boucles partout !
ton énoncé est vague (comme souvent, voir notre dernier dialogue): tu veux faire la somme de chaque ligne des 2 colonnes et à partir de quelle ligne, ton nouveau tableau se trouve où?
avec un énoncé précis, tu n'aurais peut-^tre pas eu besoin de faire un "up"
Michel
décidément, tu mets des boucles partout !
ton énoncé est vague (comme souvent, voir notre dernier dialogue): tu veux faire la somme de chaque ligne des 2 colonnes et à partir de quelle ligne, ton nouveau tableau se trouve où?
avec un énoncé précis, tu n'aurais peut-^tre pas eu besoin de faire un "up"
Michel
option explicit
Sub additionnerAetB()
Dim derlig As Long, fin as long
Dim T_in, T_out
With Sheets(1)
derlig = .Columns(1).Find("*", , xlFormulas, , , xlPrevious).Row
T_in = Range("A5:B" & derlig).Value
fin = UBound(T_in)
ReDim T_out(1 To fin)
For cptr = 1 To fin
T_out(cptr) = T_in(cptr, 1) + T_in(cptr, 2)
Next
End With
With Workbooks("classeur3").Sheets(1)
.Range("A1").Resize(fin, 1) = Application.Transpose(T_out)
.Activate
End With
