Test d'une date MMDD

Version imprimable

Bonjour,

Je n'arrive pas à tester correctement une date entrée dans une cellule au format MMDD, la cellule en dessous représente cette date convertie :

Appel de la fonction :

Code:

Case Traitement_Date(1, 10)

La fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function Traitement_Date(ByVal Ligne As Integer, ByVal Colonne As Integer) As Boolean
Dim celldate As Range: Set celldate = ThisWorkbook.Worksheets("coller").Cells(Ligne, Colonne)
With celldate
    If Len(.Text) <> 4 Then:          MsgBox "Longeur de la cellule doit être de 4 caractères": .Select: Exit Function:
    If Not IsNumeric(.Value) Then:    MsgBox "La date doit être au format numérique": .Select: Exit Function:
    .Offset(1, 0) = Mid$(.Value, 1, 2) & "/" & Mid$(.Value, 3, 2) & "/" & Year(Now)
    If Not IsDate(.Offset(1, 0)) Then MsgBox "Date au format mmdd attendu": .Select: Exit Function:
End With
 
Traitement_Date = True
 
End Function

Bonjour,
avec cette petite modif ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Traitement_Date(ByVal Ligne As Integer, ByVal Colonne As Integer) As Boolean
Dim celldate As Range: Set celldate = Sheets("Feuil1").Cells(Ligne, Colonne)
With celldate
    If Len(.Text) <> 4 Then:          MsgBox "Longeur de la cellule doit être de 4 caractères": .Select: Exit Function:
    If Not IsDate(.Value) Then:    MsgBox "La date doit être au format numérique": .Select: Exit Function:
    .Offset(1, 0) = Day(.Value) & "/" & Month(.Value) & "/" & Year(Now)
    If Not IsDate(.Offset(1, 0)) Then MsgBox "Date au format mmdd attendu": .Select: Exit Function:
End With
 
Traitement_Date = True
 
End Function

A+

09/04/2009, 14h10
aalex_38

Merci de s'intéresser à mon cas.

La solution ne fonctionne pas car le champ n'est pas reconnu comme étant une date.

Dans la cellule, j'ai un chiffre par exemple 1231 qui correspond au 31 décembre
Mon problème c'est lorsque j'indique 3112 la date dans la cellule du dessous est automatiquement transformée et donc considérée comme valide.

La date sur 4 caractères me sert pour enregistrer le nom des fichiers.

Edit : la première cellule est au format Text

Je viens d'essayer ça qui ne fonctionne pas non plus :

Code:

If Not Format(.Value, "mmdd")
09/04/2009, 14h57
LeForestier
Compris,
si c'est en texte tu n'a pas de format puisque tu dit que la cellule contient.. 1231
faudrait alors remplacer la ligne

Code:

.Offset(1, 0) = Day(Val(Right(.Value, 2))) & "/" & Month(Val(Left(.Value, 2))) & "/" & Year(Now)

Et mettre ensuite le format voulu.

pour avoir directement le format
Code:

1 2 .Offset(1, 0) = Format(Day(Val(Right(.Value, 2))) & "/" & _ Month(Val(Left(.Value, 2))) & "/" & Year(Now), "ddmm")
EDIT:
Mais en fait, ce que tu veux c'est avoir directement ..3112 ?Si oui, il n'est pas nécessaire de passer par date ? sauf si tu veux tester que ce n'est pas, par ex: 3613
09/04/2009, 16h38
aalex_38

Merci beaucoup, je vais regarder le code dés que j'ai un peu de temps.

Effectivement, je veux 2 choses, tester le format sur 4 caractères, je ne veux ni le mois inversé par rapport au jour, et que le champ corresponde bien à une date valide.

La date affichée dans la cellule en dessous n'est là que pour l'information de l'utilisateur, en réalité c'est la date sur 4 caractères qui est utilisée pour donner un nom à des fichiers générés.

Habituellement pas de problèmes car c'est mon outil et il récupère cette date depuis une autre application.

Le soucis c'est que je doit fournir cet outil à quelqu'un autre car mon contrat de prestation se termine, alors je dois blinder un peu plus certains de mes outils

Code:

Day(Val(Right(.Value, 2)

Me donne un numéro que je ne peux pas exploiter, mais je sens que je vais y arriver bientôt avec les indications fournies !

Bon je reprendrai ça demain parce que là je tourne en rond :furieux:

Bonjour,

je n'aime pas la valeur donnée à tes cellules car elle est loin de te protéger ...
tu ne peux vérifier la validité d'un jour par rapport à 1 mois (la chose est vraie pour tous les mois sauf février, qui peut avoir 28 ou 29 jours selon l'anné ....)

Mais si tu y tiens, on va considérer que toutes les années sont bissectiles, alors ...
Code:

1 2 3 4 5 6 7 Private Function verifie(nb As String) As Boolean Dim mois As Integer If nb Like "!####" Then Exit Function mois = IIf(nb \ 100 > 12, 0, nb \ 100) ' attention : c'est bien \ et non / If Not IsDate(nb Mod 100 & "/" & mois & "/2000") Then Exit Function verifie = True End Function
A appeler ainsi, si toto est la chaine de caractères à vérifier :

Code:

msgbox verifie(toto)

10/04/2009, 09h38
aalex_38

Bonjour,

Merci j'apprecie vraiment votre aide, je ne travaille pas souvent avec les dates et je ne suis donc pas à l'aise.

Une question ne pourrait-on pas utiliser DATEPART ?

Ucfoutu : merci pour le code, même si je ne comprend pas tout :?, je teste !

Citation:

je n'aime pas la valeur donnée à tes cellules car elle est loin de te protége

C'est vrai, normalement personne ne devrait intervenir sur ce champ car il est copié directement depuis une date de fichier sous TSO, mais il se peut parfois que l'on veuille traiter un ancien fichier.
Même si on ne peut pas contrôler toutes les erreurs d'un utilisateur, l'essai tant que faire se peut, le suffixe de mes fichiers excels sont de cette forme Dyymmdd par exemple pour le 8 avril 2009 :

xxx_D090408.xls

EDIT : Encore un fois merci de vous être penché sur mon problème, Ucfoutu le code fonctionne.