Données format heure dans une textbox

Bonjour à tous le forum,

Une petite question qui à déjà posée, je pense. J'ai déjà essayé plusieurs solution sans succès....

J' ai ce petit code qui fonctionne très bien, mais mon souci c'est que j'ai les données qui rentre dedans doivent être au format heure, hh:mm,

Merci pour votre aide

Public Sub CommandButton8_Click()

' Ouverture du dossier cumul

Workbooks.Open Filename:=".........xlsm", Password:="........"

Application.WindowState = xlMaximized

Sheets("Annuel").Select

' Récup des données

'Centre

TextBox10 = Range("I58").Value

TextBox7 = Range("I59").Value

If TextBox10 <> TextBox7 Then

MsgBox ("Le cumul Centre n'est pas correct")

End If

'Cro

TextBox3 = Range("I63").Value

TextBox6 = Range("I64").Value

If TextBox3 <> TextBox6 Then

MsgBox ("Le cumul Cronenbourg n'est pas correct")

End If

'Hpe

TextBox11 = Range("I68").Value

TextBox8 = Range("I69").Value

If TextBox11 <> TextBox8 Then

MsgBox ("Le cumul Hpe n'est pas correct")

End If

'Neulin

TextBox12 = Range("I73").Value

TextBox9 = Range("I74").Value

If TextBox12 <> TextBox9 Then

MsgBox ("Le cumul NeuLin n'est pas correct")

End If

MsgBox ("Les données sont à jour")

End Sub

Bonjour Coco6728,

Si tes données proviennent de cellules formatées en hh:mm, tu peux remplacer Range("A1").Value par Range("A1").Text :

TextBox1 = Range("A1").Text

La propriété Text reprend le contenu exact de ce qui est affiché à l'écran.

Sinon il faut charger le TextBox en reformatant la cellule :

TextBox1 = Format(Range("A1").Value, "hh:mm")

Bonsoir Benoit,

Merci pour ta réponse et tes explication. Çà fonctionne

Merci encore

Coco