XL 2016 format date dans 2 TB

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bidoutche

XLDnaute Occasionnel
Bonsoir,
j'ai un problème de format date.
dans mon usf 3 textbox pour le calcul entre les 2 dates cela fonctionne très bien. dans mon 1er TB le format JJ-MM-AA pas de soucis.
par contre dans le 2e le format affiche JJ/MM/AA alors que je mets des "-".
j'utilise les code suivant :
'Date de depart
Private Sub TB7_Change()
'exemple pour format date xx-xx-xxxx
Dim Valeur As Byte
TB7.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TB7)
If Valeur = 2 Or Valeur = 5 Then TB7 = TB7 & "-"
End Sub

'Date arrivée
Private Sub TB8_Change()
'exemple pour format date xx-xx-xxxx
Dim Valeur As Byte
TB8.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TB8)
If Valeur = 2 Or Valeur = 5 Then TB8 = TB8 & "-"
End Sub
'Duree
Private Sub TB8_AfterUpdate()
TB9.Value = CDate(TB8.Value) - CDate(TB7.Value)
End Sub
comment faire SVP?

Je vous remercie pour votre aide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
3 K
Retour