Changer le format de la date

Bonjour tout le monde,

J'ai présentement un fichier où les dates sont inscrites dans la colonne A de la manière suivant : Jan-14 et j'aurais besoin d'une fonction qui le remplace par 01, soit le numéro du mois. Je n'ai pas besoin de l'année, seulement du numéro de mois.

J'ai fais quelques recherches sur le web et je ne trouve pas de réellement de réponse.

Merci pour votre aide en avance

Bonsoir le forum,

Format : personnalisé : mm

mbbp

Bonjour

"Format" "Cellule" "Nombre" >>Personnalisé mm

Cordialement

Merci de la réponse rapide, mais cela ne semble pas marcher je crois que le format Jan-14 n'est pas reconnu comme une date, donc cela ne marche pas. Est-ce que je pourrais faire une suite de Case ou IF ?

Bonjour

Je peux donc en déduire que ta cellule est au format texte, car si dans une cellule au format standard ou nombre, tu tapes jan-14, Excel transforme automatiquement en date.

Solution:

Dans une cellule quelconque, tu tapes le chiffre 1

Tu copies cette cellule

Tu vas sur ta ou tes cellules à modifier

et "Collage-Spécial" >> Multiplication.

Tu mets le tout au format indiqué précédemment.

Sinon, tu nous donnes l'écriture tarabiscoté des autres mois (après jan, tu as peut-être fe. etc

et on réglera avec une formule

Cordialement

Bonsoir,

Avec jan-14 en A1 et cette formule en B1 :

=CHOISIR(MOIS("1/"&GAUCHE(A1;3));1;2;3;4;5;6;7;8;9;10;11;12)

Bonjour,

Dans ce cas sélectionner A puis 'Données / Conversion'.

Les cellules seront converties en date et tu pourras appliquer le format mm.

Ou si tu ne veux que le mois : =MOIS("1/"&A2)

eric

J'ai pu remarquer que la cellule était au format texte, voici le code que j'ai présentement qui marche

Cells.Replace What:="Jan-14", Replacement:="'01", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Feb-14", Replacement:="'02", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Mar-14", Replacement:="'03", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Apr-14", Replacement:="'04", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="May-14", Replacement:="'05", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Jun-14", Replacement:="'06", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Jul-14", Replacement:="'07", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Aug-14", Replacement:="'08", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Sep-14", Replacement:="'09", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Oct-14", Replacement:="'10", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Nov-14", Replacement:="'11", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Cells.Replace What:="Dec-14", Replacement:="'12", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Toutefois, mais la macro prends beaucoup de temps à s'excuter, est-ce qu'il y a un moyen de rendre le processus plus rapide ?

Merci

est-ce qu'il y a un moyen de rendre le processus plus rapide ?

Oui, en t'inspirant des propositions faites qui n'ont eu aucun retour.

eric

Étant donné que les données changent de mois en mois j'ai besoin de l'intégrer à mon code vba c'est pourquoi les méthodes manuels pour plus de 56000 données est trop complexe et j'ai besoin d'automatiser le tout.

Merci

Bonjour,

Ce qui n'empêche pas un merci.

Ni un bonjour d'ailleurs...

eric

Bonjour,

Pourrais-tu nous préciser si les données sont éparpillées dans une feuille, dans plusieurs feuilles, dans une colonne particulière,etc...?

Le must, joindre un fichier exemple.

Cdlt.