Discussion :

[Cedric222]

Bonjour tout le monde, je suis nouveau dans la programmation VBA et sur le forum. J'essaie de programmer une fonction fnAmende(PlageDeDates) qui calcule le montant d’amende pour une liste de livres empruntés à la bibliothèque.
L’amende doit être calculée en multipliant le nombre total de jours en retard par rapport à la date du jour (fournie par la fonction Date()).
Pseudocode de base (vous pouvez le bonifier) :
Pour chaque cellule de la plage :

Si (aujourd’hui – cellule) > 0
fnAmende = fnAmende + ((aujourd’hui – cellule)* AmendeUnitaire)
Fin Si

Boucler

Merci de m'aider

[Invité]

Bonjour,

Regarde l'instruction datedif.

Pourquoi tester si nombre de jours supérieurs à zéro?

AmendeUnitaire * 0 = 0?

[Menhir]

Pour chaque cellule de la plage :
Si (aujourd’hui – cellule) > 0
fnAmende = fnAmende + ((aujourd’hui – cellule)* AmendeUnitaire)
Fin Si
Boucler

Ceci peut se faire sans VBA.
Il suffit de mettre la fonction que tu décris à chaque ligne de livre emprunté en utilisant les fonctions SI() et AUJOURDHUI().
Ensuite, si tu veux connaitre l'amende totale pour une personne, tu utilises la fonction SOMME.SI.ENS().

[BENNASR]

Bonjour à tous
* D'abord il faut formater le montant unitaire de l'amende en Monétaire et non pas un format personnalisé ou tu concatène le montant et le sigle dollars !! ça va pas te permettre de faire la multiplication
* Voila un bout de code commenté par un débutant VBA

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
Option Explicit
Sub calcAmende()
Dim dernligne As Long
Dim plage As Range
Dim cel As Range
Dim JourRetard As Variant
Dim Amende As Variant
Dim Ws As Worksheet
Set Ws = Worksheets("Feuil1")
dernligne = Ws.Range("A" & Rows.Count).End(xlUp).Row ' rechercher dernière ligne non vide
'éfacer ancien données du colonne Amende
 Ws.Range("F2:F" & dernligne).Select
Selection.ClearContents
  ' Calculer Amende
Set plage = Ws.Range("E2:E" & dernligne) ' la colonne E ou se trouve la date ultime de restitution du bouquin
Application.ScreenUpdating = False ' arrêt de l'affichage écran juste pour accélérer le temps d'exécution de la commande
    For Each cel In plage 'recherche dans tous les cellule
        If cel < Date Then 'si la date qui se trouve à la colonne E est inférieur à la date d'aujourd'hui Alors
        JourRetard = Date - CDate(cel) 'Nombre des jours de retard égal à la date d'aujourd'hui - date de restitution
        Amende = JourRetard * CDbl(Cells(cel.Row, 4)) ' Amende = Nombre jour de retard * la valeur de l'amende figurant dans la colonne 4
        Cells(cel.Row, 6) = Amende 'Enregistrer la valeur de l'amende dans la colonne 6
        End If 'fin condition
    Next cel 'cellule suivante
    Application.ScreenUpdating = True 'reprise de l'affichage de l'écran arreté ci haut
End Sub

Bonne continuation

[Cedric222]

Bonjour,

Regarde l'instruction datedif.

Pourquoi tester si nombre de jours supérieurs à zéro?

AmendeUnitaire * 0 = 0?

[Cedric222]

dysorthographie En fait lorsque si nombre de jour supérieur a zéro il doit prendre une amende!! mais si le membre remet le livre avant ou la date butoir il prend pas d'amende.

Menhir oui c'est possible de faire ca avec une fonction si, mais on me demande de le faire avec VBA.

BENNASR Merci beaucoup ca fonctionne très bien

[Invité]

Bonsoir,
Alors

Code :

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

1
2
joursPenalite=-6
Amande=Amande + iif(joursPenalite<1,0,AmendeUnitaire  *joursPenalite)

[Cedric222]

dysorthographie parfait, Merci beaucoup, je viens d'essayer et ca fonctionne très bien.

[eriiic]

Bonjour,

n'oublie pas de leur communiquer la date de tes examens qu'ils puissent se libérer ;-)
eric