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

Format date change dans le formulaire

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
D

dede869

XLDnaute Occasionnel
Bonjour a vous,

j'ai fait un formulaire de saisi et de changement. Dans le tableau de donné les date sont sous ce format (2016-04-05) et lorsque j"ouver le formulaire et que je fait une recherche les date son dans un autre format (05/04/2016) et lorsque j'enregistre les modification il enregistre dans le mauvais format. Comment faire pour avoir toujours le meme format (2016-04-05)

Merci

dédé869
 

Pièces jointes

Trier par date Trier par votes
Re : Format date change dans le formulaire

Bonsour®
le contenu d'un Textbox est par conception au format texte
il convient donc avant passage dans une cellule de mettre le contenu au format numérique ou date
🙄
Capture.JPG
réciproquement
il faudra après lecture d'un cellule date formater la valeur à afficher dans le textBox
- la cellule est déjà au format date :
textbox.value =Cellule(x,y).
- la cellule n'est pas formatée selon besoin de visualisation :
textbox.value= format(cellule(x,y), "leformatkivabien")
 

Pièces jointes

  • Capture.JPG
    65.9 KB · Affichages: 68
Dernière édition:
Vote positif 0 Vote négatif
Re : Format date change dans le formulaire

Bonjour ça fonctionne mais il faut que toutes les CDate(textbox) soit remplis sinon ça bug, il faut que ça fonctionne même si ilk y a des case vide.

Merci

dédé869
 
Vote positif 0 Vote négatif
Re : Format date change dans le formulaire

Bonjour.

Une autre proposition :

Code: 
Sub Transferer_du_Formulaire_Vers_Cellule()

  
  Dim source As Control
  Dim dest As Range
  
  Set source = Me.Controls("Textbox1")
  Set dest = Worksheets("Feuil1").Cells(2, 5)
  Call EcrireCONTROLEversCellule(dest, source)
  
End Sub

Function EcrireCONTROLEversCellule(c As Range, ctl As Object)
 Dim a As Variant
  
 a = ctl.Text
 memNumberFormat = c.NumberFormat
 
 c.NumberFormat = "General"
 
 If Val(a) <> 0 And Len(CStr(Val(a))) = Len(a) Then
  'Pour accepter le point par le bon séparateur décimal
   v = CDbl(Replace(a, ".", Format(0, ".")))
   c.Value = CDbl(v)
   
 ElseIf IsNumeric(a) Then
 
  c.Value = CDbl(a) 'Numérique --> Value pour conserver la valeur

 Else
 
  c.FormulaLocal = a 'Texte ou Date --> FormulaLocal pour éviter inversion jour/mois si date
  
 End If

'EDIT
If memNumberFormat <> "General" Then
 c.NumberFormat = memNumberFormat
End If
  
End Function

Cordialement

Docmarti
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Format date change dans le formulaire

Bonsour®

exemple dans la proc B_validation_Click :
...
.Offset(0,5).Value=IIF (me.TextBox5="", "" ,Cdate(me.TextBox5)) ' date du grief
...


à faire chaque fois qu'il y a conversion de texte à Numérique ou date
 
Vote positif 0 Vote négatif
Re : Format date change dans le formulaire

Bonsour®

réponse plutôt lacunaire !!! on n'est pas devin, pour connaître quelle saisie et ou ???
le mode pas à pas n'est pas seulement fait pour faire geek ...

qu'est qui ne fonctionne pas ???
un peu de reflexion , d'analyse et de logique ...

ces textesboxes sont-elles sensées recevoir des dates ????
.Offset(0, 11).Value = IIf(Me.TextBox11 = "", "", CDate(Me.TextBox11)) 'extention d.lais
.Offset(0, 12).Value = IIf(Me.TextBox12 = "", "", CDate(Me.TextBox12)) 'demande arbitrage

transformation en date d'un texte ???? 😡
????? ==> .Offset(0, 13).Value = IIf(Me.TextBox13 = "", "", CDate(Me.TextBox13)) 'grief gagné
????? ==> .Offset(0, 14).Value = IIf(Me.TextBox14 = "", "", CDate(Me.TextBox14)) 'grief retité
????? ==> .Offset(0, 15).Value = IIf(Me.TextBox15 = "", "", CDate(Me.TextBox15)) 'grief abandonné
????? ==> .Offset(0, 16).Value = IIf(Me.TextBox16 = "", "", CDate(Me.TextBox16)) 'grief règlé
????? ==> .Offset(0, 17).Value = IIf(Me.ComboBox1 = "", "", (Me.ComboBox1)) 'Non de délégué responsable

😡
revoir d'abord le B.A. de VBA avant d'appliquer aveuglement une instruction !!!!

plutôt que de tester/corriger lors de la validation
- vérifier lors de la saisie :
textboxNNN_Change()
textboxNNN_AfterUpdate()
textboxNNN_Enter()
- utiliser également la propriété ControlTipText pour informer de la réponse attendue
 
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

  • Résolu(e)
XL 2021 Deux formats de date dans un jeu de donnée volumineux
2
Réponses
15
Affichages
158
JHA
J
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
265
emmanuel.conche
E
P
  • Résolu(e)
XL 2016 double filtre
Réponses
9
Affichages
492
Phil69970
S
  • Résolu(e)
Microsoft 365 Format date
Réponses
6
Affichages
69
Sylvia57
S
J
  • Question Question
Microsoft 365 incrémenter numéro en fonction du mois
Réponses
8
Affichages
405
Phil69970
C
  • Question Question
Microsoft 365 Ajout de données dans tableau existant
Réponses
9
Affichages
133
chnico80
C
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
67
R1-
Conversion entre Date Universelle GMT et Date Localisée, puis correction de date extraite du DOS
Réponses
0
Affichages
61
Lu76Fer
B
  • Question Question
XL 2021 Problème avec un format de date dans un texte
Réponses
2
Affichages
147
BOUREZ
B
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
156
delsart59
D
C
  • Question Question
Autres date avec excel 2007
Réponses
3
Affichages
66
cedana
C
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
203
crocrocro
C
M
  • Question Question
Microsoft 365 format date et histogramme
Réponses
7
Affichages
304
mcj1997
M
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
788
Mody200
M
B
  • Question Question
XL 2019 sauvegarde de donnée dans un calendrier automatique
Réponses
5
Affichages
102
fanfan38
N
  • Résolu(e)
Microsoft 365 Afficher-désafficher lignes selon réponses de menu déroulants (oui-non)
Réponses
11
Affichages
469
NicodePorto
N
  • Question Question
XL 2013 enregistrer la capture d'une shape avec les api avec transparence
2
Réponses
26
Affichages
1 K
patricktoulon
  • Résolu(e)
XL 2010 Extraction de la valeur de l’heure d’une date
2
Réponses
15
Affichages
487
jeanmi
  • Résolu(e)
XL 2021 Fonction Transpose et format date
2
Réponses
15
Affichages
542
vgendron
D
  • Résolu(e)
Microsoft 365 MFC sur des cellules au format hh:mm:ss
Réponses
4
Affichages
147
Daffy02
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…