Etendre une macro vb

Fermé

fred - 29 avril 2005 à 09:55
fred - 29 avril 2005 à 11:21

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.

A voir également:

Etendre une macro vb
Macro word - Guide
Vb cable - Télécharger - Audio & Musique
Macro logiciel - Télécharger - Organisation
Etendre ecran pc - Guide
Vb - Télécharger - Langages

4 réponses

Réponse 1 / 4

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
29 avril 2005 à 10:20

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+

Réponse 2 / 4

fred
29 avril 2005 à 10:27

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

Réponse 3 / 4

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
29 avril 2005 à 10:56

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

Réponse 4 / 4

fred
29 avril 2005 à 11:21

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

Discussions similaires

Etendre mise en forme conditionnée sous excel

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

Discussions similaires

Newsletters