Discussion :

[Geliwy77]

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 :

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

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:

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

[Megaxel]

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

Code :

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

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

[ridan]

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

Code :

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

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 :

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

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

[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*)

[leroissejp]

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

Code :

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

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

[ouskel'n'or]

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

Code :

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

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

[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!!

[ossiu]

Bonjour à tous,
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 !!
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

[ThierryAIM]

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

[bouley]

bonjour ossiu,

transforme resultat en date avec cdate()

Code :

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

ActiveCell.FormulaR1C1 = CDate(resultat)

et le tour est joué !
@+

[ossiu]

super, merci bouley !!

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

ça fonctionne comme je le souhaite MERCI MERCI

[zazaraignée]

Salut

et bienvenue à Geliwy77. Tu as eu beaucoup de réponses mais on ne sait pas ce que tu en penses.

[ossiu]

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