Discussion :

[RussellD]

Bonjour tout le monde,

J'aimerais combiner la fonction VLookup (RechercheV) et SUM en VBA, le but étant de sommer toutes les valeurs d'une feuille corrsepondantes à une donnée précise.

Il y a un fichier exemple ci joint pour illustrer mon propos :
-1ere colonne des valeurs
-2eme colonne des listes déroulantes avec Printemps, Ete, Automne, Hiver. L'utilisateur choisit ce qu'il veut.
-A côté un tableau dans lequel j'aimerai qu'apparaissent les sommes totales pour chaque donnée

Je n'arrive pas à combiner efficacmeent la Recherche Verticale et la Somme... Quelqu'un sait-il comment s'y prendre? Et est-ce codable en VBA?

D'avance merci,

Cordialement

[sabzzz]

bonjour RussellD,

en cellule G2

Code :

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

=SOMMEPROD(($A$1:$A$8)*($B$1:$B$8=F2))

et recopier vers le bas.

[RussellD]

Bonjour Isabelle,

Merci beauoup pour cette réponse rapide, c'est exactement ce que je souhaitais !
J'en profite pour poser une autre question : sais-tu quelle est la syntaxe de cette fonction pour la coder en VBA? J'aimerais affecter cette formule non pas via la feuille excel, mais via VBA grâce à une commande du type

Code :

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

Range("G2").FormulaR1C1 = "=Formule que tu m'as donné"

En tout cas merci encore pour la rapidité et l'exactitude de ta réponse

Cordialement

[sabzzz]

bonjour RussellD,

Code :

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

Range("G2").Formula = "=SUMPRODUCT(($A$1:$A$8)*($A$1:$A$8=F2))"

[Fvandermeulen]

Bonjour,
Je me permets une astuce (de Djib29) pour la question:

sais-tu quelle est la syntaxe de cette fonction pour la coder en VBA

Dans un premier temps tu met ta formule dans une cellule, que tu sélectionne ensuite.
Dans la fenêtre d'exécution de VBA (Immediate) tu tappe

Code :

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

? Selection.FormulaR1C1

Ou

Code :

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

? Selection.Formula

Ou

Code :

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

? Selection.FormulaLocal

Tu auras alors la traduction suivant le type de formule que tu as demandé.

A+