XL 2016 Calculer la durée et le montant

[Bobleesouf]

Bonjour,

J'ai commencé un travail mais j'ai besoin de votre soutien par ce que je suis débuter,
J'ai utiluser un Macro pour ajouter le matricule après click sur le bouton 2, le matricule s'ajoute automatiquement à la feuil : Liste mais je veux que la date et l'heure s'ajoute aussi automatiquement.
après, et sur le formulaire Sortie, il suffit de saisie le matricule, cliquer sur le bouton "Sortie" et afficher (Date et Heure d'entrée + Date et Heure de sortie + et calculer le montant de stationnement automatiquement par rapport les tarifs (Feuil Tarifs).

et Merci à vous infiniment.

 

[sylvanu]

Bonjour Bobleesouf,
Votre macro me semble bien compliquée.
Un essai en PJ avec pour Entrée :

Sub Entrée()
With Sheets("Liste")
    .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Range("A2:C2") = Range("C9:E9").Value
    .Range("D2") = Now
    Range("C9:E9").ClearContents
    Range("I8:K8").ClearContents
    Range("J10:K12").ClearContents
End With
End Sub

et pour Sortie :

Sub Sortie()
With Sheets("Liste")
    DL = .[A65000].End(xlUp).Row
    Range("J8:K8").ClearContents
    Range("J10:K12").ClearContents
    For L = 2 To DL
        If .Cells(L, "A") = [I8] And .Cells(L, "E") = "" Then
            .Cells(L, "E") = Now
            .Cells(L, "F") = .Cells(L, "E") - .Cells(L, "D")
            [J8] = .Cells(L, "B")
            [K8] = .Cells(L, "C")
            [J10] = .Cells(L, "D")
            [J12] = .Cells(L, "E")
            Exit For
        End If
    Next L
End With
End Sub

Il vous reste à traiter le prix car on n'a aucune règle sur ce point.

 

[Bobleesouf]

sylvanu​

XLDnaute Barbatruc​

Merci beaucoup ça marche très bien.
Une question concernant le prix : il y a pas de formule (par exemple la formule Si) qui peux nous donnez le prix ?
Si la durée ne dépasse pas 1 heure alors le prix égale à 5,00
si la durée est entre 1:01 heure et 3 heures => 7,00
entre 03:01 heure et 6 heure => 12,00
DE 07:00 HEURES DU MATIN A 19 :00 HEURES => 15,00
DE 19 :00 HEURES DU SOIR 07 :00 HEURES DU MATIN => 20,00
PERIODE DE 24 HEURES => 25,00

 

[sylvanu]

Bonsoir,
Un essai en PJ.
J'ai mis le calcul de la somme dûe en formule en page Tarifs.
A noter qu'il manque un tarif, si >6H et <24H. J'ai mis arbitrairement 14DH. Et mis à jour le VBA en conséquence.
Mais les formules sont simples à modifier si nécessaire.

 

[Bobleesouf]

Bonjour,
Voilà, j'ai changé un peu la tarification pour s'adapter avec les formule, je veux juste ajouter une option d'impression des tickets :
- une ticket d'entrée chaque fois on ajoute un nouveau matricule (exemple du ticket et sur la feuil "ticket".
- Une ticket de sortie (exemple du ticket : "Feuil Ajoute H6:N14").

Merci d'avance

 

[sylvanu]

Bonjour,
Pour l'impression d'une zone, il suffit de faire :

Sub Impression()
With Sheets("Ticket")                       ' Choix de la feuille
    .PageSetup.PrintArea = "$B$6:$F$12"     ' Zone à imprimer
    .PrintOut                               ' Impression
End With
End Sub

Code qu'il vous faut inclure là où vous voulez imprimer.

 

[Bobleesouf]

Rebonjour,
çaaa marche très bien, merciii beaucoup.
Dernière question, est ce que je peux protéger les feuilles "Liste" "Tarifs" " Ticket", pour interdire la modification manuelle sans bloquer l'exécution des macros ?

 

[sylvanu]

Re,
La feuille Tarifs n'étant pas accéder par le VBA, il vous suffit de faire une protection classique avec "Protéger la feuille"
Pour les autres feuilles, en début de macro vous faites :

Sheets("Feuil1").Unprotect "MotDePasse"

en fin de macro :

Sheets("Feuil1").Protect "MotDePasse"

En changeant le nom de la feuille, et évidemment le mot de passe

 

[Bobleesouf]

Bonjour sylvanu,​

J'ai un truc à ajouter sur la feuille "liste" s'il est possible :
Je veux ajouter une colonne H "Estimation", c'est a dire pour les voitures qui ne sont pas encore sortie de calculer l'estimation du prix par rapport "Maintenant" ?

Cordialement.

 

[sylvanu]

Bonjour,
Un essai en PJ avec :

Sub Estimation()
    For L = 2 To [D65000].End(xlUp).Row
        If Cells(L, "D") <> "" And Cells(L, "E") = "" Then
            Sheets("Tarifs").Range("C13") = Cells(L, "D")
            Sheets("Tarifs").Range("C14") = Now
            Calculate
            Cells(L, "H") = Format([Estimée], "0.00 DH")
        End If
    Next L
End Sub

 

[Bobleesouf]

You are a LEGEND
Merci infiniment.