XL 2019 Calcul temps macro

[Tsegp]

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]

Bonjour Tsegp,
Un essai en PJ avec :

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 :

Private Sub CommandButton1_Click()
    [G9] = UserForm1.TextBox1
    Unload UserForm1
End Sub

Ici le temps est calibré à 5s, mettre 600 pour 10 mi,utes.

 

[Tsegp]

Super merci beaucoup, plus qu'a adapter cela dans mon classeur.

Top

 

[Phil69970]

Bonjour à tous

A la bourre mais je l'ai fait je le poste....

@Phil69970

 

[job75]

Bonjour à tous,

Plutôt que des boutons on peut utiliser le double-clic, le code de la feuille :

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+