Format [hh]:mm dans un TextBox suite à saisie dans un ComboBox

[exene]

Bonjour,

J'ai un formulaire avec un ComboBox et un TextBox. Quand je choisis une date, le nombre d'heures pour cette date m'est retourné. Je n'arrive pas à formater cette TextBox en [hh]:mm
Ci-joint le fichier exemple.

Bonne journée.

 

[david84]

Re : Format [hh]:mm dans un TextBox suite à saisie dans un ComboBox

Bonjour,
peut-être comme cela :

TextBox1.Value = C.Offset(, 1).Text

A+

 

[Modeste geedee]

Re : Format [hh]:mm dans un TextBox suite à saisie dans un ComboBox

Bonsour®

Private Sub ComboBox1_Change()
  Set C = Sheets("FJT").Range("Jour").Find(What:=CDate(ComboBox1.Value))
 '----sous- entend que la cellule soit au format correct
  If Not C Is Nothing Then TextBox1.Value = C.Offset(0, 1).Text 

' ----ne marche pas     
  'If Not C Is Nothing Then TextBox1.Value = Format(C.Offset(0, 1),"[hh]:mm")  
     
' **** alternative fonctionnelle affichage au format souhaité indépendant du format cellule ****
  'If Not C Is Nothing Then TextBox1.Value = Evaluate("=TEXT(" & C.Offset(0, 1).Address & ", ""[hh]:mm"")")
End Sub

 

[exene]

Re : Format [hh]:mm dans un TextBox suite à saisie dans un ComboBox

Bonjour David, Modeste geedee,

Je viens de tester le code de Modeste geedee qui fonctionne à merveille.

Je vais pouvoir avancer dès lundi.

Merci.

@+