Boucle (SOMME)
Résolu/Fermé
A voir également:
- Boucle (SOMME)
- Somme si couleur - Guide
- Somme excel - Guide
- Pc s'allume et s'éteint en boucle - Forum Matériel informatique
- Somme si ou ✓ - Forum Excel
- Somme recherchev - Forum Excel
2 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 27/09/2011 à 10:24
Modifié par michel_m le 27/09/2011 à 10:24
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
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
27 sept. 2011 à 11:53
27 sept. 2011 à 11:53
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