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

[pgz]

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

[gangsterus]

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

[pgz]

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

[gangsterus]

Voici le code:

Code :

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

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

[pgz]

Tu voulais dire quoi par :

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

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

PGZ

[gangsterus]

J'ai remplacé dans:

Code :

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

If Month(c) = Mois

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

[gangsterus]

Bon, je reconnais que je suis un boulet
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...

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

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

Code :

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

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