Discussion :

[Chicard]

Bonjour,

voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[mercatog]

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.

[Didier Gonard]

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

[Chicard]

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?

[SfJ5Rpw8]

voir "Date and time picker" DTpicker ...

[LouiMz]

Bonjour,

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

Like this :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^

[Chicard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chicard]

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

Merci pour l'aide apportée