Affichage d'heure dans textbox

[DLP77]

Bonsoir,

Tout d'abord je tiens à dire que ce forum est excellent car grace à ce dernier j'ai pu progresser dans mon projet.

Maintenant, c'est à mon tour de demander de l'aide car je suis bloqué.

J'aimerais, en cliquant sur un bouton de commande, affiché une heure dans un textbox (ce textbox représentant l'heure d'entrée dans un lieu), puis en cliquant de nouveau sur le même bouton de commande, affiché l'heure dans un seconde textbox (ce deuxième textbox représentant l'heure de sortie d'un lieu)

Malheureusement, je rencontre des problèmes: soit l'heure s'affiche simultanément dans les 2 textbox, soit en entrée et pas en sortie.

Quelqu'un pourrait-il m'aider?

Ci-joint un fichier test.

Merci

@LRegarde la pièce jointe Test - Alex.xls

 

[Fred0o]

Re : Affichage d'heure dans textbox

Bonsoir DPL7 et bienvenue sur le forum.

Tu peux essayer ce code :

Private Sub CommandButton2_Click()
    UserForm1.TextBox2.Value = Format(Time, "hh:mm") 'Affiche l'heure
    If UserForm1.TextBox2.Value <> "" Then  'Si TxtB2 affiche déjà l'heure alors
        UserForm1.TextBox3.Value = Format(Time, "hh:mm")
    End If
End Sub

A+

 

[DLP77]

Re : Affichage d'heure dans textbox

Merci pour la réponse, je vais tester la formule.
Il me manquait juste les <> dans ma formule.

Bonne soirée

Alex

 

[DLP77]

Re : Affichage d'heure dans textbox

Un grand merci à FredOo. La formule fonctionne.

Bonne soirée à tous!

 

[DLP77]

Re : Affichage d'heure dans textbox

Bonsoir de nouveau,

En fait il y a un petit problème dans la formule, la première heure (heure d'entrée)se trouvant dans le textbox1 change également lorsque je clique une deuxième fois pour avoir l'heure de sortie dans le textbox2?

Une autre solution?

@lex

 

[Fred0o]

Re : Affichage d'heure dans textbox

Bonjour,

Voici la correction demandée (je pense)

Private Sub CommandButton2_Click()
    If UserForm1.TextBox2.Value = "" And UserForm1.TextBox2.Value = "" Then
        UserForm1.TextBox2.Value = Format(Time, "hh:mm") 'Affiche l'heure
    ElseIf UserForm1.TextBox2.Value <> "" Then  'Si TxtB2 affiche déjà l'heure alors
        UserForm1.TextBox3.Value = Format(Time, "hh:mm")
    End If
End Sub

A+

A+

 

[DLP77]

Re : Affichage d'heure dans textbox

Merci beaucoup FredOo. Cette fois pas de bug.

Bonne journée.

@lex