Format Date

Créer une discussion
Répondre

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
kingfadhel

kingfadhel

XLDnaute Impliqué
Bonjour,
Je voudrais faire un contrôle sur une colonne de façon que je saisisse 291013 et quelle se transforme en date 29/10/2013 ou simplement 29/10/13

merci d'avance
 
Trier par date Trier par votes
Re : Format Date

Bonjour le Forum,
Bonjour Kingfadhel, excfl🙂,

Hum hum, excfl, je pense que ta formule a un petit soucis pour les date tapée dont le jour est inférieur a 10, si on tape en A1 une valeur de type 050812 la valeur étant numérique le 0 de gauche va disparaitre et le résultat de ta formule va renvoyer 50/81/12

en fichier joint je propose donc une formule tenant compte de cette particularité, en colonne D et en colonne F une autre solution qui passe par un format personnalisé de type 00"/"00"/"00

cette 2ème solution est applicable si on a pas de calcul a faire ^par rapport à ces dates

Voir fichier joint

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Format Date

Merci à vous excfl et jocelyn

voila une macro efficace que je viens de la créer , je voudrais simplement qu'elle s'applique automatiquement si une cellule de la colonne A change d valeur

Code: 
Sub TexteDates()
Dim Cel As Range
Dim n, an, mm, jj As Double
Dim v As String
For Each Cel In Selection
n = Len(Cel)
v = Cel.Value
If n = 4 Then
an = 2000 + Right(v, 2)
mm = Left(Right(v, 3), 1)
jj = Left(v, 1)
Cel.Formula = "=DATE(" & an & "," & mm & "," & jj & ")"
End If
If n = 5 Then
an = 2000 + Right(v, 2)
mm = Left(Right(v, 4), 2)
jj = Left(v, 1)
Cel.Formula = "=DATE(" & an & "," & mm & "," & jj & ")"
End If
If n = 6 Then
an = 2000 + Right(v, 2)
mm = Left(Right(v, 4), 2)
jj = Left(v, 2)
Cel.Formula = "=DATE(" & an & "," & mm & "," & jj & ")"
End If
Next Cel
End Sub
 
Vote positif 0 Vote négatif
Re : Format Date

Jocelyn à dit:
Bonjour le Forum,
Bonjour Kingfadhel, excfl🙂,

Hum hum, excfl, je pense que ta formule a un petit soucis pour les date tapée dont le jour est inférieur a 10, si on tape en A1 une valeur de type 050812 la valeur étant numérique le 0 de gauche va disparaitre et le résultat de ta formule va renvoyer 50/81/12

en fichier joint je propose donc une formule tenant compte de cette particularité, en colonne D et en colonne F une autre solution qui passe par un format personnalisé de type 00"/"00"/"00

cette 2ème solution est applicable si on a pas de calcul a faire ^par rapport à ces dates

Voir fichier joint

Cordialement
Cliquez pour agrandir...

le problème c'est que je ne suis pas le seul à saisir les données, donc il y a risque de saisir les dates erronées exemple: 5513 ==> 5 mai 2013 ça va erroné beaucoup d'autre champs calculés à partir de la date.
Merci
 
Vote positif 0 Vote négatif
Re : Format Date

Bonjour Jocelyn

Jocelyn à dit:
hum, excfl, je pense que ta formule a un petit soucis pour les date tapée dont le jour est inférieur a 10, si on tape en A1 une valeur de type 050812 la valeur étant numérique le 0 de gauche va disparaitre et le résultat de ta formule va renvoyer 50/81/12
Voir fichier joint
Cliquez pour agrandir...

Bonne observation de ta part.

Mais il suffit de formater en texte la cellule A1.

Pour le fun :

Code: 
=SI(NBCAR(A1)=5;GAUCHE(A1;1)&"/"&STXT(A1;2;2)&"/"&DROITE(A1;2);GAUCHE(A1;2)&"/"&STXT(A1;3;2)&"/"&DROITE(A1;2))

Cette formule permet de faire des calculs à partir de la date modifiée.

excfl
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Format Date

Re,

kingfadhel à dit:
le problème c'est que je ne suis pas le seul à saisir les données, donc il y a risque de saisir les dates erronées exemple: 5513 ==> 5 mai 2013 ça va erroné beaucoup d'autre champs calculés à partir de la date.
Merci
Cliquez pour agrandir...

Pour obliger à saisir 6 caractères :

Données
Validation des données
Autoriser : longueur du texte : longueur : 6

excfl

Pour guider l'utilisateur : Alerte d'erreur.jpg
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Format Date

Bonsour®
une adaptation d'une macro originale de Chip Pearson
utilisant la fonction DateValue (prise en compte des paramètres format date systèmes)
détection automatique "By design" d'une donnée "date"

à utiliser sur la plage à redéfinir (A1:a10)

