Somme.si.ens dans une macro

Bonjour à tous,

Me voici avec un nouveau soucis sur lequel je m'arrache les cheveux depuis quelques jours.... J'ai beau avoir recherché des solutions ici et dans différents autre site, je ne trouve pas de quoi résoudre mon problème ou alors c'est que je n'ai pas les yeux en face des trous :aie:

j'ai sur un onglet en colonne A un intitulé du type "W1171039" qui peuvent se répéter plusieurs fois sur plusieurs lignes et en colonne B des valeurs numérique.

J'ai réussi à extraire en colonne F les intitulés de la colonne A sans qu'il y ai de doublons :D
ce que je souhaite, c'est que via une macro, je puisse calculé, dans la colonne G" la somme des valeurs en Colonne B.
J'arrive à créer le cycle qui me fait le tour des différentes ligne mais comme résultat j'ai systématiquement "#DIV/0!"... j'ai bien capté où était le problème, mais impossible de trouver comment le corriger.

Voici mon code VBA

Code:

---

1 2 3 4 5 6 7 8 9

Dim Derligne As Integer Dim I As Long   Derligne = Range("F" & Rows.Count).End(xlUp).Row   For I = 2 To Derligne Range("G2:G" & Derligne).FormulaLocal = "=MOYENNE.SI.ENS(B:B;A:A;""F"" & I)" Next

---

Mon problème se trouve quand je cherche à aller chercher la référence de la cellule à comparer ==> en rouge et Gras

Code:

---

"=MOYENNE.SI.ENS(B:B;A:A;""F"" & I)"

---

En effet, quand mon code s'exécute, je retrouve afficher dans ma cellule "=MOYENNE.SI.ENS(B:B;A:A;"F" &@ I)" alors que je devrais avoir "=MOYENNE.SI.ENS(B:B;A:A;F2)"

Si quelqu'un savait comment me dépanner, ça serait royal.

Merci par avance

Bonjour,

plutôt comme ceci ?

Code:

---

Range("G2" & Derligne).FormulaLocal = "=MOYENNE.SI.ENS(B:B;A:A;F" & I & ")"

---

Citation:

---

Envoyé par joe.levrai

Bonjour,

plutôt comme ceci ?

Code:

---

Range("G2" & Derligne).FormulaLocal = "=MOYENNE.SI.ENS(B:B;A:A;F" & I & ")"

---

---

Merci de te pencher sur mon cas.

Alors, c'est en effet une bonne orientation

Avec le code suivant

Code:

---

1 2 3 4 5 6 7 8

Dim Derligne As Integer Dim I As Long   Derligne = Range("F" & Rows.Count).End(xlUp).Row   For I = 2 To Derligne Range("G2:G" & Derligne).FormulaLocal = "=MOYENNE.SI.ENS(B:B;A:A;F" & I & ")" Next

---

Ca avance grandement, du moins pour la 1ère ligne en mode partiel...
la formule s'affiche correctement, sauf qu'elle prend comme référence la dernière ligne de comparatif, du coup les lignes suivantes se retrouve avec rien à comparer et je me retrouve de nouveau avec des "#DIV/0!"... ce qui pour le coup est logique.

Bon, en fin de compte, à force de chercher j'ai réussis à résoudre mon problème, avec la ligne de code suivante...

Code:

---

1 2 3

For I = 2 To Derligne Range("G" & I).FormulaLocal = "=MOYENNE.SI.ENS(B:B;A:A;F" & I & ")" Next

---

Du coup, problème résolu.:)