Microsoft 365 [Résolu] Excel VBA PB Heure

[xvella]

Bonjour à tous,
J'ai un gros soucis d'heure.
Je souhaite décaler de 5H20 l'heure dans un Userform afin de créer un numéro de Référence unique.

 

[fanch55]

Bonjour,
si j'ai bien compris c'est -5h20 ...
A tester

 

[Bernard_XLD]

Bonsoir xvella, fanch55, le forum

Code à placer dans le module Userform

Bien cordialement, @+

Private Sub txtHeure_Change()
Dim ValtxtHeure#, ValHeureRef#
ValtxtHeure = Evaluate("=Product(" & Chr(34) & txtHeure.Value & Chr(34) & ")")
ValHeureRef = Evaluate("=Product(" & Chr(34) & "05:20" & Chr(34) & ")")
If ValtxtHeure < ValHeureRef Then
    txtRefH.Value = Format(ValtxtHeure + Evaluate("=Product(" & Chr(34) & "18:40" & Chr(34) & ")"), "hhmm")
Else
    txtRefH.Value = Format(ValtxtHeure - ValHeureRef, "hhmm")
End If
txtRefFinal.Value = txtRefD.Value & txtRefH.Value
End Sub

 

[xvella]

Bonjour fanch55, Yeahou et forum

Merci à tous les deux pour votre réponse.
J'avais pas penser à la reconnaissance des codes ASCII.
Mais sa passe très bien.

Merçi encore.
Bonne Journée à vous.

A+

 

[Bernard_XLD]

Bonjour le fil

J'avais pas penser à la reconnaissance des codes ASCII.

????