Macro Format date

Bonjour,

Dans la macro contrôle Sub Test2() 'Contrôle Format Date et Client
il y'a un script qui dit si :
- Le format date "début et fin" de l'onglet "Feuil1" colonne BB et BC est jj/mm/aaaa alors OK => si Faux indiquer le "Numéro célulle" dans onglet feuil2 (Format date jj/mm/aaaa)

Cela fonctionne, mais lorsque par exemple je fais un copier / coller de date d'un fichier vers celui-ci, malgré le bon format date jj/mm/aaaa biensur, en lancant la macro, il détecte comme incorrect.

Pour que cela fonctionne, je dois valider chaque cellule par la touche "entrée", du coup la date s'alligne de la gauche vers droite de la celulle.
Et en relancant la macro ca marche bien.

Je vois pas comment corriger cela, dans le fichier que j'ai joins, j'ai fais le copier/coller, merci de votre aide

Code:

---

1 2 3 4 5

Sub Test2() 'Contrôle Format Date et Client MonMax = Application.Max(Sheets(DATA).Range("BB65536").End( xlUp).Row, Sheets(DATA).Range("BC65536").End(xlUp).Row) For Each x In Sheets(DATA).Range("BB2:BC" & MonMax) If x = "" Or x = 0 Then Sheets(CONTROLE).Cells(10, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Date manquante If x.NumberFormat <> "m/d/yyyy" Then Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Format date

---

Bonjour

Des erreurs sont détectées en ligne 11 (incohérence) et non en 8 ou 10. Tu constates autre chose?
JE ne comprends pas ce contrôle de cohérence.

Je ne comprends pas non plus trop ton idée de contrôler les format. Il me semble qu'il serait préférable de vérifier qu'il s'agit de dates (IsDate(...)) et de forcer le format.


PGZ

Bonjour

Les erreurs sont détectées en BB4 à B19 et de BC4 à BC19 pour des "Dates Incohérentes" dans la feuil2 car il s agiet d un copier /coller.

Tu verras que les date en BB2 BB3 et BC2 BC3 ont été validé en appuyant sur la touche entrée pour forcer la sate.

Dit moi si tu as une solution a me proposer pour forcer le format ou si tu as autre chose a me proposer pour ameliorer cela.. je suis partent.

Merci d avance

Citation:

---

Envoyé par roidurif

Les erreurs sont détectées en BB4 à B19 et de BC4 à BC19 pour des "Dates Incohérentes" dans la feuil2 car il s agiet d un copier /coller.

---

Donc nous sommes bien d'accord. La "fausse" détection d'erreur se produit sur la ligne "contrôle de cohérence" et non pas "date manquante" ou "format date".

Et la ligne de code concernée n'est pas dans celle que tu as données. Ce serait plutôt celle-ci:

Code:

---

If x <> Sheets(DATA).Cells(2, x.Column) Then Sheets(CONTROLE).Cells(11, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incoherence date

---

Mais il est bizarre ce contrôle. Toutes les dates doivent être égales dans chaque colonne?
Si en BB3 tu saisis "30/01/2009", tu peux faire 'entrer' autant de fois que tu veux mais BB3 sortira incohérent.

Pour vérifier que c'est une date, tu pourrais faire

Code:

---

If Not IsDate(x.Value) Then ...

---

Et si en BB et BC ce sont bien 2 dates, vérifier que cDate(BB)<=CDate(BC).

Mais c'est juste un avis.

Bjr,

Excuse moi, La ligne de code concernée est bien dans celle ci.

Code:

---

If x <> Sheets(DATA).Cells(2, x.Column) Then Sheets(CONTROLE).Cells(11, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incoherence date

---

Le contrôle quelle doit faire c'est que les saisies de date début (BB) doit être la même dans cette colonne et ensuite pour la date de fin (BC) pareil

Le fait de faire un copier / coller de date comme en BB4 à B19 et de BC4 à BC19, sont identifies comme une erreur d incohérence date, elle dit que ces date début sont différente de BB2 et la date de fin BC2 sont differentes.

Merci de ton aide

Bonjour.

Je ne vois pas à quoi ça sert de faire un tableau avec des colonnes dates qui doivent avoir les mêmes valeurs sur toutes les lignes... Et pourquoi alors le contrôler et pas simplement copier les valeurs de la première ligne?

C'est toujours embêtant de donner une réponse quand on a l'impression qu'il y a un pb de conception derrière.

Mais bon pour répondre au pied de la lettre, veux-tu essayer ceci

Code:

---

If CDate(x.Value) <> CDate(Sheets(DATA).Cells(2, x.Column).Value) Then Sheets(CONTROLE).Cells(11, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Incoherence date

---

Cordialement,

PGZ