Calcul entre deux dates Calendar

Version imprimable

Bonjour,

J'ai réalisé une petite macro sur Excel, en VB6. Le principe qui me pose problème est le suivant :
- chaque ligne comprends une date (colonne1) et une valeur (colonne5, qui peut être vide)
- les lignes sont rangées par ordre croissant des dates (de la plus ancienne à la plus récente)
- suivant une date de début (entrée dans le calendar1) et une date de fin (dans calendar2), on fait la somme des valeurs présentes entre ces 2 dates

Voici un bout de code :
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 Private Sub FaireSomme(NbrLignesRemplies) If (Calendar1.Value <= Calendar2.Value) Then deb = Calendar1.Value fin = Calendar2.Value For i = 2 To NbrLignesRemplies 'on commence par i=2 car la ligne 1 correspond aux titres des colonnes If (Not IsEmpty(Feuil1.Cells(i, 1)) And (Feuil1.Cells(i, 1) >= deb) And (Feuil1.Cells(i,1) <= fin)) Then 'on fait la somme des valeurs dans "Total" Total = Total + Feuil1.Cells(i, 5) 'Total est initialisé à 0 avant de rentrer dans la fonction LabelValeur.Caption = " Total : " & Total LabelValeur.Visible = True LabelCondition.Caption = "OK" Else LabelValeur.Visible = False CommandButtonOK.Visible = True LabelCondition.Caption = "condition non acceptée" End If Next i Else LabelCondition.Caption = "Erreur : Vérifiez que la date de début précède la date de fin." LabelCondition.Visible = True LabelValeur.Visible = False CommandButtonOK.Visible = True End If LabelCondition.Visible = True End Sub
J'ai remarqué que lorsque je rajoute une nouvelle ligne avec une date plus récente, tant que pour le calcul de la somme je n'entre pas une date de fin > ou = à cette dernière, j'obtiens "condition non acceptée". La boucle ne se réalise pas et je ne comprends pas pourquoi.
Quelqu'un aurait-il déjà une explication à cela ?

11/09/2012, 10h13
gFZT82

Bonjour,

En fait, ta boucle se réalise normalement. Le seul problème, c’est que tu ne vois pas l’indication du résultat (Total) puisque tu caches le LabelValeur lorsque la condition de date n’est pas satisfaite.

Cordialement.
11/09/2012, 11h11
KNouch

Effectivement le calcul se fait comme je voulais...je pensais qu'il était sensé se faire dans la partie où j'affiche "OK" et non dans la partie ou j'affiche "condition non acceptée"...
Enfin du coup je vais simplement échanger ces deux parties ^^

Merci beaucoup :ccool:
13/09/2012, 12h01
KNouch

Euh...en fait...tout ne fonctionne pas exactement pas je voudrais...
Si ma date de fin correspond à la dernière date de la colonne, on me signale l'erreur et non le Total
13/09/2012, 13h34
gFZT82

Bonjour,

Coté explications, c’est plutôt hyper light ! De quelle erreur parles-tu ?
Dans ton programme, il y a 2 tests :
Un premier pour vérifier que la date de début est inférieure ou égale à la date de fin ;
Dans le cas contraire, on affiche "condition non acceptée"
Un deuxième pour vérifier que la cellule scrutée en colonne A n’est pas vide et que la date inscrite dans cette cellule est bien comprise entre la date de début et la date de fin.
Dans le cas contraire, on affiche "Erreur : Vérifiez que la date de début précède la date de fin."

A tout hasard, tu peux vérifier que NbrLignesRemplies est bien égal au numéro de ligne d’une cellule qui satisfait aux conditions. Dans le cas contraire, tu obtiens naturellement l’affichage "condition non acceptée".

Cordialement.
13/09/2012, 14h48
KNouch

En fait c'est l'inverse (ou du moins ce que je cherche à faire) :
- la première condition teste bien si la date de début est inférieure ou égale à la date de fin, mais dans le cas contraire j'affiche "Erreur : Vérifiez que la date de début précède la date de fin."
- la deuxième condition vérifie que la cellule scrutée en colonne A n’est pas vide et que la date inscrite dans cette cellule est bien comprise entre la date de début et la date de fin, je suis d'accord, mais c'est là qu'est mon problème...
En fait je voudrais que la date de fin soit aussi inclue dans les calculs or ce n'est pas le cas ! :(

Est-ce moins light ? ^^

J'ai relue ce que je viens d'écrire et ce n'est pas exactement ça...

Cette la dernière date de la colonne A qui n'est pas prise en compte, du coup, jamais je n'arrive à calculer mon Total complet.
13/09/2012, 14h53
gFZT82

