Macro qui verifie le contenu date

Bonjour,

ce code ci dessous permet de contrôler si la cellule est bien au format date "m/d/yyy", mais je remarque qu'il ne contrôle pas le contenu de la cellule date.
Exemple le fait d'écrire 1204/2009 au lieu 12/04/2009, c'est pareil pour lui, alors que ça devrait être faux.

Comment faire pour qu'il vérifie que le contenu est une vrai date ??

Code:

---

1 2	If x.NumberFormat <> "m/d/yyyy" Then Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS)

---

Merci d'avance
Codialement

Bonsoir,
Essayes avec ce code

Code:

---

If IsDate(Range("a1")) = False 'bien sur remplace range("a1")

---

a +

Bonjour


J'ai tester cela avec une fausse DATA 1212/2009 et 12/12/2009, pour lui c pareil

merci de votra aide

Code:

---

If x<> isdate Then Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS)

---

merci

bonjour,

La fonction IsDate() nécessite un argument !!!

Code:

---

If IsDate(ValeurCellule)

---

bonjour,

J'ai fait cela et toujours pareil

Code:

---

If x <> IsDate("m/d/yyyy") Then Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Format date

---

merci

Oh...
Isdate renvoie True ou False
Ouvre donc ton aide en ligne sur ce mot !
et, donc :

Code:

---

If x <> IsDate("m/d/yyyy")

---

n'aurait de sens que si x lui-même était un booléen (au demeurant bien inutile ...) !!!!
Re : il est temps d'ouvrir ton aide en ligne sur Isdate, de lire et de lire également les exemples d'application qui viennent avec cette rubrique d'aide !

Voici mon code entier,
La ligne en question est de contrôler si la cellule est bien au format date "m/d/yyy", mais je remarque qu'il ne contrôle pas le contenu de la cellule date.
Exemple le fait d'écrire 1204/2009 au lieu 12/04/2009, c'est pareil pour lui, alors que ça devrait être faux.

Comment faire pour qu'il vérifie que le contenu est une vrai date ??

Code:

---

1 2 3 4 5 6 7 8 9

Sub test () 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 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 Next   End Sub

---

Commence par t'intéresser à l'utilisation de l'opérateur Like et à ses exemples d'utilisation.
Reviens pour la suite une fois celà vu et compris.

ucfoutu,

l'opérateur Like je le connais, ce que j'ai besoin c'est une aide.

Citation:

---

Envoyé par roidurif

ucfoutu,

l'opérateur Like je le connais, ce que j'ai besoin c'est une aide.

---

Elle commence sur ta machine (aide en ligne ou F1)
Commence par ce petit effort, après avoir lu ou relu :
http://www.developpez.net/forums/d56...-lutilisation/
Je viendrai ensuite, au besoin, à la rescousse (pas avant ce geste primordial).

Voici ce j'ai fait, mais toujours rien

Code:

---

1 2	If x Like "##/##/####" Then Sheets(CONTROLE).Cells(8, 256).End(xlToLeft).Offset(0, 1) = x.Address(REF_ABS, REF_ABS) 'Format date

---

Citation:

---

Envoyé par roidurif

Bonjour,

ce code ci dessous permet de contrôler si la cellule est bien au format date "m/d/yyy" (je suppose, compte tenu du reste, que tu as oublié un y ici), mais je remarque qu'il ne contrôle pas le contenu de la cellule date.
Exemple le fait d'écrire 1204/2009 au lieu 12/04/2009, c'est pareil pour lui, alors que ça devrait être faux.

Comment faire pour qu'il vérifie que le contenu est une vrai date ??

---

Tu as mal lu l'utilisation de l'opérateur Like !!!

Voilà donc ta fonction de vérification :

Code:

---

1 2 3 4 5

Private Function verifie(chaine As String) As Boolean If chaine Like "!*#/*#/####" Or Len(chaine) > 10 Or Len(chaine) < 8 Then Exit Function If Val(chaine) > 12 Or Not IsDate(chaine) Then Exit Function verifie = True End Function

---

Elle retourne True (si date valable) ou False (si date non valable) pour une date exprimée sous la forme que tu as indiquée (m/d/yyyy)

Le paramètre chaine (ton x) à lui passer doit d'abord être transformé au besoin en string.

Merci ucfoutu pour ton aide