Creation d'une formule avec une selection de cellule
Bonjour,
J'essaie de créer une formule qui prend deux paramètres :
Le 1er est une date
Le 2eme est une plage de cellule dans une feuille différente.
Cette formule va recherche des sommes dont le mois de la date de saisie de la piece correspond au mois de la date saisie dans ma feuille de calcul
Pouvez vous m'aider SVP ?
Merci par avance.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| Sub SommePeriode()
End Sub
Function SOMME_SI_PERIODE(MoisEnCours As Range, PlageSomme As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim SommeLigne
Dim Somme As Double
Dim Mois As Integer
Mois = Range(MoisEnCours) 'On valorise la variable "Mois" par la valeur (Date) dans la cellule "MoisEnCours"
If PlageSomme.Cells.Count > 1 Then
SOMME_SI_PERIODE = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Rows.Hidden = False Then 'Si la ligne est masquée ne pas prendre en compte dans le calcul de la somme
If Month(Cel.Offset(0, 1)) = Month(Mois) Then SommeLigne = Range(Cel.Offset(0, 13)) - Range(Cel.Offset(0, 14)) 'Additionne les sommes de la même ligne si la cellule est de la même période que la cellule du Mois en cours
Somme = Somme + SommeLigne 'Additionne les sommes de la ligne avec celles précédentes
End If
Next
SOMME_SI_PERIODE = Somme
End Function |
