Etendre une macro VB

Question

Bonjour, j'ai fait la macro suivante:

Sub avct_partiel()
'
' avct_partiel Macro
' Macro enregistr&#233;e le 19/04/2005 par rieusset
'
'
ActiveSheet.Unprotect "fred"
 Dim val1, val2, val3, val4, val5, val6
val1 = Range("I13").Value
val2 = Range("J13").Value
val3 = Range("I14").Value
val4 = Range("J14").Value
val5 = Range("I15").Value
val6 = Range("J15").Value
Range("I4").Formula = "=SUM(" & val1 & ")"
Range("J4").Formula = "=SUMPRODUCT((" & val1 & ")*(" & val2 & "))/I4"
Range("I5").Formula = "=SUM(" & val3 & ")"
Range("J5").Formula = "=SUMPRODUCT((" & val3 & ")*(" & val4 & "))/I5"
Range("I6").Formula = "=SUM(" & val5 & ")"
Range("J6").Formula = "=SUMPRODUCT((" & val5 & ")*(" & val6 & "))/I6"
ActiveSheet.Protect "fred", True, True, True
End Sub

Cette macro agit sur le couple de colonnes (I et J)  mais j'aurais voulu l'etendre aux colonnes dont le rang de colonne est tel que C=C+5
C'est a dire les couples (MetN); (Q et R); etc... 
je ne sais pas comment l'ecrire... si quelqu'un a une id&#233;e elle sera tjrs la bienvenue!
Merci.

FFkiller · Answer

regarde tes messages priv&#233;

FFkiller

Etendre une macro VB

1 réponse

Discussions similaires