Discussion :

[Coxtox]

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 .. dois-je passer par une boucle ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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 ?

[Theze]

Bonjour,

Pourquoi "AutoFill" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Hervé.

[Coxtox]

Salut Parmi, Theze,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

teste la ligne de code suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Hervé.

[Coxtox]

Salut Hervé,

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

Je te remercie de cette précision !

Cordialement