problème de limite de date

Bonjour,

voilà mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox_date_service_Change()   'Ecriture de la date sous la forme With TextBox_date_service Select Case Len(.Text) Case 2, 5 .Text = .Text & "/" End Select End With End Sub

---

Ce code fonctionne. Le souci avec ce bout de code c'est que l'utilisateur peut rentrer des dates farfelues (ex:99/99/999999999). Le format date n'est pas le Us donc c'est jj/mm/aaaa. Ce que je cherche avant tout c'est de bloqué l'année à 4 chiffres ce que ce code ne fais pas.

Si une solution est possible sinon tant pis. Le tuto sur les date ne m'a pas aidé.

Bonjour
Et même si tu bloque l'année à 4 chiffres (qui est très faisable), l'utilisateur pourrait saisir "31/02/2011" ou "65/49/0007" ou même "Ch/ic/ards"
Tu as des contrôles calendriers qui sont destinés à saisir les dates. je propose de regarder de ce côté sans mettre une usine à gaz pour saisir une date.

Bonjour,

soit tu suis le (bon) conseil de Mercatog (ergonomique en plus), soit tu construis ton propre algo pour les dates à l'image de celui-ci : http://didier-gonard.developpez.com/...e-dans-texbox/

cordialement,

Didier

Y a-t-il un contrôle calendrier? Comme ça mon utilisateur n"aurait qu'à choisir sa date dans le calendrier.

Si cela n'existe pas comment faire pour bloqué l'année sur 4 chiffres (pour éviter de rentrer autre chose que du numérique j'ai déjà la solution).

De toute façon, contrôler toute les actions d'un utilisateur n'est pas faisable et puis à lui d'être responsable.

je viens de voir qu'un calendar est disponible. Mais es-ce que c'est un objet qui peut être "posé" comme une textbox ou pas.

En fait dans certains logiciel (pas sur pour office et surtout excel) il existe une petite icone qui ouvre un calendrier et c'est le composant que je souhaiterais avoir sur excel. Es-ce possible?

voir "Date and time picker" DTpicker ...

http://bbil.developpez.com/images/forum/DTPicker.png

Bonjour,

Sinon un contrôle tout simple avec la méthode IsDate() ^^

Like this :

Code:

---

1 2 3 4 5

If IsDate(TextBox2.Text) Then MsgBox "bon" Else MsgBox "pas bon" End If

---

Celà fonctionne même si il s'agit d'un texte ^^

donc j'utilise un dtpiker mais pour remplir la case sur ma feuille de calcul je pense que le la fin du dticker doit être le .Value mais je n'en suis pas certains

Code:

---

1 2 3 4

Sheets("liste des marchés").Cells(derli, "G") = TextBox_titulaire_marche.Text Sheets("liste des marchés").Cells(derli, "H") = DTPicker_date_notification.Value

---

après test le DTPicker_xxx.Value retourne ma date dans la case prévue

Merci pour l'aide apportée