XL 2010 Affecter Formule à 1 variable

[cp4]

Bonjour,

Je voudrais récupérer le résultat d'une formule (ci-dessous) dans une variable.

Sub Macro3()  'fonctionne parfaitement
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(Tbd[NbClas],Tbd[Centre],""les chardons"",Tbd[Départ],"">=1/04/2024"",Tbd[Retour],""<=22/04/2024"")"
End Sub

J'ai fait ceci

Sub test()
Dim somme As Double  'Tbd nom du tableau structuré
somme=worksheetfunction.SumIfs(Tbd[NbClas],Tbd[Centre],"les chardons",Tbd[Départ],">=1/04/2024",Tbd[Retour],"<=22/04/2024")
End Sub

Mais une erreur de compilation, je ne comprends pourquoi.

Merci de m'aider.

 

[cp4]

J'ai réussi à ne plus avoir l'erreur de compilation mais le résultat exact n'est pas au RDV.
Je joins un fichier car en fait, je voudrais faire un calcul entre 2 dates à partir de 2 combos.

Edit: fichier remplacé. Fonctionne comme souhaité.

 

[job75]

Bonjour cp4,

Il faut faire évaluer les 4 plages en les mettant entre crochets.

Par ailleurs il faut mettre les 2 dates de référence au format US mm/dd/yyyy :

somme = WorksheetFunction.SumIfs([Tbd[NbClas]], [Tbd[Centre]], "les chardons", [Tbd[Départ]], ">=04/01/2024", [Tbd[Retour]], "<=04/22/2024")

A+

 

[cp4]

Bonjour cp4,

Il faut faire évaluer les 4 plages en les mettant entre crochets.

Par ailleurs il faut mettre les 2 dates de référence au format US mm/dd/yyyy :

somme = WorksheetFunction.SumIfs([Tbd[NbClas]], [Tbd[Centre]], "les chardons", [Tbd[Départ]], ">=04/01/2024", [Tbd[Retour]], "<=04/22/2024")

A+

Bonjour @job75 😉,

Toujours efficace. fonctionne très bien.
Il faut aussi convertir les dates au format US. Je ne sais pas si tu as jeté un coup d’œil au fichier mon Post#2.
Les critères sont dans des comboboxs, je dois convertir ce qui se trouve dans les combo dates au format US?

Merci beaucoup.