Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format de date

Format de date

6 réponses
Avatar
GIBI68
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format j/m/aa et je
voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les jours un
pour les mois et un pour les ans avec des / séparation : il doit y avoir
plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois derniers
jours mais je n'ai pas trouvé mon bonheur.
Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
denis P
salut
Avec CDate et On error voir exemple

''' Denis Pasquier 2-2002 '''''
Sub Saisir_date()
Dim dat As String
dat = InputBox("Quel est la date d 'extraction ?", "Date d'extraction")
If dat = "" Then Exit Sub
On Error GoTo paf
dat = CDate(dat)
On Error GoTo 0
ActiveCell = dat
Exit Sub
paf:
MsgBox "Y a qql chose qui va pas, c'est pas une date"
Err.Clear
On Error GoTo 0
'et on recomance...
Saisir_date
End Sub
''''' fin bloc '''''

"GIBI68" a écrit dans le message de
news:
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format j/m/aa et je
voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les jours un
pour les mois et un pour les ans avec des / séparation : il doit y avoir
plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois derniers
jours mais je n'ai pas trouvé mon bonheur.
Merci




Avatar
denis P
pour le format, remplace
ActiveCell = dat
par
ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")


"denis P" a écrit dans le message de
news:%
salut
Avec CDate et On error voir exemple

''' Denis Pasquier 2-2002 '''''
Sub Saisir_date()
Dim dat As String
dat = InputBox("Quel est la date d 'extraction ?", "Date d'extraction")
If dat = "" Then Exit Sub
On Error GoTo paf
dat = CDate(dat)
On Error GoTo 0
ActiveCell = dat
Exit Sub
paf:
MsgBox "Y a qql chose qui va pas, c'est pas une date"
Err.Clear
On Error GoTo 0
'et on recomance...
Saisir_date
End Sub
''''' fin bloc '''''

"GIBI68" a écrit dans le message de
news:
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format j/m/aa et
je


voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les jours un
pour les mois et un pour les ans avec des / séparation : il doit y avoir
plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois
derniers


jours mais je n'ai pas trouvé mon bonheur.
Merci








Avatar
GIBI68
C'est simple. Je l'ai adapté facilement à ma procédure principale
Merci beaucoup j'ai économisé beaucoup de temps, de lignes et j'ai gagné en
temps de réponse
Bonne journée.


"denis P" a écrit dans le message de news:

pour le format, remplace
ActiveCell = dat
par
ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")


"denis P" a écrit dans le message de
news:%
salut
Avec CDate et On error voir exemple

''' Denis Pasquier 2-2002 '''''
Sub Saisir_date()
Dim dat As String
dat = InputBox("Quel est la date d 'extraction ?", "Date d'extraction")
If dat = "" Then Exit Sub
On Error GoTo paf
dat = CDate(dat)
On Error GoTo 0
ActiveCell = dat
Exit Sub
paf:
MsgBox "Y a qql chose qui va pas, c'est pas une date"
Err.Clear
On Error GoTo 0
'et on recomance...
Saisir_date
End Sub
''''' fin bloc '''''

"GIBI68" a écrit dans le message de
news:
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format j/m/aa et
je


voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les jours
un



pour les mois et un pour les ans avec des / séparation : il doit y
avoir



plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois
derniers


jours mais je n'ai pas trouvé mon bonheur.
Merci












Avatar
GIBI68
Je retire ce que j'ai dit
Le jour et le mois sont inversés dans l'enregistrement de la date .

Je ne comprends pas pourquoi, il doit y avoir une relation date anglaise et
française mais où ?
Merci encore



"GIBI68" a écrit dans le message de news:
uehHo$
C'est simple. Je l'ai adapté facilement à ma procédure principale
Merci beaucoup j'ai économisé beaucoup de temps, de lignes et j'ai gagné
en

temps de réponse
Bonne journée.


"denis P" a écrit dans le message de news:

pour le format, remplace
ActiveCell = dat
par
ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")


"denis P" a écrit dans le message de
news:%
salut
Avec CDate et On error voir exemple

