akramenergie
XLDnaute Occasionnel
Bonjour le forums,
Je voudrais transformer une dixéne de ligne de code qui se répete en une boucle For.
j'ai indiqué en rouge les deux variable qui change la premiere est un chifre qui s'incrémente 1 par 1 et la deuxiéme variable c'est une lettre qui s'incrémente 3 par 3
Sheets("2010").Cells(l + 6, 4).Value = Evaluate("SumProduct((F7:F" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 5).Value = Evaluate("SumProduct((I7:I" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 6).Value = Evaluate("SumProduct((L7:L" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 7).Value = Evaluate("SumProduct((O7:O" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 8).Value = Evaluate("SumProduct((R7:R" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 9).Value = Evaluate("SumProduct((U7:U" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 10).Value = Evaluate("SumProduct((X7:X" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 11).Value = Evaluate("SumProduct((AA7:AA" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 12).Value = Evaluate("SumProduct((AD7:AD" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 13).Value = Evaluate("SumProduct((AG7:AG" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 14).Value = Evaluate("SumProduct((AJ7:AJ" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 15).Value = Evaluate("SumProduct((AM7:AM" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 16).Value = Evaluate("SumProduct((AP7:AP" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 17).Value = Evaluate("SumProduct((AS7:AS" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 18).Value = Evaluate("SumProduct((AV7:AV" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 19).Value = Evaluate("SumProduct((AY7:AY" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 20).Value = Evaluate("SumProduct((BB7:BB" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 21).Value = Evaluate("SumProduct((BE7:BE" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 22).Value = Evaluate("SumProduct((BH7:BH" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 23).Value = Evaluate("SumProduct((BK7:BK" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 24).Value = Evaluate("SumProduct((BN7:BN" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 25).Value = Evaluate("SumProduct((BQ7:BQ" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 26).Value = Evaluate("SumProduct((BT7:BT" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Je voudrais transformer une dixéne de ligne de code qui se répete en une boucle For.
j'ai indiqué en rouge les deux variable qui change la premiere est un chifre qui s'incrémente 1 par 1 et la deuxiéme variable c'est une lettre qui s'incrémente 3 par 3
Sheets("2010").Cells(l + 6, 4).Value = Evaluate("SumProduct((F7:F" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 5).Value = Evaluate("SumProduct((I7:I" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 6).Value = Evaluate("SumProduct((L7:L" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 7).Value = Evaluate("SumProduct((O7:O" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 8).Value = Evaluate("SumProduct((R7:R" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 9).Value = Evaluate("SumProduct((U7:U" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 10).Value = Evaluate("SumProduct((X7:X" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 11).Value = Evaluate("SumProduct((AA7:AA" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 12).Value = Evaluate("SumProduct((AD7:AD" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 13).Value = Evaluate("SumProduct((AG7:AG" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 14).Value = Evaluate("SumProduct((AJ7:AJ" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 15).Value = Evaluate("SumProduct((AM7:AM" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 16).Value = Evaluate("SumProduct((AP7:AP" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 17).Value = Evaluate("SumProduct((AS7:AS" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 18).Value = Evaluate("SumProduct((AV7:AV" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 19).Value = Evaluate("SumProduct((AY7:AY" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 20).Value = Evaluate("SumProduct((BB7:BB" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 21).Value = Evaluate("SumProduct((BE7:BE" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 22).Value = Evaluate("SumProduct((BH7:BH" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 23).Value = Evaluate("SumProduct((BK7:BK" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 24).Value = Evaluate("SumProduct((BN7:BN" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 25).Value = Evaluate("SumProduct((BQ7:BQ" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala
Sheets("2010").Cells(l + 6, 26).Value = Evaluate("SumProduct((BT7:BT" & l & ") * (B7:B" & l & " = C" & l + 6 & "))") / vala