Etendre une macro vb
Bonjour, j'ai fait la macro suivante:
Sub avct_partiel()
'
' avct_partiel Macro
' Macro enregistré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ée elle sera tjrs la bienvenue!
Merci.
Sub avct_partiel()
'
' avct_partiel Macro
' Macro enregistré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ée elle sera tjrs la bienvenue!
Merci.
4 réponses
-
ContributeurSalut,
Une piste :
Range("C4") = Cells(4,3)
Avec une variable :
i=3
Cells(4,i) = Range("C4")
Cells(4, i+5) = Range("H4")
A+ -
ouai j'y avais pensé mais tu as une idée pour la boucle?
-
ContributeurUne piste :
Dim lig as integer, col as integer Dim val1,val2.... For lig = 4 to 6 For col = 3 to ?? step +5 Ton code Next col Next lig
Ou un truc ds le genre, ça devrait le faire..... -
ça y est g trouvé je me suis un peu creusé les mélinges et ça a marché !
merci encore une fois pour ton aide tompols a +.
