UserForm Date

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Janvier 2008

• #2

Re : UserForm Date

Bonsoir Bruce, bonsoir le forum,

Reprenant ton code, je te propose l'utilisation de Exit à la place de AfterUpdate avec une petie gestion d'erreur... :

Code:

Private Sub Dat_Deb_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'juste avant la sortie de la TextBox
On Error GoTo fin 'gestion des erreurs par l'étiquette "fin"
 
'applique le format date à la donnée de la Textbox
'toute donnée non compatible avec une date provoquera une erreur...
Dat_Deb.Value = DateValue(Dat_Deb.Value)
Exit Sub 'sort de la procédure
 
fin: 'étiquette
xmsg = MsgBox("La date de début n'est pas valide", vbCritical) 'message
Dat_Deb.Value = "" 'vide la TextBox
Cancel = True 'empêche la sortie de la TextBox (ce que n'a pas le AfterUpdate)
 
End Sub

 

Vote positif 0 Vote négatif

Celeborn61

XLDnaute Occasionnel

• 25 Janvier 2008

• #3

Re : UserForm Date

Salut,

Pourquoi ne pas utiliser un "DTPicker" plutôt ?

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 25 Janvier 2008

• #4

Re : UserForm Date

Bonsoir,

Oui pourquoi pas DTPicker ?

Chez moi, il ne fonctionne pas,,,,, Pas le Objet sur la machine....??? s'il y a une solution, Preneur.

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 25 Janvier 2008

• #5

Re : UserForm Date

Bonsoir Robert et le forum

Merci pour la reponse mais je ne sais pas mettre le format date le texBox
Encore merci pour l'aide

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 26 Janvier 2008

• #6

Re : UserForm Date

Bonsoir le fil, bonsoir le forum,

Je ne comprends pas Bruce... Copie le code que je t'ai donné dans le module de l'Userform qui dontient la TextBox. Ensuite met le code que tu avais en attente (il suffit de placer une apostrophe devant chaque ligne et il se transforme en commentaire) et lance ton Userform. Tape une date puis réessaye en tapant une donnée non compatible avec une date...

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 26 Janvier 2008

• #7

Re : UserForm Date

Bonsoir Robert
j'ai bien le code mais une date tapée 01/13/2008 est transformée en 13/01/2008
Pour le code en attente je ne vois pas tellement ce que tu veux dire.
Pour les macros je debute et souvent j'adapte des codes trouves dans les forums c'est pour cela que je ne comprend pas tout.
Merci pour ton aide

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Janvier 2008

• #8

Re : UserForm Date

Bonsoir le fil



---> jeanpierre
Pour datapicker (qui moi aussi un jour m'a posé problème)
Voici un lien ou une solution avait été trouvée
https://www.excel-downloads.com/threads/inserer-un-date-picker-dans-barre-doutils.83403/
Grâce aux conseils avisés de MichelXLD et tous le participants à ce fil, j'ai pu avoir le DTpicker dans Excel
(mais avec le petit souci cf. le fil)
Précision : avec Excel 2000 et Windows 98 SE.
En espérant que cela marche mieux chez toi.

 

Dernière édition: 26 Janvier 2008

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 26 Janvier 2008

• #9

Re : UserForm Date

bonjour le forum, bonjour à tous les excelliens,

il y à quelques temps j'avais récupérer un classeur qui pourrait aider notre demandeur.
par contre, pas moyen de me rappeler l'auteur et le fil.

 

Pièces jointes

• Calendar.zip

  14.5 KB · Affichages: 68
• Calendar.zip

  14.5 KB · Affichages: 75
• Calendar.zip

  14.5 KB · Affichages: 70

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 27 Janvier 2008

• #10

Re : UserForm Date

Bonsoir à tous
Personne pour me donner un coup de main pour cette macro dans un TexBox:
Quand je rentre une date:01/12/2008 je copie =01/12/2008
12/13/2008 je copie quand meme mais 13/12/2008 date incorrecte pour moi
que faut mettre en plus dans la macro pour que les mauvaises dates soient bloquées.

Private Sub DatDeb_exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(DatDeb) Then
Else
MsgBox (DatDeb.Text & " n'est pas une date valide !")
DatDeb.Text = ""
If DatDeb.Value = "" Then Cancel = True
End If
End Sub

La ligne que j'ai mis pour ranger la date dans ma base

Range("P" & ligne).Value = CDate(Me.DatDeb.Value)

Je vous remercie de votre aide

 

Vote positif 0 Vote négatif