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
ManBas
Pour la cellule du 13/7/2006 ce ne doit être que l'alignement qui avait été
modifié par moi peut-être, car son format personnalisé est OK.

"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
ManBas
Bonjour JB,
Tous d'attaque ce matin!
Ce code transforme les dates du classeur exemple, des lignes 11 à 17
(07/01/2007 et 07/05/2007 pour la dernière).
???




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

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 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- Masquer le texte des messages précédents -


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



Avatar
ManBas
Bonjour LSteph,
Merci de ton aide.
Le renseignement de la colonne est automatique lors de la fermeture des
classeurs "nourriciers".
Ils sont sur les bureaux de chaque utilisateur, chaque utilisateur ouvrant
sa cession, et pouvant travailler sur 2 machines differentes simultanément
(plusieurs salles en fonction).
Les classeurs sont installés par les utilisateurs par téléchargement.
En pratique il va falloir que je crée une nouvelle version et impose le
changement de version pour vérifier qu'il n'y a pas deux versions
differentes.
A bientôt

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

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
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
JB
On 10 fév, 08:41, "ManBas" wrote:
Bonjour JB,
Tous d'attaque ce matin!
Ce code transforme les dates du classeur exemple, des lignes 11 à 17
(07/01/2007 et 07/05/2007 pour la dernière).
???

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

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 -


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



Avatar
ManBas
OK JB là ça fonctionne.
Mais l'exemple fourni est une colonne déjà triée: c'est une zone charnière
où l'on voit les deux formats l'un au-dessus de l'autre.
J'avais utilisé une solution moins condensé que la tienne avec Dateserial
(qui tourne aussi).
La contrainte c'est que j'avais au préalable trié moi-même les dates pour
appliquer les deux solutions, comme ici.
La solution de Daniel a l'air de le faire sans le tri. Je vais essayer
aujourd'hui car je vais aller bosser et récupérer le classeur avec les
centaines de lignes.
A plus tard

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

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 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- 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 -




Avatar
JB
-Je n'ai pas trouvé de propriété discriminante entre B2:B9 et D10:D17
(ils sont reconnus comme numérique et date tous les deux, ils ont le
même format)
-Si en B12, la date est 11/7/2006 au lieu 13/7/2006, le pgm de Daniel
ne va pas fonctionner.

