Discussion :

[rodrigue62]

Bonjour,

je recupere une chaîne de caractère dans un tableau qui correspond en fait à une date mais que les personnes ont pu écrire sous une forme quelcquonque:
- "11/07/07"
- "11.07.2007"
- "11-07-2007"
- "11-juillet-2007"
- "11 juillet 2007"
- "11-jui-07"
- ...

et je veux pour l'inserer dans un autre tableau la reformaté de la sorte : "11/07/2007" .

j'ai essayé pour ca plusieurs méthode:

methode 1/

Code :

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

1
2
3
     dateres = Worksheets("menu").Cells(cmp_rsv, 7).Value
     dateres = Format(dateres, "00/00/0000")
     ActiveCell.Offset(0, 20).Value = dateres

methode 2/

Code :

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

       ActiveCell.Offset(0, 20).Value = DateValue(Worksheets("Menu").Cells(cmp_rsv, 7).Value)

la valeur contenu dans la feuille "Menu" est en fait la valeur recupérée.

aucune de ces deux methodes ne marche j'ai chaque fois une incopmpatibilité de type. En particulier avec une date au format : "11.07.2007"

Merci d'avance.

[COCONUT2]

le plus simple serait de créer un message d'alerte si le format entrée ne correspond pas à ce dont tu as besoin!
ou alors de forcer les gens à rentrer la date sur 3 cases utilisant les listes autorisées.

En faisant ca, tu t'épargnes une macro qui alourdit ton fichier.