Discussion :

[gangsterus]

Bonjour,

Je me sers de ce topic pour continuer un peu sur le même type de question.
J'ai pensé que je pouvais utiliser cette fonction pour additionner en fonction des dates et de certains éléments et j'en arrive à ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function CalculCAMois(Annee As String, Mois As Integer, Zone As Range) As Integer
 
For Each c In Zone
If c.Offset(0, -15).Value = FrmStat.ComboStat.Value Then
If IsDate(c) Then If Year(c)=Annee Then If Month(c) = Mois Then CalculCAMois + c.Offset(0,-7).Value
End If
 
Next c
 
End Function

Mais je ne trouve pas la bonne somme...
Quelqu'un a-t-il une piste?

Merci d'avance

[pgz]

Mais je ne trouve pas la bonne somme...

Mais encore? Ne trouverais-tu pas sytèmatiquement 0?

PGZ

[DidierLoche]

Bonsoir,

Dans ton code, ne manquerait-il pas quelque chose du type "CalculCAMois = ..." !!! ?

Didier

[gangsterus]

Bonjour,

Merci pour ces réponses.
Effectivement, il manque

Code :

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

CalculCAMois = CalculCAMois + c.Offset(0, -7).Value

à la place de:

Code :

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

CalculCAMois + c.Offset(0,-7).Value

J'avais mal recopié mon code. En effet, je suis obligé de recopier le code à chaque fois car je ne travaille pas sur un pc relié à internet.
Le résultat que je devrais avoir est 93495 et j'ai 57000...

Merci d'avance si vous avez une idée

[pgz]

Le résultat que je devrais avoir est 93495 et j'ai 57000...

Merci d'avance si vous avez une idée

Première idée : CalculCAMois devrait être du type Long et non pas Integer.

PGZ

[gangsterus]

Merci pour cette remarque.
Je viens d'essayer et ça ne change rien.
Depuis vendredi, j'avais mis CalculCAMois en Currency.

Je suis toujours sur le problème mais je ne comprends pas où j'ai bien pu me tromper ou oublier quelquechose...