Code qui ne donne pas la bonne somme

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:

---

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

Citation:

---

Envoyé par gangsterus

Mais je ne trouve pas la bonne somme...

---

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

PGZ

Bonsoir,

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

Didier

Bonjour,

Merci pour ces réponses.
Effectivement, il manque

Code:

---

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

---

à la place de:

Code:

---

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

Citation:

---

Envoyé par gangsterus

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

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...

Citation:

---

Envoyé par gangsterus

Depuis vendredi, j'avais mis CalculCAMois en Currency....

---

Si le code que tu donnes n'est pas le bon, il ne va pas être facile de t'aider.

Deuxième idée : Pourquoi Annee est de type string?

PGZ

Merci pour ton aide.
On réfléchit ensemble, c'est marrant, je viens de changer l'année en Integer.
Mais je pense que le problème vient du mois.
J'ai essayé de changer "Mois" par "1" et ça me donne le bon chiffre...
Reste à comprendre pourquoi

Citation:

---

Envoyé par gangsterus

J'ai essayé de changer "Mois" par "1" et ça me donne le bon chiffre...
Reste à comprendre pourquoi

---

Il faudrait voir le code qui appelle la fonction.

PGZ

Voici le code:

Code:

---

1 2 3 4 5 6 7 8

FrmStat.ComboAnneeStat.Value = "2008"   FrmStat.IntCA01.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 1, Range(PlageStats)) FrmStat.IntCA02.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 2, Range(PlageStats)) FrmStat.IntCA03.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 3, Range(PlageStats)) FrmStat.IntCA04.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 4, Range(PlageStats))

---

Etc.

Merci pour ton aide

Tu voulais dire quoi par :

Citation:

---

Envoyé par gangsterus

J'ai essayé de changer "Mois" par "1" et ça me donne le bon chiffre...

---

puisque c'est déjà 1, 2, 3, ...?

PGZ

J'ai remplacé dans:

Code:

---

If Month(c) = Mois

---

Mois par "1".
Mais je ne comprends pas pourquoi ça fonctionne dans ce cas là.

Bon, je reconnais que je suis un boulet :traine:
Et que j'ai monopolisé le temps de certains pour une bêtise. Je vous présente toutes mes confuses.
Je ne sais pas si je peux oser dire ce qui n'allait pas... :oops:

Bon allez, si, je vais mais pas taper svp.

J'ai fait fonctionner la fonction pour chaque mois de l'année.

Code:

---

1 2 3 4

FrmStat.IntCA01.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 1, Range(PlageStats)) FrmStat.IntCA02.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 2, Range(PlageStats)) FrmStat.IntCA03.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 3, Range(PlageStats)) FrmStat.IntCA04.Caption = CalculCAMois(FrmStat.ComboAnnee.Value, 4, Range(PlageStats))

---

...
mais je n'avais pas changé le nom des labels.
J'avais donc le chiffre du mois de décembre dans le label IntCA01 qui était prévu pour recevoir le chiffre du mois de janvier...

:dehors: