Methode Autofill Formule

Bonjour à tous,

Mon code est placé dans un userform qui va traité plusieurs feuilles de mon classeur.

Je voudrais étendre une formule sur une plage (vers le bas et vers la droite) ... Je voudrais l'étendre de C3 à BN &cpt ...

J'ai essayer de la manière suivante sans vain .. 8-) dois-je passer par une boucle ?

Code:

---

1 2	b.Range("C3").FormulaR1C1 = "=IF(ISBLANK(RC1),"" "",AVERAGEIF(METIER,RC1,OFFSET(CODE,,MATCH(R2C,TITRE_INDICATEURS,0)-1)))" Range("C3").AutoFill Destination:=Range("C3:BN" & cptM), Type:=xlFillDefault

---

Autre question :

Pourquoi je ne peux préciser le b. (b étant une feuille déclarée et assignée).
Je voudrais qu'il m'étende la formule de C à BN ...

Code:

---

b.Range("C" & cptM + 1).AutoFill Destination:=Range("C" & cptM + 1 & ":BN" & cptM + 1)

---

il me met que la méthode Autofill de la classe range a échoué

Cordialement

Bonjour,

Si tu écrivais ta formule en C3 pour pouvoir la copier manuellement aux autres cellules, comment l'écrirais-tu, incluant les "$" le cas échéant ?

Bonjour,

Pourquoi "AutoFill" ?

Code:

---

1 2	b.Range("C3:BN" & cptM).FormulaR1C1 = "=IF(ISBLANK(RC1),"" "",AVERAGEIF(METIER,RC1,OFFSET(CODE,,MATCH(R2C,TITRE_INDICATEURS,0)-1)))"

---

Hervé.

Salut Parmi, Theze,

Parmi, voici la formule que je met en C3 pour l'étendre sur ma plage :

Code:

---

=SI(ESTVIDE($A3);" ";MOYENNE.SI(METIER;$A3;DECALER(CODE;;EQUIV(C$2;TITRE_INDICATEURS;0)-1)))

---

Theze, c'est vrai que pour le premier cas je n'ai pas besoin du Autofill. Par contre, je souhaite faire une moyenne pondérée à la ligne n+1 (n étant la dernière ligne de ma plage).

Du coup, j'ai inscris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Etendre la formule sur ma plage (cptM est la derniere ligne) b.Range("C3:BN" & cptM).FormulaR1C1 = "=IF(ISBLANK(RC1),"" "",AVERAGEIF(METIER,RC1,OFFSET(CODE,,MATCH(R2C,TITRE_INDICATEURS,0)-1)))"     'Calcul de l'effectif par métier et l'étend à la dernière ligne b.Range("B3:B" & cptM).FormulaR1C1 = "=IF(ISBLANK(RC1),"" "",COUNTIF(METIER_PL_Dynamique,Moyenne!RC[-1]))" ' Range("B3").AutoFill Destination:=Range("B3:B" & cptM), Type:=xlFillDefault b.Range("B3:B" & cptM).NumberFormat = "#,##0"   ' 'Calcul de la moyenne ponderée à la ligne n+1 b.Range("C" & cptM + 1).FormulaR1C1 = "=SUMPRODUCT(R3C:R" & cptM & "C,R3C2:R" & cptM & "C2)/SUM(R3C2:R" & cptM & "C2)" Range("C" & cptM + 1).AutoFill Destination:=Range("C" & cptM + 1 & ":BN" & cptM + 1)

---

Le problème ici c'est que ma moyenne pondérée ne s'étend pas du tt sur la plage souhaitée ( De "C" & cptM + 1 & ":BN soit la ligne suivant la dernière). Elle s'applique uniquement à C & cptM+1.

Bonjour,

Chez moi ça fonctionne mais comme ça fait référence à des plages nommées j'ai les valeurs d'erreur #NOM? ce qui est logique mais la formule SommeProd (ici en colonne J) est bien copiée jusqu'à la colonne BN :

Code:

---

1 2	=SOMMEPROD(J$3:J$10;$B$3:$B$10)/SOMME($B$3:$B$10)

---

Tu ne parente pas certains Range, peut être que c'est dû à ça :

Code:

---

1 2	Range("C" & cptM + 1).AutoFill Destination:=Range("C" & cptM + 1 & ":BN" & cptM + 1)

---

teste la ligne de code suivante :

Code:

---

1 2	B.Range("C" & cptM + 1).AutoFill B.Range("C" & cptM + 1 & ":BN" & cptM + 1)

---

Hervé.

Salut Hervé,

Tout bêtement j'oubliais de parenté mon deuxième range dans mon code...

Je te remercie de cette précision !

Cordialement