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 Probleme de date

Probleme de date

20 réponses
Avatar
ManBas
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats differents:
mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de trier
au préalable et "à la main" la colonne de date pour séparer les formats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas alignés de
manière identique. J'ai essayé d'effectuer le tri sur l'alignement avec une
macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur sur
http://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Daniel
Bonsoir.
Pas vraiment sûr d'avoir tout compris, car tes cellules que tu indiques de
juillet sont pour moi de décembre. Essaie néanmoins la macro suivante :

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
c = DateSerial(tablo(2), tablo(1), tablo(0))
End If
End If
Next c
End Sub

Cordialement.
Daniel
"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents: mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier au préalable et "à la main" la colonne de date pour séparer les
formats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas alignés de
manière identique. J'ai essayé d'effectuer le tri sur l'alignement avec
une macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur sur
http://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide




Avatar
JB
Bonsoir,

Sélectionner les dates Américaines:

For Each c In Selection
c.Value = CDate(c.Value)
c.NumberFormat = "m/d/yyyy"
Next

Cordialement JB

On 9 fév, 19:00, "ManBas" wrote:
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats different s:
mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de tr ier
au préalable et "à la main" la colonne de date pour séparer les for mats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas align és de
manière identique. J'ai essayé d'effectuer le tri sur l'alignement av ec une
macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur surhttp://cjoint.com/confirm.php?cjoin t=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide


Avatar
ManBas
Merci Daniel.
Qu'est-ce qui te fait penser qu'il sa'git de décembre plutôt que juillet?
J'aurais dû mettre la colonne entière: moi j'ai fait la difference avec des
"mois" qui vont jusqu'à 31 !


"Daniel" a écrit dans le message de news:
%
Bonsoir.
Pas vraiment sûr d'avoir tout compris, car tes cellules que tu indiques de
juillet sont pour moi de décembre. Essaie néanmoins la macro suivante :

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
c = DateSerial(tablo(2), tablo(1), tablo(0))
End If
End If
Next c
End Sub

Cordialement.
Daniel
"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents: mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier au préalable et "à la main" la colonne de date pour séparer les
formats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas alignés
de manière identique. J'ai essayé d'effectuer le tri sur l'alignement
avec une macro, mais ça ne marche pas non plus car le critère "general"
est omniprésent sur l'alignement.
Je vous ai mis un bout de classeur sur
http://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide









Avatar
ManBas
Merci JB.
Le résultat est le même qu'avec Daniel. En effet un format de date devient
faux. D'ailleurs lorsqu'on regarde la liste, on voit bien qu'il s'agit des
jours qui se suivent, du 11 au 17 juillet, et pas les 7 de chaque mois
(novembre, decembre) puis d'un coup passage au 13 juillet.


"JB" a écrit dans le message de news:

Bonsoir,

Sélectionner les dates Américaines:

For Each c In Selection
c.Value = CDate(c.Value)
c.NumberFormat = "m/d/yyyy"
Next

Cordialement JB

On 9 fév, 19:00, "ManBas" wrote:
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents:
mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier
au préalable et "à la main" la colonne de date pour séparer les formats
!!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas alignés de
manière identique. J'ai essayé d'effectuer le tri sur l'alignement avec
une
macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur
surhttp://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide


Avatar
Daniel
Quand on écrit : =MOIS(B2) on obtient 11, ce qui est cohérent avec le fait
que les dates soient au format m/j/aaaa.
Daniel
"ManBas" a écrit dans le message de news:

Merci Daniel.
Qu'est-ce qui te fait penser qu'il sa'git de décembre plutôt que juillet?
J'aurais dû mettre la colonne entière: moi j'ai fait la difference avec
des "mois" qui vont jusqu'à 31 !


"Daniel" a écrit dans le message de news:
%
Bonsoir.
Pas vraiment sûr d'avoir tout compris, car tes cellules que tu indiques
de juillet sont pour moi de décembre. Essaie néanmoins la macro suivante
:

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
c = DateSerial(tablo(2), tablo(1), tablo(0))
End If
End If
Next c
End Sub

Cordialement.
Daniel
"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents: mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier au préalable et "à la main" la colonne de date pour séparer les
formats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas alignés
de manière identique. J'ai essayé d'effectuer le tri sur l'alignement
avec une macro, mais ça ne marche pas non plus car le critère "general"
est omniprésent sur l'alignement.
Je vous ai mis un bout de classeur sur
http://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide













