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,
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-
-
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 -
-
