Discussion :

[QuestVba]

Hello Forum,
Je ma prends la tête avec cette bête formule que j'essaie de mettre en VBA et que nenni ... j'en suis là

Mon but:
Compter le nombre de dossiers différents (en G) pour un agent (en F) et selon le mode 'Mails' (en H)

Ma formule :

Code :

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

=SOMMEPROD((F2:F10="LIONEL MOIMOI")*(H2:H10="Mails")*(G2:G10<>"")/NB.SI(G2:G10;G2:G10&""))

Si quelqu'un peut me mettre sur la piste, ce serait très ... très.
Un grand merci...

[Pierre Fauconnier]

Salut.

Rédige la formule dans Excel puis regarde-la en VBA dans la fenêtre d'exécution. Tu pourras ainsi voir comment elle est construite en VBA (cellule active : cellule de la formule, dans la fenêtre d'exécution, saisir ? activecell.formula)

Voici une fonction en VBA qui fait cela, sur base, bien sûr, d'une table de données qui est plus facile à gérer en VBA car tu n'as pas à redéfinir les bornes à chaque fois...

[QuestVba]

Pierre
Encore une fois tu es une .
J'avais utilisé l'enregistreur et il me donnait ceci :

Code :

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

1
2
Selection.FormulaArray = _
        "=SUMPRODUCT((R[-2]C[-6]:R[6]C[-6]=""CHRISTOPHE ROLAND"")*(R[-2]C[-4]:R[6]C[-4]=""Mails"")*(R[-2]C[-5]:R[6]C[-5]<>"""")/COUNTIF(R[-2]C[-5]:R[6]C[-5],R[-2]C[-5]:R[6]C[-5]&""""))"

Mais en essayant de l'adapter, je me suis trompé dans les guillemets et j'avais oublié une partie '(tableau2[Dossier]<>""""' dans le SOMPRODUCT. Erreur fatale évidemment.
Ce qui me fait d'autant plus râler, c'est qu'à force, on a l'impression d'être dans le bon et ... ben non.
Encore un grand merci pour ce coup de pouce.