Avatar
Daniel
Pas persuadé, mais enfin, regarde celle-ci :

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
Var = c.NumberFormat
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
If tablo(0) > 12 Then
c = DateSerial(tablo(2), tablo(1), tablo(0))
Else
c = DateSerial(tablo(2), tablo(0), tablo(1))
End If
End If
End If
Next c
End Sub

Cordialement.
Daniel
"Daniel" a écrit dans le message de news:

Quand on écrit : =MOIS(B2) on obtient 11, ce qui est cohérent avec le fait
que les dates soient au format m/j/aaaa.
Daniel
"ManBas" a écrit dans le message de news:

Merci Daniel.
Qu'est-ce qui te fait penser qu'il sa'git de décembre plutôt que juillet?
J'aurais dû mettre la colonne entière: moi j'ai fait la difference avec
des "mois" qui vont jusqu'à 31 !


"Daniel" a écrit dans le message de news:
%
Bonsoir.
Pas vraiment sûr d'avoir tout compris, car tes cellules que tu indiques
de juillet sont pour moi de décembre. Essaie néanmoins la macro suivante
:

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
c = DateSerial(tablo(2), tablo(1), tablo(0))
End If
End If
Next c
End Sub

Cordialement.
Daniel
"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents: mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier au préalable et "à la main" la colonne de date pour séparer les
formats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas alignés
de manière identique. J'ai essayé d'effectuer le tri sur l'alignement
avec une macro, mais ça ne marche pas non plus car le critère "general"
est omniprésent sur l'alignement.
Je vous ai mis un bout de classeur sur
http://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide

















Avatar
lSteph
Bonsoir,

Au moment de l'import sélectionne ta colonne,
Menu Données Convertir,suivant suivant
détermine le format de date à interprèter dans le 3ème écran.

Tu peux aussi regarder ce que cela donne avec l'enregistreur de macros
puis simplifier et intégrer à ta macro.

Cordialement.

lSteph


On 9 fév, 19:00, "ManBas" wrote:
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats different s:
mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de tr ier
au préalable et "à la main" la colonne de date pour séparer les for mats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas align és de
manière identique. J'ai essayé d'effectuer le tri sur l'alignement av ec une
macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur surhttp://cjoint.com/confirm.php?cjoin t=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide


Avatar
JB
Bonjour,

Sub essai()
For Each c In [B2:B17]
temp = Split(c.Value, "/")
If c.HorizontalAlignment = -4131 Then
c.Clear
c.Value = DateSerial(temp(2), temp(1), temp(0))
Else
c.Clear
c.Value = DateSerial(temp(2), temp(0), temp(1))
End If
Next
End Sub

http://cjoint.com/?ckizLcSZYV

Cordialement JB

On 9 fév, 21:20, "ManBas" wrote:
Merci JB.
Le résultat est le même qu'avec Daniel. En effet un format de date de vient
faux. D'ailleurs lorsqu'on regarde la liste, on voit bien qu'il s'agit des
jours qui se suivent, du 11 au 17 juillet, et pas les 7 de chaque mois
(novembre, decembre) puis d'un coup passage au 13 juillet.

"JB" a écrit dans le message de news:

Bonsoir,

Sélectionner les dates Américaines:

For Each c In Selection
c.Value = CDate(c.Value)
c.NumberFormat = "m/d/yyyy"
Next

Cordialement JB

On 9 fév, 19:00, "ManBas" wrote:



Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par d eux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents:
mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macr os
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier
au préalable et "à la main" la colonne de date pour séparer les f ormats
!!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas ali gnés de
manière identique. J'ai essayé d'effectuer le tri sur l'alignement avec
une
macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur
surhttp://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide- Masquer le texte des messages précéde nts -


- Afficher le texte des messages précédents -



Avatar
ManBas
Bonjour Daniel,
Pardonne-moi, j'étais trop crevé hier soir.
Ton essai a l'air de fonctionner correctement (sauf la première cellule qui
contient le 13/7/2006 (??)).
Je vais récupérer la base en entier et je ferai l'essai dessus.
Merci infiniment de ton aide. A bientôt.




"Daniel" a écrit dans le message de news:

Pas persuadé, mais enfin, regarde celle-ci :

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
Var = c.NumberFormat
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
If tablo(0) > 12 Then
c = DateSerial(tablo(2), tablo(1), tablo(0))
Else
c = DateSerial(tablo(2), tablo(0), tablo(1))
End If
End If
End If
Next c
End Sub

Cordialement.
Daniel
"Daniel" a écrit dans le message de news:

