Formule manquante

[stevevda]

Il y a quelques jours j'était bloqué sur une formule manquante dans un useform qui concernait une insertion en € qui après solution donnait ceci et qui fonctionne parfaitement.

Private Sub Bt_Valider_Click()
Range("A5").Value = CCur(TextBox1)
End Sub

Le problème se repose avec le format Heure minute et la que faudrait il que je mette pour obtenir le format approprié ?.
Si quelqu'un pouvait m'aider je le remercie d'avance.

 

[13GIBE59]

Re : Formule manquante

salut Stevevda.

Essaie ça :

Private Sub Bt_Valider_Click()
Range("A5").Value = Format(TextBox1,"h:mm;@")
End Sub

 

[stevevda]

Re : Formule manquante

Apparemment rien fonctionne je vais préparer un fichier exemple c'est toujours mieux ..

 

[stevevda]

Re : Formule manquante

Voilà avec un fichier exemple joint c'est surement mieux en regardant dans l'useforme1 dans l'intégration des heures cela donnera une meilleur vue d'ensemble à intégrer la formule.
Merci du regarder ou est le problème...

 

[stevevda]

Re : Formule manquante

Super sa fonctionne à merveille merci Jean-Marcel la c'est tout beau...