Une fonction qui permet de sélectionner un range selon des critères

Bonjour,

Je suis nouveau pour VBA, j'aimerai savoir comment faire pour crée une fonction en VBA qui permet de sélectionner un range d'une façon dynamique puis faire des calcule sur le la column a cote, j'ai mis mon fichier pour vous montre un example, le debut c'est de cree une fonction qui prends deux parameters date de debut et date de fin qui donne le chiffre de produit des sales.

Merci

Bonjour,

à tester,

=SOMMEPROD((A2:A60>=E3)*(A2:A60<=F3)*(B2:B60))

Non ca marche pas

re,

à tester,

Sub test()
debut = Application.Match(Range("E3"), Range("A:A"), 0)
fin = Application.Match(Range("F3"), Range("A:A"), 0)
r = 1
For i = debut To fin
r = r * Range("B" & i)
Next
Range("F5") = r
End Sub

j'ai vraiment besoin d'une fonction ...

themindhaze a écrit :

j'ai vraiment besoin d'une fonction ...

voici un exemple,

Function MonProduit(date1, date2)
debut = Application.Match(date1, Range("A:A"), 0)
fin = Application.Match(date2, Range("A:A"), 0)
r = 1
For i = debut To fin
r = r * Range("B" & i)
Next
MonProduit = r
End Function

Merci beaucoup @i20100

J'ai une petite question, si je veux que mon range ou ya les dates et sales soient aussi des parameters de la fonction, est ce que c'est possible ?

themindhaze a écrit :

J'ai une petite question, si je veux que mon range ou ya les dates et sales soient aussi des parameters de la fonction, est ce que c'est possible ?

re,

oui, à tester,

=MonProduit(A:A;E3;F3)

Function MonProduit(RngDate As Range, date1, date2)
debut = Application.Match(date1, RngDate, 0)
fin = Application.Match(date2, RngDate, 0)
r = 1
For i = debut To fin
r = r * Range("B" & i)
Next
MonProduit = r
End Function