RE/ Etendre une macro sur plusieurs colonnes

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.

tbbuim1 · Answer

lol je ne vois pas l'int&#233;r&#234;t de ta question...

Quel est la longueur de ta feuille Excel? Combien y a t-il de colonnes?

Si tu veux l'&#233;tendre, tu n'as qu'&#224; faire un copier coller et changer le nom des colonnes...

Sinon, fais un boucle for et test ton compteur.

For i = 1 to 3 

    Select case i

        case 1: Val1 = "I13"

        case2: Val1 = "M13"

        case3: Val1 = "Q13"

        ...

    End select

    Range...

Next i


TBBUIM

RE/ Etendre une macro sur plusieurs colonnes

1 réponse

Discussions similaires