[VB6]Aide pour mettre format date avec inputbox

Version imprimable

Bonjour à toutes et à tous , j'ai un petit souci en vb6 avec la creation d'un format. Voila on me demande que lorsque l'on tape une date sur une inputbox que les séparateurs "/" se créent automatiquement , on m'a laissé entendre que l'on pouvait paramétrer une inputbox pour qu'elle reconnaisse se type de date Je ne sais pas le faire quelqu'un pourrait il m'aider SVP je vous donne le morceau de prog:

Code:

1
2
3
4
5
6
7
8
9
10
11
Entrée_date:
        resultat = InputBox("Entrer la date d'étiquette de l'étalon", "Saisie de la date d'étiquette", "jj/mm/aaaa")
        If Len(resultat) <> 10 Then GoTo Entrée_date
        If Mid(resultat, 3, 1) <> "/" Then GoTo Entrée_date
        If Mid(resultat, 6, 1) <> "/" Then GoTo Entrée_date
        If val(Left(resultat, 2)) > 31 Or val(Left(resultat, 2)) < 1 Then GoTo Entrée_date
        If val(Mid(resultat, 4, 2)) > 12 Or val(Mid(resultat, 4, 2)) < 1 Then GoTo Entrée_date
        étalon_étiquette = resultat
        resultat = MsgBox("Insérer l'étalon de début et valider", vbOKOnly + vbExclamation, " Test étalon")
        resultat = MsgBox("Allez vous imprimer les résultats", vbYesNo + vbExclamation, " Impression des résultats")
        Select Case resultat :cry:

10/11/2005, 11h55
Megaxel

Hello!
Est-ce que tu veux que les "/" se rajoutent en cours de frappe?
Je ne sais pas le faire sur une InputBox. Sur une (mini-)form, il-y-a plein de trucs possibles sur les événements, et là, c'est possible.

Par exemple, dans le code d'une form toute simple ou TextBox1 est le champ où tu saisis ta date:

Code:

1
2
3
4
5
6
7
8
 
Private Sub TextBox1_Change()
    If Len(TextBox1.Text) = 2 Or Len(TextBox1.Text) = 5 Then
 
            TextBox1.Text = TextBox1.Text & "/"
 
    End If
End Sub

10/11/2005, 13h49
ridan
Citation:
Envoyé par Megaxel

Par exemple, dans le code d'une form toute simple ou TextBox1 est le champ où tu saisis ta date:

Code:

1 2 3 4 5 6 7 8 Private Sub TextBox1_Change() If Len(TextBox1.Text) = 2 Or Len(TextBox1.Text) = 5 Then TextBox1.Text = TextBox1.Text & "/" End If End Sub
Ou avec un contrôle MaskedBox :

Code:

MaskEdBox1.Mask = "##/##/####"

:wink:
10/11/2005, 13h53
ThierryAIM

Le plus simple pour saisir une date, c'est de créer une (mini)form comme dit Megaxel et d'utiliser un DTPicker (Microsoft Common Controls SP*)

Bonjour,
Pour que ton resultat soit au format jour, moi, année, mets ce code et dans le InputBox, tappe 10 Novembre 2005.
Code:

1 2 3 4 5 6 Private Sub Command1_Click() Dim resultat resultat = InputBox("Entrer la date d'étiquette de l'étalon", "Saisie de la date d'étiquette") MsgBox Format(resultat, "dd/mm/yyyy") End Sub
jpleroisse

Hello, j'avais ça dans un coin, si ça peut t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Entrée_date()
Dim ok As Boolean, LaDate As String, mot As String
mot = "jj/mm/aaaa"
        Do While Not ok
            LaDate = InputBox("Entrer la date d'étiquette de l'étalon", "Saisie de la date d'étiquette", mot)
            ok = Len(LaDate) = 10
            ok = ok And InStr(LaDate, "/") = 3
            ok = ok And InStr(Right(LaDate, 7), "/") = 3
            If Not ok Then MsgBox "Date incorrecte, respectez le format, nom de gu !"
            mot = LaDate   'évite d'avoir à tout retaper
        Loop
End Sub

Évite d'utiliser les Goto, dans une boucle sans fin ça sature la mémoire :wink:

10/11/2005, 15h15
Megaxel

Ben il va être content, Geliwy77, quand il reviendra sur ce forum pour regarder si quelqu'un a bien voulu l'aider...
Sinon, je n'ai jamais fait joujou avec un contrôle MaskedBox !!! Je ne savais même pas que ça existait!!
:D
28/01/2006, 14h55
ossiu

Bonjour à tous, :P
lors d'une recherche sur la saisie d'une date dans inputbox, j'ai eu la CHANCE de tomber sur votre petit programme. j'avoue qu'il m'a particuliérement bien aidé ..mille merci !! :D
Pour ma part je souhaite copier la date dans une cellule (exemple A1)
je tape :
Range("A1").select
ActiveCell.FormulaR1C1 = resultat

mais à ma grande surprise quand je tape :
03/01/2006 en A1 j'ai 01/03/2006
01/03/2006 en A1 j'ai 03/01/2006
01/10/2006 en a1 j'ai 10/01/2006
il y a qu'avec 25/01/2006 qu'en A1 j'ai bien 25/01/2006
c'est trés embétant car A1 est une référence pour la suite de ma programmation
Avez vous la raison de ce pb? Merci d'avance
28/01/2006, 15h18
ThierryAIM

Citation:

Envoyé par ossiu

Avez vous la raison de ce pb? Merci d'avance

oui, problème de format de date anglais/francais

si pour 25/01/2006 tu as le bon resultat, c'est parce qu'il n'y a pa 25 mois dans une année :wink:
28/01/2006, 15h41
bouley

bonjour ossiu,

transforme resultat en date avec cdate()

Code:

ActiveCell.FormulaR1C1 = CDate(resultat)

et le tour est joué !
@+
28/01/2006, 19h28
ossiu

pb date input vers A1

super, merci bouley !!

c'est génial d'avoir répondu si rapidement

ça fonctionne comme je le souhaite MERCI MERCI
28/01/2006, 19h41
zazaraignée

Salut

et bienvenue à Geliwy77. Tu as eu beaucoup de réponses mais on ne sait pas ce que tu en penses.
28/01/2006, 20h13
ossiu

filtre sur 1 colonne

Bonjour à tous,

j'ai un soucis avec le filtre d'une colonne.

datefin = CDate(resultat) (exemple : 06/01/2006)

En colonne H je dois laisser les cellules vides et les cellules dont la date est supérieure à "datefin"
le mieux que j'ai trouvé est de laisser les cellules vides et les cellules différentes de datefin.
biensûr ça ne va pas car il apparait des dates inférieures à datefin

Selection.AutoFilter Field:=8, Criteria1:="<>" & datefin, Operator:=xlOr _ , Criteria2:="="""""

quelqu'un aurait il une solution magique? Merci