Excuses-moi pour le libellé des erreurs, mes doigts ont fourchés.
Mais tu ne réponds pas à ma question : quelle est l’erreur signalée ?
As-tu vérifié la valeur de NbrLignesRemplies ?
De plus, il y a quand même des bizarreries dans ton programme.
Lorsque tu rencontres une cellule qui ne remplit pas la condition multiple "cellule non vide et date comprise date de début et date de fin", tu affiches "condition non acceptée".
Le problème, c’est que ta boucle ne va pas s’arrêter pour autant et lors de l’itération suivante, le message sera effacé.
Tu as donc 2 solutions :
Si tu souhaites interrompre le programme lorsque la condition n’est pas satisfaite, il te faut ajouter un Exit Sub, afficher le message d’alerte et cacher le total.
Si tu souhaites quand même effectuer le calcul du total, il te faut afficher le message d’alerte et afficher le total.

Cordialement.
13/09/2012, 15h39
KNouch

Je m'excuse également, j'ai vraiment du mal à expliquer ce que je vois, ce je souhaite et ce que le programme fait...

A en faire plusieurs essais, je n'arrive pas à comprendre comment fonctionne mon propre programme (et c'est vexant :/ )
Si la 2e condition est respectée, normalement on devrait passer dans la partie entre le "If" et le "Else" uniquement, et non dans la partie du "Else". Là j'ai la nette impression de passer dans les deux... Je ne comprends plus mon propre programme !! :cry:

Pour répondre aux questions :
- l'erreur signalée est "condition non respectée"
- la valeur de NbrLignesRemplies correspond bien au numéro de la dernière ligne remplie

Peux-tu essayer comme cela et me dire le résultat obtenu ?

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
Sub FaireSomme(NbrLignesRemplies)
    deb = Calendar1.Value
    fin = Calendar2.Value
    'On déclare les valeurs par défaut
    LabelValeur.Visible = True
    LabelCondition.Visible = True
    CommandButtonOK.Visible = False
    If deb <= fin Then
        For i = 2 To NbrLignesRemplies
            If (Not IsEmpty(Feuil1.Cells(i, 1)) And (Feuil1.Cells(i, 1) >= deb) And (Feuil1.Cells(i, 1) <= fin)) Then
                Total = Total + Feuil1.Cells(i, 5)
            Else
                'Si la condition multiple n'est pas satisfaite, on cache le total, on affiche le bouton OK, _
                on affecte le message d'alerte et on sort du programme.
                LabelValeur.Visible = False
                CommandButtonOK.Visible = True
                LabelCondition.Caption = "condition non acceptée en ligne " & i
                Exit Sub
            End If
        Next i
        LabelCondition.Caption = "OK"
        LabelValeur.Caption = "  Total : " & Total
    Else
        'Si l'ordre des dates n'est pas correct, on cache le total, on affiche le bouton OK, _
        et on affecte le message d'alerte.
        LabelValeur.Visible = False
        CommandButtonOK.Visible = True
        LabelCondition.Caption = "Erreur : Vérifiez que la date de début précède la date de fin."
    End If
End Sub

Cordialement.

13/09/2012, 16h32
KNouch

J'ai essayé votre solution.
Peu importe les dates que je rentre j'obtiens toujours LabelCondition = "OK" et le bouton "OK" visible (sauf si bien sûr la date de fin est antérieure à la date de début).

Je rectifie, j'ai fait une erreur d'inattention en mettant "End For" et non "End Sub"...
Du coup, j'obtiens toujours le bouton "OK" visible.
LabelCondition = "condition non respectée en ligne 2" si la date d'entrée est supérieure à la première date
Sinon, LabelCondition = "condition non respectée en ligne ligne après la date de fin (donc hors plage, donc normal)"
13/09/2012, 16h55
gFZT82

Citation:

Du coup, j'obtiens toujours le bouton "OK" visible.

Oui mais encore, normal ou pas ?

Citation:

LabelCondition = "condition non respectée en ligne 2" si la date d'entrée est supérieure à la première date

Qu'est-ce que tu appelles "date d'entrée" et "première date" ?
Si "date d'entrée" est la date de la ligne 2 de la colonne A et "première date" est deb, ce n'est pas normal. Cela peut vouloir dire que deb et fin sont mal déclarées.

Citation:

Sinon, LabelCondition = "condition non respectée en ligne ligne après la date de fin (donc hors plage, donc normal)"

C'est rassurant !
13/09/2012, 17h05
KNouch

Non, la date d'entrée est pour moi la date de début. La première date est la date de la première ligne (ligne 2)
13/09/2012, 17h12
gFZT82

Donc tu obtiens LabelCondition = "condition non respectée en ligne 2" si la date de début (deb) est supérieure à la date de la première ligne (ligne 2).
Ce qui est tout à fait normal.