Pb de format

[Sebbb]

Bonjour à toutes et à tous,

J'ai un problème de format.
Je m'explique, dans une cellule, je note les 8 derniers éléments qui composent le nom d'une feuille, cette feuille se nomme AA-15-05-05.

J'ai alors dans ma cellule: 15-05-05.

Je souhaiterai que cette cellule soit transformée en date : 15/05/2005 afin de pouvoir comparer des cellules de date à cette dernière (<; >).

J'ai essayer de 'jouer' avec le format mais je n'y arrive pas.

Je souhaiterai que la manip soit en vba.

j'espère que l'un (ou l'une) de vous pourrez me venir en aide.

Je vous remercie par avance de votre aide.

A bientôt
Sébbb.

 

[CAP]

Bonjour Sebb,

En faisant
Selection.NumberFormat = 'dd/mm/yyyy'

où tu as préalablement sélectionné ta cellule, ça ne marche pas ?
En faisant le test de mon côté, c'est ok.

CAP

 

[myDearFriend!]

Bonjour Sebbb, CAP,

Peut-être peux-tu essayer comme ça :

Selection = Replace(Selection, '-', '/')

Cordialement,

 

[Sebbb]

myDearFriend!,CAP,

Merci à vous deux pour vos conseils.
J'ai essayé vos deux propositions mais ca ne marche pas.
Je viens de m'apercevoir pour que le format soit celui d'une date qu'une fois rapatrié le 'morceaux' du nom de feuille, il faut que je prenne la main sur la cellule!?!?!?!???
Je cherche maintenant: soit à comprendre pourquoi, soit à 'actualiser' la cellule.

Si vous avez des propositions,
Merci d'avance.

 

[myDearFriend!]

Re-

Le problème Sebbb c'est qu'on ne sait pas comment tu t'y prends pour 'rapatrier le morceau' du nom de feuille dans la cellule...
Si c'est par VBA, fais un essai comme ça :

Range('A1').Value = DateValue(Right(ActiveSheet.Name, 8))

Il faut veiller toutefois que la cellule réceptrice (A1 dans l'exemple) ai bien un format Standard (ou Date) avant lancement de la procédure.

Cordialement,

Nb : si ça ne marche toujours pas, peut-être faudrait-il que tu joignes ici ton fichier (épuré des données inutiles ou confidentielles bien-sûr)...

 

[Sébbb]

Merci bcp myDearFriend!,
C'est ce qu'il me fallait, ca marche impec.
Jer n'avais pas mis 'DateValue'!

Merci encore et bon week end

A bientôt

Sébbb