VB: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' d'après la macro originale de Chip Pearson
'******* [url=http://www.cpearson.com/Excel/DateTimeEntry.htm]Date And Time Entry[/url]
 Dim DateStr As String
'--------------------------------
 On Error GoTo EndMacro
 '  ********** ***********   adapter la plage selon besoins
 If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
     Exit Sub
 End If
 '--------------------------------
 If Target.Cells.Count > 1 Then
     Exit Sub
 End If
 If Target.Value = "" Then
     Exit Sub
 End If
'----------------------------------
 Application.EnableEvents = False
 With Target
 If .HasFormula = False Then
     Select Case Len(.Formula)
         Case 4 ' e.g., j/m/aa
             DateStr = Left(.Formula, 1) & "/" & _
             Mid(.Formula, 2, 1) & "/" & Right(.Formula, 2)
'**********************************************
         Case 5 ' e.g., j/mm/aa  !!! ### !!! 19398 (jjmaa) ==> 20398 (jmmaa) (suite logique)
             If Mid(.Formula, 2, 2) > "12" Then
             '21398  21 mars 1998
                    DateStr = Left(.Formula, 2) & "/" & Mid(.Formula, 3, 1) & "/" & Right(.Formula, 2)
             Else
             '20398 2 mars 1998
                    DateStr = Left(.Formula, 1) & "/" & Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2)
                 End If
'**********************************************
         Case 6 ' e.g., jj/mm/aa = 2-Sep-1998
             DateStr = Left(.Formula, 2) & "/" & _
                 Mid(.Formula, 3, 2) & "/" & Right(.Formula, 2)
         Case 7 ' e.g., j/mm/aaaa = 23-Jan-1998 NOT 3-Dec-1998
             DateStr = Left(.Formula, 1) & "/" & _
                 Mid(.Formula, 2, 2) & "/" & Right(.Formula, 4)
         Case 8 ' e.g., jj/mm/aaaa = 2-Sep-1998
             DateStr = Left(.Formula, 2) & "/" & _
                 Mid(.Formula, 3, 2) & "/" & Right(.Formula, 4)
         Case Else
             Err.Raise 0
     End Select
     .Formula = DateValue(DateStr)
 End If

 End With
 Application.EnableEvents = True
 Exit Sub
EndMacro:
 MsgBox "La date saisie " _
 & Chr(10) & CLng(Target.Value) _
 & Chr(10) & "n'est pas valide !" _
 & Chr(10) & "4 car. =>     jmaa" _
 & Chr(10) & "5 car. =>    jmmaa" _
 & Chr(10) & "6 car. =>   jjmmaa" _
 & Chr(10) & "7 car. =>  jmmaaaa" _
 & Chr(10) & "8 car. => jjmmaaaa"
 Application.EnableEvents = True
 End Sub
 
Vote positif 0 Vote négatif
Re : Format Date

Jocelyn à dit:
re,

Revoila le fichier avec la macro modifiée je pense que cela marche (bon je suis quand même une bille en VBA alors a tester) la macro couvre la plage H3:H20

regardes et dis nous
Cliquez pour agrandir...


Merci Jocelyn mais il y a une petite faute que je n'ai pas encore identifié lorsque je saisie par exemple 24313 ++> 24 mars 2013 il s'affiche 24/07/1966

je vais travaillé là dessus
 
Vote positif 0 Vote négatif
Re : Format Date

Modeste geedee à dit:
Bonsour®

une adaptation d'une macro originale de Chip Pearson
utilisant la fonction DateValue (prise en compte des paramètres format date systèmes)
détection automatique "By design" d'une donnée "date"

à utiliser sur la plage à redéfinir (A1:a10)

VB: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' d'après la macro originale de Chip Pearson
'******* [url=http://www.cpearson.com/Excel/DateTimeEntry.htm]Date And Time Entry[/url]
 Dim DateStr As String
'--------------------------------
 On Error GoTo EndMacro
 '  ********** ***********   adapter la plage selon besoins
 If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
     Exit Sub
 End If
 '--------------------------------
 If Target.Cells.Count > 1 Then
     Exit Sub
 End If
 If Target.Value = "" Then
     Exit Sub
 End If
'----------------------------------
 Application.EnableEvents = False
 With Target
 If .HasFormula = False Then
     Select Case Len(.Formula)
         Case 4 ' e.g., j/m/aa
             DateStr = Left(.Formula, 1) & "/" & _
             Mid(.Formula, 2, 1) & "/" & Right(.Formula, 2)
'**********************************************
         Case 5 ' e.g., j/mm/aa  !!! ### !!! 19398 (jjmaa) ==> 20398 (jmmaa) (suite logique)
             If Mid(.Formula, 2, 2) > "12" Then
             '21398  21 mars 1998
                    DateStr = Left(.Formula, 2) & "/" & Mid(.Formula, 3, 1) & "/" & Right(.Formula, 2)
             Else
             '20398 2 mars 1998
                    DateStr = Left(.Formula, 1) & "/" & Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2)
                 End If
