Discussion :

[roidurif]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,
Essayes avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

a +

[roidurif]

Bonjour


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

merci de votra aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci

[patbou]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsDate(ValeurCellule)

[roidurif]

bonjour,

J'ai fait cela et toujours pareil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    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

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[roidurif]

Merci ucfoutu pour ton aide