Discussion :

[Invité]

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 :

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

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

[Philippe Tulliez]

Bonjour,
Est-ce une obligation de passer par une fonction VBA ?
D'après tes explications, l'utilisation de la fonction native d'excel SOMMEPROD pourrait parfaitement répondre à ton attente

[riaolle]

Bonjour,

Si on s'intéresse au code, il y a quelques incohérences au niveau des déclarations de variables notamment.

MoisEnCours est un Range, et plus loin, tu écris Range(MoisEnCours). Il faut utiliser directement MoisEnCours comme un Range. Par exemple, si tu veux récupérer la valeur de MoisEnCours, tu écris :

Code :

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

valeur = MoisEnCours.Value

Tu déclares Mois comme un Integer, mais tu veux lui attribuer un Range (cf. Mois = Range(MoisEnCours) ). Si tu veux récupérer la valeur de MoisEnCours qui est a priori un Integer, alors tu fais comme je dis au-dessus:

Code :

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

Mois = MoisEnCours.Value

Tu écris la condition If PlageSomme.Cells.Count > 1 et tu sors de la fonction si cette condition est vérifiée, puis tu fais une boucle sur la plage de cellules : For Each Cel In PlageSomme. Cette boucle me fait croire que tu veux que la plage de cellules contienne plus d'une cellule, ce qui est l'inverse de ce que tu vérifies avec ta condition. Est-ce que mon interrogation est bien claire?
Ne serait-ce pas plutôt, si la plage de cellules ne contient qu'une seule cellule, alors on sort de la fonction?

Bon, après, il faut aussi prendre en compte la remarque de Philippe Tulliez
Bon courage!

[Invité]

Merci Philippe Tulliez, je ne connaissait pas cette formule, elle me semble tout a fait approprié.

Merci aussi à Riaolle, je vais creuser, grâce a tes explications, cela m entrainera pour mieux comprendre le langage VBA.