Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Calculer la durée et le montant

B

Bobleesouf

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

Pièces jointes

  • Calcule Stationnement.xlsm
    21.2 KB · Affichages: 2
Solution
Bonjour,
Pour l'impression d'une zone, il suffit de faire :
VB: 
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.
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Bobleesouf,
Votre macro me semble bien compliquée.
Un essai en PJ avec pour Entrée :
Code: 
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 :
Code: 
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.
 

Pièces jointes

  • Calcule Stationnement.xlsm
    25 KB · Affichages: 5
Vote positif 0 Vote négatif
B

Bobleesouf

XLDnaute Nouveau

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
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Calcule Stationnement (2).xlsm
    26.9 KB · Affichages: 5
Vote positif 0 Vote négatif
B

Bobleesouf

XLDnaute Nouveau
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
 

Pièces jointes

  • Calcul Stationnement 02 (003).xlsm
    26.3 KB · Affichages: 5
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Pour l'impression d'une zone, il suffit de faire :
VB: 
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.
 
Vote positif 0 Vote négatif
Solution
B

Bobleesouf

XLDnaute Nouveau
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 ?
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB: 
Sheets("Feuil1").Unprotect "MotDePasse"
en fin de macro :
Code: 
Sheets("Feuil1").Protect "MotDePasse"
En changeant le nom de la feuille, et évidemment le mot de passe
 
Vote positif 0 Vote négatif
B

Bobleesouf

XLDnaute Nouveau

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.
 

Pièces jointes

  • Calcul Stationnement 02 (003).xlsm
    26.3 KB · Affichages: 1
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Un essai en PJ avec :
VB: 
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
 

Pièces jointes

  • Calcul Stationnement 02 (003).xlsm
    29.4 KB · Affichages: 4
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question
XL 2010 automatiser le calcul de la prime
Réponses
6
Affichages
478
TooFatBoy
V
  • Question
XL 2016 Durée entre deux horaires de cellules non vides en TCD
Réponses
2
Affichages
396
Vincent C
V
C
  • Question
XL 2016 Comment faire une fonction fréquence avec un critère de date
Réponses
3
Affichages
508
sylvanu
E
  • Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
537
RyuAutodidacte
  • Résolu(e)
XL 2013 Effacer le contenu si la valeur n'est pas entre 13000 90000 et copier les valeurs dupliqués
Réponses
8
Affichages
186
lestoiles1
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
328
Phil69970
C
  • Résolu(e)
XL 2021 formule pour calculer nbre heures par date
Réponses
4
Affichages
564
C'est Génial
C
M
  • Résolu(e)
Microsoft 365 Planning et calendrier vacances
Réponses
8
Affichages
658
MLIZIN
M
B
  • Question
XL 2016 VBA formulaire incrémenter un N° de facture selon l'année(mais dates sur deux colonnes)
Réponses
4
Affichages
572
badduke
B
V
  • Question
XL 2016 Montant à calculer en fonction d'une date et création d'un fichier avec quelques colonnes du fichier initial
Réponses
1
Affichages
393
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…