Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelle
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > > WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
toujours pas compris le WorksheetFunction.Sum Range(Cells(2, col(i)),
Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
toujours pas compris le WorksheetFunction.Sum Range(Cells(2, col(i)),
Cells(DLastRow, col(i)))
j@c
"isabelle" <i@v> a écrit dans le message de news:
uFsWJkveIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelle
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
toujours pas compris le WorksheetFunction.Sum Range(Cells(2, col(i)),
Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
toujours pas compris le WorksheetFunction.Sum Range(Cells(2, col(i)),
Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
toujours pas compris le WorksheetFunction.Sum Range(Cells(2, col(i)),
Cells(DLastRow, col(i)))
j@c
"isabelle" <i@v> a écrit dans le message de news:
uFsWJkveIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelle
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
toujours pas compris le WorksheetFunction.Sum Range(Cells(2, col(i)),
Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
ps/ la seule différence c'est que les variables sont numérique au lieu
d'être alpha,
isabelletoujours pas compris le WorksheetFunction.Sum Range(Cells(2,
col(i)),
Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
ps/ la seule différence c'est que les variables sont numérique au lieu
d'être alpha,
isabelle
toujours pas compris le WorksheetFunction.Sum Range(Cells(2,
col(i)),
Cells(DLastRow, col(i)))
j@c
"isabelle" <i@v> a écrit dans le message de news:
uFsWJkveIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelle
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
ps/ la seule différence c'est que les variables sont numérique au lieu
d'être alpha,
isabelletoujours pas compris le WorksheetFunction.Sum Range(Cells(2,
col(i)),
Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) > >>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
voui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait quoi
après ???
"isabelle" a écrit dans le message de news:ps/ la seule différence c'est que les variables sont numérique au lieu
d'être alpha,isabelletoujours pas compris le WorksheetFunction.Sum Range(Cells(2,
col(i)),Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
voui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait quoi
après ???
j@c
"isabelle" <i@v> a écrit dans le message de news:
exa9MIweIHA.1212@TK2MSFTNGP05.phx.gbl...
ps/ la seule différence c'est que les variables sont numérique au lieu
d'être alpha,
isabelle
toujours pas compris le WorksheetFunction.Sum Range(Cells(2,
col(i)),
Cells(DLastRow, col(i)))
j@c
"isabelle" <i@v> a écrit dans le message de news:
uFsWJkveIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))
Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))
Next
isabelle
Bonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
voui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait quoi
après ???
"isabelle" a écrit dans le message de news:ps/ la seule différence c'est que les variables sont numérique au lieu
d'être alpha,isabelletoujours pas compris le WorksheetFunction.Sum Range(Cells(2,
col(i)),Cells(DLastRow, col(i)))
"isabelle" a écrit dans le message de news:bonjour Eric,
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
col = Array(20, 21, 26, 28, 29, 30)
For i = 0 To 5
WorksheetFunction.Sum Range(Cells(2, col(i)), Cells(DLastRow,
col(i)))Cells(DLastRow + 1, col(i)) = WorksheetFunction.Sum(Range(Cells(2,
col(i)), Cells(DLastRow, col(i))))Next
isabelleBonjour,
Je constate que je répète 6 fois la même chose, Y a-t-il moyen de
faire plus simple ?
DLastRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row
Range("H" & DLastRow + 1) = "SOMME"
WorksheetFunction.Sum (Range("T2:T" & DLastRow))
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T"
& DLastRow))
WorksheetFunction.Sum (Range("U2:U" & DLastRow))
Range("U" & DLastRow + 1) = WorksheetFunction.Sum(Range("U2:U"
& DLastRow))
WorksheetFunction.Sum (Range("Z2:Z" & DLastRow))
Range("Z" & DLastRow + 1) = WorksheetFunction.Sum(Range("Z2:Z"
& DLastRow))
WorksheetFunction.Sum (Range("AB2:AB" & DLastRow))
Range("AB" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AB2:AB" & DLastRow))
WorksheetFunction.Sum (Range("AC2:AC" & DLastRow))
Range("AC" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AC2:AC" & DLastRow))
WorksheetFunction.Sum (Range("AE2:AE" & DLastRow))
Range("AE" & DLastRow + 1) >>>>> WorksheetFunction.Sum(Range("AE2:AE" & DLastRow))
Merci d'avance
Eric
j'suis d'avis que Eric n'a pas tout mit le code !?
isabellevoui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends
pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait
quoi
après ???
j'suis d'avis que Eric n'a pas tout mit le code !?
isabelle
voui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends
pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait
quoi
après ???
j'suis d'avis que Eric n'a pas tout mit le code !?
isabellevoui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends
pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait
quoi
après ???
Il me semble que le code est clair, ça met la somme à la fin de la
colonne...
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T" &
DLastRow))
"isabelle" a écrit dans le message de news:
%j'suis d'avis que Eric n'a pas tout mit le code !?
isabellevoui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends
pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait
quoi
après ???
Il me semble que le code est clair, ça met la somme à la fin de la
colonne...
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T" &
DLastRow))
"isabelle" <i@v> a écrit dans le message de news:
%2310uwhweIHA.1208@TK2MSFTNGP03.phx.gbl...
j'suis d'avis que Eric n'a pas tout mit le code !?
isabelle
voui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends
pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait
quoi
après ???
Il me semble que le code est clair, ça met la somme à la fin de la
colonne...
Range("T" & DLastRow + 1) = WorksheetFunction.Sum(Range("T2:T" &
DLastRow))
"isabelle" a écrit dans le message de news:
%j'suis d'avis que Eric n'a pas tout mit le code !?
isabellevoui voui, Isabelle, ça j'avais bien compris, ce que je ne comprends
pas
c'est à quoi sert la ligne
Worksheetfunction.Sum Range(...)
ça calcule la somme de ce qui est dans la plage, ok, mais ça en fait
quoi
après ???