Etendre une macro vb Fermé

Question

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.

tompols · Answer

Salut,Une piste : Range("C4") = Cells(4,3)Avec une variable : i=3Cells(4,i) = Range("C4")Cells(4, i+5) = Range("H4")A+

fred · Answer

ouai j'y avais pensé mais tu as une idée pour la boucle?

tompols · Answer

Une 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.....

fred · Answer

ç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 +.

Etendre une macro vb

4 réponses

Discussions similaires