Etendre une macro vb

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

Afficher la suite

A voir également:

Etendre une macro vb
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Etendre ecran pc - Guide
Vb - Télécharger - Langages
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur

4 réponses

Réponse 1 / 4

tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention 435

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

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 Statut Contributeur Dernière intervention 435

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

ç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

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

Votre réponse

Discussions similaires