Simplification de code
Bonjour tout le monde,
Novice dans l'utilisation de VBA je cherche à simplifier un petit bout de code afin de le rendre léger.
L'un de vous pourrait il m'aider.
Merci
Voici le bout de code
Dim plage1 As Range
Dim plage2 As Range
Dim plage3 As Range
Dim plage4 As Range
Dim plage5 As Range
Dim plage6 As Range
Dim plage7 As Range
Dim plage9 As Range
Dim plage10 As Range
Dim plage11 As Range
Dim plage12 As Range
Dim plage13 As Range
Dim plage14 As Range
Dim volume As Range
Set plage1 = Range("J5:AZ5")
Set plage2 = Range("J6:AZ6")
Set plage3 = Range("J7:AZ7")
Set plage4 = Range("J8:AZ8")
Set plage5 = Range("J9:AZ9")
Set plage6 = Range("J10:AZ10")
Set plage7 = Range("J11:AZ11")
Set plage8 = Range("J12:AZ12")
Set plage9 = Range("J13:AZ13")
Set plage10 = Range("J14:AZ14")
Set plage11 = Range("J15:AZ15")
Set plage12 = Range("J16:AZ16")
Set plage13 = Range("J17:AZ17")
Set plage14 = Range("J18:AZ18")
Range("I5").Value = Application.sum(plage1)
Range("I6").Value = Application.sum(plage2)
Range("I7").Value = Application.sum(plage3)
Range("I8").Value = Application.sum(plage4)
Range("I9").Value = Application.sum(plage5)
Range("I10").Value = Application.sum(plage6)
Range("I11").Value = Application.sum(plage7)
Range("I12").Value = Application.sum(plage8)
Range("I13").Value = Application.sum(plage9)
Range("I14").Value = Application.sum(plage10)
Range("I15").Value = Application.sum(plage11)
Range("I16").Value = Application.sum(plage12)
Range("I17").Value = Application.sum(plage13)
Range("I18").Value = Application.sum(plage14)
Bonjour
au plus simple faire une boucle
Sub Testrang()
For L = 5 To 18
Range("I" & L).Value = Application.Sum(Range("J" & L & ":AZ" & L))
Next L
End SubA+
Maurice