Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Des dates dans tous les sens !

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

billyboy

XLDnaute Nouveau
Bonsoir,

J'utilise une textbox pour alimenter avec des dates un tableau sous le format jj/mm/aaaa, mais voilà, c'est le bordel, quand je rappelle ces mêmes date avec ces mêmes textbox pour les modifier, je me retrouve avec les jour à la place des mois, si je les rappelle une deuxième fois je reviens dans la bonne config CAD jj/mm/aaaa
Y a-til une option à cocher ou quelques chose du genre pour remédier à ce désagrement

Merci
 
Trier par date Trier par votes
Re : Des dates dans tous les sens !

Bonsoir,

pour renvoyer une date dans une cellule à partir d'un "textbox", essaye peut être la fonction "cdate" :

Code: 
Range("A1").Value = CDate(TextBox1.Value)

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Des dates dans tous les sens !

merci pour vos réponses,
un problème avec cdate, on obtiens une erreur si la valeur de la textbox =""

J'ai oublié de vous dire que je ne fais pas encore de prose en langage VBA
J'en suis a mes débuts




Mais je progresse !!!

Grâce à vous bien sûr.
 
Vote positif 0 Vote négatif
Re : Des dates dans tous les sens !

bonsoir jean marcel
merci pour ton test mais je ne peux pas faire un exit sub, car j'ai encore une dizaine de textbox après celle-ci.

Aurais-tu une autre idée

un ptit bout de code pour que tu visualises:

.....................

If IsDate(delais5) = False Then Sheets("Source").Cells(Adr.Row, 45).Value = ""
Sheets("Source").Cells(Adr.Row, 45).Value = CDate(delais5)

Sheets("Source").Cells(Adr.Row, 46).Value = oui5.Value

If IsDate(date_qualite) = False Then Sheets("Source").Cells(Adr.Row, 47).Value = ""
Sheets("Source").Cells(Adr.Row, 47).Value = CDate(date_qualite)

Sheets("Source").Cells(Adr.Row, 48).Value = nom_qualite.Value
Sheets("Source").Cells(Adr.Row, 49).Value = avqualok.Value

If IsDate(date_client) = False Then Sheets("Source").Cells(Adr.Row, 51).Value = ""
Sheets("Source").Cells(Adr.Row, 51).Value = CDate(date_client)

Sheets("Source").Cells(Adr.Row, 52).Value = nom_client.Value
Sheets("Source").Cells(Adr.Row, 53).Value = avcliok.Value

Sheets("Source").Cells(Adr.Row, 55).Value = imputation.Value

Sheets("Source").Cells(Adr.Row, 58).Value = mo1.Value
Sheets("Source").Cells(Adr.Row, 59).Value = nb1.Value
Sheets("Source").Cells(Adr.Row, 60).Value = tx1.Value

Sheets("Source").Cells(Adr.Row, 61).Value = mo2.Value
Sheets("Source").Cells(Adr.Row, 62).Value = nb2.Value
Sheets("Source").Cells(Adr.Row, 63).Value = tx2.Value

Sheets("Source").Cells(Adr.Row, 64).Value = mo3.Value
Sheets("Source").Cells(Adr.Row, 65).Value = nb3.Value
Sheets("Source").Cells(Adr.Row, 66).Value = tx3.Value

Sheets("Source").Cells(Adr.Row, 67).Value = mo4.Value
Sheets("Source").Cells(Adr.Row, 68).Value = nb4.Value
Sheets("Source").Cells(Adr.Row, 69).Value = tx4.Value

.........................................
 
Vote positif 0 Vote négatif
Re : Des dates dans tous les sens !

Re,
Jean marcel te proposait de quitter la procédure car en général on corrige quand il y a une erreur
Maintenant si la saisie de la date est facultative...
Code: 
Private Sub CommandButton1_Click()
If TextBox1 <> "" And IsDate(TextBox1) Then
Range("A1") = CDate(TextBox1.Value)
End If
'...
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
376
Dégé59
D
T
  • Question Question
Microsoft 365 Empêcher Excel de formater automatiquement les dates
Réponses
2
Affichages
893
Phil69970
T
  • Question Question
XL 2013 Validation des dates dans Excel : Comment restreindre la saisie
Réponses
7
Affichages
588
Mikakawel
POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
437
oguruma
M
  • Résolu(e)
XL 2016 isoler une date contenue dans une cellule texte
Réponses
4
Affichages
873
gbinforme
G
Y
  • Résolu(e)
XL 2016 Pb dates inversées dans userform
2 3
Réponses
37
Affichages
2 K
YOUYOU25
Y
S
  • Question Question
Microsoft 365 Excel avec quelques dates folkloriques
2
Réponses
27
Affichages
2 K
vgendron
  • Question Question
XL 2019 les 2 dates dans une seul cellule et les 2 dates dans une seul cellule
Réponses
0
Affichages
437
frederio
L
  • Question Question
XL 2016 Test si TextBox rempli par date correcte
2 3
Réponses
30
Affichages
2 K
Lorenzini
L
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
942
bérylion
B
J
  • Question Question
extraction de dates
2 3
Réponses
37
Affichages
3 K
patricktoulon
S
  • Question Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
1 K
Stellaire
S
N
  • Résolu(e)
XL 2019 copier 2 colonnes d'un classeur A et coller les données dans une seule colonne dans un classeur B
Réponses
14
Affichages
762
Dranreb
M
  • Résolu(e)
Microsoft 365 [Résolu] Macro extraction de dates
Réponses
6
Affichages
1 K
maxime45
M
C
  • Question Question
XL 2013 Récupérer la valeur d'une cellule dans une Textbox
2
Réponses
18
Affichages
4 K
C-LAKATA
C
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
M
  • Question Question
XL 2019 Comparaison de dates
Réponses
3
Affichages
1 K
mokhtar_Alpha
M
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
745
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…