[VBA]Format date combo pas ok si cellule vide

Re : [VBA]Format date combo pas ok si cellule vide

Bonsoir,

Essaie de modifier les lignes suivantes comme suit :

Private Sub cbCollation1_Change()
If cbCollation1.Value <> "" Then cbCollation1.Value = Format(CDate(cbCollation1.Value), "hh:mm")
End Sub
Private Sub cbCollation2_Change()
If cbCollation2.Value <> "" Then cbCollation2.Value = Format(CDate(cbCollation2.Value), "hh:mm")
End Sub
Private Sub cbCollation3_Change()
If cbCollation3.Value <> "" Then cbCollation3.Value = Format(CDate(cbCollation3.Value), "hh:mm")
End Sub
Private Sub cbCollation4_Change()
If cbCollation4.Value <> "" Then cbCollation4.Value = Format(CDate(cbCollation4.Value), "hh:mm")
End Sub
Private Sub cbCollation5_Change()
If cbCollation5.Value <> "" Then cbCollation5.Value = Format(CDate(cbCollation5.Value), "hh:mm")
End Sub

Parfois cbCollationx.Value est vide donc le Format(CDate(cbCollationx.Value), "hh:mm") plante.
Mais je n'ai pas regardé la cause ni l'impact sur la suite du code ...

Re : [VBA]Format date combo pas ok si cellule vide

Hello Catrice,
Ca à l'air de fonctionner Nickel.
Merci, je vais le tester encore un peu, mais de prime abord ça roule...
Merci
Lio

Re : [VBA]Format date combo pas ok si cellule vide

Re,
Effectivement, si l'on rentre par erreur une valeur non numérique, ça plante...
Je vais voir pour trouver une parade, car ce masque est destiné à des personnes dénuées de toute logique😀😀😀
JE plaisante, enfin presque...
A++
Lio

Re : [VBA]Format date combo pas ok si cellule vide

Re,

Tu peux tester également ceci :

If IsDate(cbCollation1.Value) Then cbCollation1.Value = Format(CDate(cbCollation1.Value), "hh:mm")

N'affecte la valeur que si cbCollation1.Value est une date ou une heure.
Mais onpeut qd meme saisir une date par erreur ...

Ou bien ceci :
If IsDate(cbCollation1.Value) Then If CDate(cbCollation1.Value) < 1 Then cbCollation1.Value = Format(CDate(cbCollation1.Value), "hh:mm")

Qui vérifie que l'heure tapée est inférieure à 24:00

Re : [VBA]Format date combo pas ok si cellule vide

Hello,
Le rouge de la honte devrait envahir mes joues, alors que je dormais paisiblement, tu travaillais encore sur mon code 🙂
Merci.
Je n'ai pas compris la subtilité:

Catrice à dit:

Qui vérifie que l'heure tapée est inférieure à 24:00

Cliquez pour agrandir...

On peut toujours entrer des valeurs supérieures? mais ça ne les mets pas au format hh:mm, c'est ça?
Toute bonne journée
A++
Lio

Re : [VBA]Format date combo pas ok si cellule vide

Bonjour,

Normalement (normalement car je l'ai testé avec une variable pas avec ton userform) on ne peut entrer que un horaire entre 00:00 et 23:59.
Mais je ne sais pas si c'est ce que tu veux ...
Ca teste si c'est un format date (heure) et si oui, ça teste si on saisit une valeur inferieure à 24:00 si oui on l'affecte au control si non, on ne fait rien.

Si tu veux entrer des valeurs au dela de 24:00, ceci de vrait fontionner :
If IsDate(cbCollation1.Value) Then Then cbCollation1.Value = Format(CDate(cbCollation1.Value), "hh:mm")