Quand on écrit : =MOIS(B2) on obtient 11, ce qui est cohérent avec le
fait que les dates soient au format m/j/aaaa.
Daniel
"ManBas" a écrit dans le message de news:

Merci Daniel.
Qu'est-ce qui te fait penser qu'il sa'git de décembre plutôt que
juillet?
J'aurais dû mettre la colonne entière: moi j'ai fait la difference avec
des "mois" qui vont jusqu'à 31 !


"Daniel" a écrit dans le message de news:
%
Bonsoir.
Pas vraiment sûr d'avoir tout compris, car tes cellules que tu indiques
de juillet sont pour moi de décembre. Essaie néanmoins la macro
suivante :

Sub test()
Dim c As Range, tablo
Columns("B:B").Select
Selection.NumberFormat = "d/m/yyyy"
For Each c In Range("B2", Range("B65536").End(xlUp))
If Not IsNumeric(c) Then
tablo = Split(c, "/")
If UBound(tablo) <> 2 Then
MsgBox "Erreur cellule : " & c.Address
c.Interior.ColorIndex = 3
Else
c = DateSerial(tablo(2), tablo(1), tablo(0))
End If
End If
Next c
End Sub

Cordialement.
Daniel
"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents: mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier au préalable et "à la main" la colonne de date pour séparer les
formats !!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas
alignés de manière identique. J'ai essayé d'effectuer le tri sur
l'alignement avec une macro, mais ça ne marche pas non plus car le
critère "general" est omniprésent sur l'alignement.
Je vous ai mis un bout de classeur sur
http://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusieurs
milliers de dates)?
Merci beaucoup de votre aide






















Avatar
JB
Sub essai2()
For Each c In [B2:B9]
temp = Split(c.Value, "/")
c.Clear
c.Value = DateSerial(temp(2), temp(0), temp(1))
Next
For Each c In [B10:B17]
temp = Split(c.Value, "/")
c.Clear
c.Value = DateSerial(temp(2), temp(1), temp(0))
Next
End Sub

http://cjoint.com/?ckiKbpi4Ig


On 10 fév, 08:26, "JB" wrote:
Bonjour,

Sub essai()
For Each c In [B2:B17]
temp = Split(c.Value, "/")
If c.HorizontalAlignment = -4131 Then
c.Clear
c.Value = DateSerial(temp(2), temp(1), temp(0))
Else
c.Clear
c.Value = DateSerial(temp(2), temp(0), temp(1))
End If
Next
End Sub

http://cjoint.com/?ckizLcSZYV

Cordialement JB

On 9 fév, 21:20, "ManBas" wrote:



Merci JB.
Le résultat est le même qu'avec Daniel. En effet un format de date devient
faux. D'ailleurs lorsqu'on regarde la liste, on voit bien qu'il s'agit des
jours qui se suivent, du 11 au 17 juillet, et pas les 7 de chaque mois
(novembre, decembre) puis d'un coup passage au 13 juillet.

"JB" a écrit dans le message de news:

Bonsoir,

Sélectionner les dates Américaines:

For Each c In Selection
c.Value = CDate(c.Value)
c.NumberFormat = "m/d/yyyy"
Next

Cordialement JB

On 9 fév, 19:00, "ManBas" wrote:

Bonjour à tous,
J'ai une base de données XL dans un réseau, qui est "nourrie" par deux
tableurs excel (a priori identiques mais ...?)
La colonne obtenue pour le recueil des dates comporte 2 formats
differents:
mm/jj/aaaa et jj/mm/aaaa.
Impossible de l'utiliser telle quelle pour mon TCD.
Pour uniformiser le format date j'ai été obligé de créer 2 ma cros
differentes avec DateSerial(myAnnee, myMois, myJour), mais surtout de
trier
au préalable et "à la main" la colonne de date pour séparer les formats
!!!
Sinon les mois et les dates s'inversent et les résultats sont faux.
On repère "à l'oeil" les formats differents car ils ne sont pas a lignés de
manière identique. J'ai essayé d'effectuer le tri sur l'alignemen t avec
une
macro, mais ça ne marche pas non plus car le critère "general" est
omniprésent sur l'alignement.
Je vous ai mis un bout de classeur
surhttp://cjoint.com/confirm.php?cjoint=cjsVfhD02b
Pouvez-vous m'aider à trouver une solution unique et rapide (plusie urs
milliers de dates)?
Merci beaucoup de votre aide- Masquer le texte des messages précé dents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




1 2