Traduction formule Excel en VBA

Bonjour a tous,

#Contexte
Dans le cadre d'une étude de marché , j'ai une base de donnée organisée de la manière suivante:
Prix | Surface | Px/Surface | Px/Surface Moyen de la ville |Ville
100.000 50 | 2.000 | 4.000 | Paris
200.000 50 | 4.000 | 4.000 | Paris
300.000 50 | 6.000 | 4.000 | Paris
500.000 100 | 5.000 | 6.000 | Marseille
600.000 100 | 6.000 | 6.000 | Maseille
700.000 100 | 7.000 | 6.000 | Marseille

#Objectif
Je souhaite Afficher automatiquement le px/Surface Moyen de la ville par VBA dans la cellule correspondante.

#Demande d'aide:
Voici le code que j'ai pour le moment rédigé:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim Derlig As Integer, Q As Integer Dim City As String, Dercity As String Derlig = Range("A" & Cells.Rows.Count).End(xlUp).Row City = Sheets(1).Range("f2") Dercity = Sheets(1).Range("f2") For Q = 1 To Derlig Do Until Dercity <> City Dercity = Sheets(1).Range("f" & Q) Q = Q + 1 Loop Q = Q - 2 Sheets(4).Range("A1") = City Sheets(4).Range("A2") = Application.WorksheetFunction.SumIf(Sheets(1).Range("F1:F" & Q), "Paris", (Sheets(1).Range("C1:C" & Q)) / Sheets(1).SumProduct((Sheets(1).Range("F1:F" & Q) = "Paris") * (Sheets(1).Range("C1:C" & Q > 0))))
La ligne Application.WorksheetFunction ne fonctionne pas, bien que la formule ci dessous fonctionne dans la cellule excel:

Code:

=SOMME.SI($F$1:$F$4;"Paris";$C$1:$C$4)/SOMMEPROD(($F$1:$F$4="Paris")*($C$1:$C$4>0))

Pouvez-vous revoir le code s'il vous plait ? Je suis également preneur si vous avez une meilleur méthode pour arriver à mes fins.

Merci d'avance pour votre aide.
.
Cdt,
Mandra

Salut, à consulter :

Ecrire une formule dans Excel à l'aide d'une procédure VBA
Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

Citation:

Envoyé par Mandragore99

Code:

=SOMME.SI($F$1:$F$4;"Paris";$C$1:$C$4)/SOMMEPROD(($F$1:$F$4="Paris")*($C$1:$C$4>0))

Il y a plus simple :

Code:

=MOYENNE.SI($F$1:$F$4;"Paris";$C$1:$C$4)

Salut

Perso, je préfère, depuis 2007, travailler avec MOYENNE.SI.ENS (MOYENNE.SI étant pour moi obsolète dès sa création). A mon estime, SOMME.SI, MOYENNE.SI et NB.SI ne doivent être utilisés que pour la compatibilité avec les anciennes versions (2003 et antérieures).

Ca permet plus de critères et on est régulier dans la saisie des critères, car MOYENNE.SI inverse les critères par rapport à MOYENNE.SI.ENS:
MOYENNE.SI.ENS: Plage moyenne, plage critère 1, critère1, [plage critère 2, Critère 2], ...);
MOYENNE.SI: Plage Critère, Critère, [Plage Moyenne].

Code:

=MOYENNE.SI.ENS($C$1:$C$4:$F$1:$F$4;"Paris")

Pour bien transposer ces formules Excel en VBA, tu peux saisir la formule souhaitée en Excel, puis dans la fenêtre d'exécution du VBE (CTRL+G pour l'afficher), tu saisis ? activecell.formula pour l'obtenir en anglais. Je déconseille vivement d'utiliser FormulaLocal pour créer ses formules en Excel.