''' Denis Pasquier 2-2002 '''''
Sub Saisir_date()
Dim dat As String
dat = InputBox("Quel est la date d 'extraction ?", "Date
d'extraction")



If dat = "" Then Exit Sub
On Error GoTo paf
dat = CDate(dat)
On Error GoTo 0
ActiveCell = dat
Exit Sub
paf:
MsgBox "Y a qql chose qui va pas, c'est pas une date"
Err.Clear
On Error GoTo 0
'et on recomance...
Saisir_date
End Sub
''''' fin bloc '''''

"GIBI68" a écrit dans le message de
news:
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format j/m/aa
et




je
voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les
jours




un
pour les mois et un pour les ans avec des / séparation : il doit y
avoir



plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois
derniers


jours mais je n'ai pas trouvé mon bonheur.
Merci
















Avatar
denis P
regarde du coter de Format il faut mettre le code de format en "Anglais"
"dd-mm-yy" pas "jj-mm-aa"
si c'est pas ça, regarde si le format de ta cellule de destination est
correcte...
denis p.


ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")

"GIBI68" a écrit dans le message de
news:
Je retire ce que j'ai dit
Le jour et le mois sont inversés dans l'enregistrement de la date .

Je ne comprends pas pourquoi, il doit y avoir une relation date anglaise
et

française mais où ?
Merci encore



"GIBI68" a écrit dans le message de news:
uehHo$
C'est simple. Je l'ai adapté facilement à ma procédure principale
Merci beaucoup j'ai économisé beaucoup de temps, de lignes et j'ai gagné
en

temps de réponse
Bonne journée.


"denis P" a écrit dans le message de news:

pour le format, remplace
ActiveCell = dat
par
ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")


"denis P" a écrit dans le message de
news:%
salut
Avec CDate et On error voir exemple

''' Denis Pasquier 2-2002 '''''
Sub Saisir_date()
Dim dat As String
dat = InputBox("Quel est la date d 'extraction ?", "Date
d'extraction")



If dat = "" Then Exit Sub
On Error GoTo paf
dat = CDate(dat)
On Error GoTo 0
ActiveCell = dat
Exit Sub
paf:
MsgBox "Y a qql chose qui va pas, c'est pas une date"
Err.Clear
On Error GoTo 0
'et on recomance...
Saisir_date
End Sub
''''' fin bloc '''''

"GIBI68" a écrit dans le message de
news:
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format
j/m/aa





et
je
voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les
jours




un
pour les mois et un pour les ans avec des / séparation : il doit y
avoir



plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois
derniers


jours mais je n'ai pas trouvé mon bonheur.
Merci




















Avatar
GIBI68
J'ai solutionné en mettant le format anglais "mm-dd-yy" ,pas trop compris
mais ça marche
Merci pour tout


"denis P" a écrit dans le message de news:
#DWQL$

regarde du coter de Format il faut mettre le code de format en "Anglais"
"dd-mm-yy" pas "jj-mm-aa"
si c'est pas ça, regarde si le format de ta cellule de destination est
correcte...
denis p.


ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")

"GIBI68" a écrit dans le message de
news:
Je retire ce que j'ai dit
Le jour et le mois sont inversés dans l'enregistrement de la date .

Je ne comprends pas pourquoi, il doit y avoir une relation date anglaise
et

française mais où ?
Merci encore



"GIBI68" a écrit dans le message de news:
uehHo$
C'est simple. Je l'ai adapté facilement à ma procédure principale
Merci beaucoup j'ai économisé beaucoup de temps, de lignes et j'ai
gagné



en
temps de réponse
Bonne journée.


"denis P" a écrit dans le message de news:

pour le format, remplace
ActiveCell = dat
par
ActiveCell.Value = Format(CDate(TextBox1.Value), "dd-mmmm-yyyy")


"denis P" a écrit dans le message de
news:%
salut
Avec CDate et On error voir exemple

''' Denis Pasquier 2-2002 '''''
Sub Saisir_date()
Dim dat As String
dat = InputBox("Quel est la date d 'extraction ?", "Date
d'extraction")



If dat = "" Then Exit Sub
On Error GoTo paf
dat = CDate(dat)
On Error GoTo 0
ActiveCell = dat
Exit Sub
paf:
MsgBox "Y a qql chose qui va pas, c'est pas une date"
Err.Clear
On Error GoTo 0
'et on recomance...
Saisir_date
End Sub
''''' fin bloc '''''

"GIBI68" a écrit dans le message de
news:
Bonjour à tous,
Je voudrais afficher les date dans un textbox sous le format
j/m/aa





et
je
voudrais que soit refusé tout autre format.
J'ai fait une usine grand format avec trois textbox un pour les
jours




un
pour les mois et un pour les ans avec des / séparation : il doit
y






avoir
plus simple.
Il y a beaucoup de question sur les dates rien que sur le strois
derniers


jours mais je n'ai pas trouvé mon bonheur.
Merci