JB
On 10 fév, 08:54, "ManBas" wrote:
OK JB là ça fonctionne.
Mais l'exemple fourni est une colonne déjà triée: c'est une zone ch arnière
où l'on voit les deux formats l'un au-dessus de l'autre.
J'avais utilisé une solution moins condensé que la tienne avec Datese rial
(qui tourne aussi).
La contrainte c'est que j'avais au préalable trié moi-même les date s pour
appliquer les deux solutions, comme ici.
La solution de Daniel a l'air de le faire sans le tri. Je vais essayer
aujourd'hui car je vais aller bosser et récupérer le classeur avec les
centaines de lignes.
A plus tard

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

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" p ar 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 l es
formats
!!!
Sinon les mois et les dates s'inversent et les résultats sont fau x.
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'alignem ent
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 (plus ieurs
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 d es
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 -





Avatar
ManBas
Merci JB.
D'accord avec toi: pas de propriété discriminante trouvée.

Je n'ai pas reçu le classeur que je me suis envoyé ce matin du boulot !!!
Pas d'essai possible donc, tant que wanadoo ne transmet pas !!
Comment fais-tu pour suivre un fil de loin en loin?

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

-Je n'ai pas trouvé de propriété discriminante entre B2:B9 et D10:D17
(ils sont reconnus comme numérique et date tous les deux, ils ont le
même format)
-Si en B12, la date est 11/7/2006 au lieu 13/7/2006, le pgm de Daniel
ne va pas fonctionner.

JB
On 10 fév, 08:54, "ManBas" wrote:
OK JB là ça fonctionne.
Mais l'exemple fourni est une colonne déjà triée: c'est une zone charnière
où l'on voit les deux formats l'un au-dessus de l'autre.
J'avais utilisé une solution moins condensé que la tienne avec Dateserial
(qui tourne aussi).
La contrainte c'est que j'avais au préalable trié moi-même les dates pour
appliquer les deux solutions, comme ici.
La solution de Daniel a l'air de le faire sans le tri. Je vais essayer
aujourd'hui car je vais aller bosser et récupérer le classeur avec les
centaines de lignes.
A plus tard

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

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 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- 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 -- Masquer le texte des
messages précédents -


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





Avatar
JB
Je ne suis pas sûr d'avoir compris la question. J'utilise Google.

JB
On 10 fév, 14:43, "ManBas" wrote:
Merci JB.
D'accord avec toi: pas de propriété discriminante trouvée.

Je n'ai pas reçu le classeur que je me suis envoyé ce matin du boulot !!!
Pas d'essai possible donc, tant que wanadoo ne transmet pas !!
Comment fais-tu pour suivre un fil de loin en loin?

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

-Je n'ai pas trouvé de propriété discriminante entre B2:B9 et D10:D 17
(ils sont reconnus comme numérique et date tous les deux, ils ont le
même format)
-Si en B12, la date est 11/7/2006 au lieu 13/7/2006, le pgm de Daniel
ne va pas fonctionner.

JB
On 10 fév, 08:54, "ManBas" wrote:



OK JB là ça fonctionne.
Mais l'exemple fourni est une colonne déjà triée: c'est une zone charnière
où l'on voit les deux formats l'un au-dessus de l'autre.
J'avais utilisé une solution moins condensé que la tienne avec Date serial
(qui tourne aussi).
La contrainte c'est que j'avais au préalable trié moi-même les da tes pour
appliquer les deux solutions, comme ici.
La solution de Daniel a l'air de le faire sans le tri. Je vais essayer
aujourd'hui car je vais aller bosser et récupérer le classeur avec les
centaines de lignes.
A plus tard

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

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 d ate
devient
faux. D'ailleurs lorsqu'on regarde la liste, on voit bien qu'il s'a git
des
jours qui se suivent, du 11 au 17 juillet, et pas les 7 de chaque m ois
(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 surto ut
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 f aux.
On repère "à l'oeil" les formats differents car ils ne sont p as
alignés de
manière identique. J'ai essayé d'effectuer le tri sur l'align ement
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é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 -- Masquer le texte d es
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 -






Avatar
ManBas
Ce que je voulais dire c'est que je crains que ce fil ne soit rompu... A
cette heure je n'ai toujours pas mon fichier! Je l'ai envoyé à 10h ce matin
!
S'il n'arrive pas pendant le week-end, tu ne peux pas surveiller mes
réponses 8 jours durant et seulement les miennes!
Si tu acceptes je t'enverrais un mail sur ton adresse hotmail que je lis
ci-dessous, pour te tenir au courant.

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

Je ne suis pas sûr d'avoir compris la question. J'utilise Google.

JB
On 10 fév, 14:43, "ManBas" wrote:
Merci JB.
D'accord avec toi: pas de propriété discriminante trouvée.

Je n'ai pas reçu le classeur que je me suis envoyé ce matin du boulot !!!
Pas d'essai possible donc, tant que wanadoo ne transmet pas !!
Comment fais-tu pour suivre un fil de loin en loin?

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

-Je n'ai pas trouvé de propriété discriminante entre B2:B9 et D10:D17
(ils sont reconnus comme numérique et date tous les deux, ils ont le
même format)
-Si en B12, la date est 11/7/2006 au lieu 13/7/2006, le pgm de Daniel
ne va pas fonctionner.

JB
On 10 fév, 08:54, "ManBas" wrote:



OK JB là ça fonctionne.
Mais l'exemple fourni est une colonne déjà triée: c'est une zone
charnière
où l'on voit les deux formats l'un au-dessus de l'autre.
J'avais utilisé une solution moins condensé que la tienne avec
Dateserial
(qui tourne aussi).
La contrainte c'est que j'avais au préalable trié moi-même les dates
pour
appliquer les deux solutions, comme ici.
La solution de Daniel a l'air de le faire sans le tri. Je vais essayer
aujourd'hui car je vais aller bosser et récupérer le classeur avec les
centaines de lignes.
A plus tard

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

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 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- 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 -- 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 -






Avatar
JB
Ok, pas de pb!

JB
On 10 fév, 17:32, "ManBas" wrote:
Ce que je voulais dire c'est que je crains que ce fil ne soit rompu... A
cette heure je n'ai toujours pas mon fichier! Je l'ai envoyé à 10h ce matin
!
S'il n'arrive pas pendant le week-end, tu ne peux pas surveiller mes
réponses 8 jours durant et seulement les miennes!
Si tu acceptes je t'enverrais un mail sur ton adresse hotmail que je lis
ci-dessous, pour te tenir au courant.

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

Je ne suis pas sûr d'avoir compris la question. J'utilise Google.

JB
On 10 fév, 14:43, "ManBas" wrote:



Merci JB.
D'accord avec toi: pas de propriété discriminante trouvée.

Je n'ai pas reçu le classeur que je me suis envoyé ce matin du boul ot !!!
Pas d'essai possible donc, tant que wanadoo ne transmet pas !!
Comment fais-tu pour suivre un fil de loin en loin?

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

-Je n'ai pas trouvé de propriété discriminante entre B2:B9 et D10 :D17
(ils sont reconnus comme numérique et date tous les deux, ils ont le
même format)
-Si en B12, la date est 11/7/2006 au lieu 13/7/2006, le pgm de Daniel
ne va pas fonctionner.

JB
On 10 fév, 08:54, "ManBas" wrote:

OK JB là ça fonctionne.
Mais l'exemple fourni est une colonne déjà triée: c'est une zone
charnière
où l'on voit les deux formats l'un au-dessus de l'autre.
J'avais utilisé une solution moins condensé que la tienne avec
Dateserial
(qui tourne aussi).
La contrainte c'est que j'avais au préalable trié moi-même les dates
pour
appliquer les deux solutions, comme ici.
La solution de Daniel a l'air de le faire sans le tri. Je vais essayer
aujourd'hui car je vais aller bosser et récupérer le classeur ave c les
centaines de lignes.
A plus tard

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

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 "nourri e" 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ée r 2 macros
differentes avec DateSerial(myAnnee, myMois, myJour), mais
surtout
de
trier
au préalable et "à la main" la colonne de date pour sépar er 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'ali gnement
avec
une
macro, mais ça ne marche pas non plus car le critère "gener al" 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édents -


- Afficher le texte des messages précédents -- Masquer le tex te 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 -- Masquer le texte d es
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