'**********************************************
         Case 6 ' e.g., jj/mm/aa = 2-Sep-1998
             DateStr = Left(.Formula, 2) & "/" & _
                 Mid(.Formula, 3, 2) & "/" & Right(.Formula, 2)
         Case 7 ' e.g., j/mm/aaaa = 23-Jan-1998 NOT 3-Dec-1998
             DateStr = Left(.Formula, 1) & "/" & _
                 Mid(.Formula, 2, 2) & "/" & Right(.Formula, 4)
         Case 8 ' e.g., jj/mm/aaaa = 2-Sep-1998
             DateStr = Left(.Formula, 2) & "/" & _
                 Mid(.Formula, 3, 2) & "/" & Right(.Formula, 4)
         Case Else
             Err.Raise 0
     End Select
     .Formula = DateValue(DateStr)
 End If

 End With
 Application.EnableEvents = True
 Exit Sub
EndMacro:
 MsgBox "La date saisie " _
 & Chr(10) & CLng(Target.Value) _
 & Chr(10) & "n'est pas valide !" _
 & Chr(10) & "4 car. =>     jmaa" _
 & Chr(10) & "5 car. =>    jmmaa" _
 & Chr(10) & "6 car. =>   jjmmaa" _
 & Chr(10) & "7 car. =>  jmmaaaa" _
 & Chr(10) & "8 car. => jjmmaaaa"
 Application.EnableEvents = True
 End Sub
Cliquez pour agrandir...

merci infiniment mais que dites vous de la saisie 21213 c'est 21/02/2013 ou 02/12/2013
la macro la prend pour la première.
 
Vote positif 0 Vote négatif
Re : Format Date

Bonsour®
kingfadhel à dit:
merci infiniment mais que dites vous de la saisie 21213 c'est 21/02/2013 ou 02/12/2013
la macro la prend pour la première.
Cliquez pour agrandir...

comme dit précédemment : le principe (*)voudrait que l'on saisisse 2 chiffres pour chaque période jour, mois ou année...
mais "by design" excel identifie 21213 comme une valeur date acceptable si l'on considère : 2/12/13
faut-il dans ce cas supposer une erreur par rapport à 210213 ???

par défaut :
modifier au cas longueur = 5
Case 5 ' e.g., j/mm/aa !!! ### !!! 19398 (jjmaa) ==> 20398 (jmmaa) (suite logique)
DateStr = Left(.Formula, 1) & "/" & Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2)
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
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

E
  • Question Question
XL 2021 MFC Date dépassée "SAUF SI"
Réponses
3
Affichages
118
JHA
J
W
  • Question Question
Microsoft 365 compter le nombre d'articles expédiés un jour donné
Réponses
2
Affichages
276
Wilmouth Michel
W
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
771
com689
C
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
745
un internaute
U
O
  • Résolu(e)
XL 2010 Macro - Incrémentation Date -- jj/mm/N-nombre ou jj/mm/N+nombre
Réponses
6
Affichages
164
Olivier1978
O
PORCHER
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
358
AtTheOne
AtTheOne
C
  • Question Question
Microsoft 365 fonction max renvoie la colonne
Réponses
3
Affichages
187
Gégé-45550
Gégé-45550
fanch55
  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
448
jurassic pork
jurassic pork
U
  • Résolu(e)
Autres Comment modifier les macros pour qu’elles arrivent à faire ce que je veux
Réponses
6
Affichages
278
un internaute
U
ya_v_ka
  • Question Question
Microsoft 365 Référence à bibliothèque manquante
2
Réponses
23
Affichages
809
patricktoulon
patricktoulon
L
  • Question Question
XL 2013 VBA fichier CSV
2
Réponses
19
Affichages
761
lepiouf
L
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
325
Dand87
D
W
  • Question Question
Microsoft 365 Macro pour un bilan fonctionnement coloré
Réponses
3
Affichages
132
sylvanu
sylvanu
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
371
Cousinhub
Cousinhub
C
  • Résolu(e)
Power Query Jour ouvré précédent si date n'est pas un jour ouvré
Réponses
6
Affichages
266
alexga78
A
KTM
  • Question Question
XL 2016 Exporter Graphique sur nouveau classeur
2
Réponses
19
Affichages
549
laurent950
laurent950
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
845
bruno lemaire
B
D
  • Question Question
XL 2021 filtre addition occurrence
Réponses
10
Affichages
332
chris
chris
D
  • Résolu(e)
Microsoft 365 Problème format date
Réponses
7
Affichages
260
dd_76
D
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
260
Ron74
R
Retour