XL 2019 Calcul temps macro

Tsegp

XLDnaute Nouveau
Bonjour

Voilà mon besoin, je m'occupe d'un plateau téléphonique et j'ai besoin de faire justifier la durée des appels s'il sont supérieurs a 10 minutes.

L'idée c'est de cliquer sur un bouton a la prise d'appel et un autre bouton a la fin de l'appel.

Si le temps entre le clic PRISE D'APPEL et le clic FIN D'APPEL est supérieur à 10 minutes, alors ouvrir userform "justification".

Comment faire cela sachant que durant l'appel le classeur doit rester accessible pour d'autre userform

Merci d'avance a tous
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tsegp,
Un essai en PJ avec :
VB:
Public TempsEcoulé
Sub Début()
    TempsEcoulé = Timer ' Enregistrement du temps de départ
End Sub
Sub Fin()
    If TempsEcoulé = 0 Then Exit Sub
    TempsEcoulé = Timer - TempsEcoulé
    If TempsEcoulé > 5 Then     ' Mettre 600 pour 10 minutes ( 600 secondes )
        UserForm1.Show
        TempsEcoulé = 0
    Else
        [G9] = ""       ' Effacement commentaire
    End If
End Sub
et un userform :
Code:
Private Sub CommandButton1_Click()
    [G9] = UserForm1.TextBox1
    Unload UserForm1
End Sub
Ici le temps est calibré à 5s, mettre 600 pour 10 mi,utes.
 

Pièces jointes

  • Mesure temps.xlsm
    16.3 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonjour à tous,

Plutôt que des boutons on peut utiliser le double-clic, le code de la feuille :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = 1 Or Target.Column > 2 Or Target(1) <> "" Then Exit Sub
Cancel = True
If Target.Column = 2 Then If Target(1, 0) = "" Then Set Target = Target(1, 0)
Target = Now
If Target.Column = 2 Then If Target - Target(1, 0) > 10 / 1440 Then Target(1, 2) = "Justification": Justification.Show
End Sub
A+
 

Pièces jointes

  • Classeur(1).xlsm
    17.5 KB · Affichages: 5

Discussions similaires

Réponses
3
Affichages
437
S
  • Question
Microsoft 365 Ralentissement sur macro
Réponses
7
Affichages
1 K

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll