Formater une date

Version imprimable

13/02/2008, 08h27
freeland15

Formater une date

:salut:

Encore un émieme probleme de date

Je doit transformer une date de ce format :

01septembre2008

en :

01Sept2008

PS : je doit aussi le faire pour tout les mois de l'année

Merci de votre aide
:aie:
13/02/2008, 08h38
Invité

Bonjour

Utilises ce format (fait avec l'enregistreur de macro, à utiliser sans modération)

Code:

Selection.NumberFormat = "dmmmyyyy"

3 fois la lettre m

Starec
13/02/2008, 10h06
freeland15

Pardon je me suis mal exprimé

Je doit obligatoirement garder un format texte pour intégrer dans un autre logiciel.
Je ne doit pas passer en date.

C la que ca coince ^^
13/02/2008, 10h08
Invité

Re

Ok, il fallait préciser, alors il faut utiliser la fonction Format l'aide explique toutes les syntaxes, le principe des 3 m est le même.

Starec

Voila ce que je met est j'ai une erreur
Code:

1 2 3 4 5 6 7 8 i = 7 l = 4 While Cells(i, l).Format = "ddmmmmyyyy" l = l + 1 Wend

13/02/2008, 11h22
ucfoutu

Bonjour,

Format est une fonction (destinée à formater), et non une propriété !!!
13/02/2008, 12h17
freeland15

Et donc???:oops:
13/02/2008, 12h45
cafeine

et donc c'est

Code:

=TEXTE(A1;"jjmmmmaa")

qu'il faut utiliser.
13/02/2008, 13h47
freeland15
DSL

Mais je ne vois pas la syntaxe à utiliser
J'ai des erreurs de compil...
Code:

1 2 3 While Cells(i, l).Format = Texte(D7, "ddmmmmyyyy") Wend
????
13/02/2008, 14h38
ucfoutu

Code:

While Cells(i, l).Format

n'a aucun sens (relis ce qui a été écrit) !!!
13/02/2008, 14h54
Pierre Fauconnier

Bonjour

Citation:

Envoyé par freeland15

:salut:

Encore un émieme probleme de date

Je doit transformer une date de ce format :

01septembre2008

en :

01Sept2008

PS : je doit aussi le faire pour tout les mois de l'année

Merci de votre aide
:aie:

Je repars de la question initiale, car j'ai l'impression que tu t'égares.

Il faudrait déjà savoir si la cellule que tu veux modifier est au format texte ou au format date, car chaque cas appelle une solution différente.

Si ta cellule est au format numérique, tu peux utiliser

Code:

MaDate = format(range("a1"),"jj mmm aa")

, et ce, indépendamment du reste de ton code, des boucles, ...

Mais comme tu dis que tu dois absolument rester en format texte,je pourrais penser que tu ta cellule est au format texte.

Pourrais-tu préciser la situation dans laquelle tu te trouves?
13/02/2008, 15h37
freeland15

Oui

Ma cellule est au format texte car je doit garder ce format pour l'intégration.

En fait mon tableau ce presnete comme suit :
une ligne avec des mois :
Janv, Fév, Mars, Avril, Mai, Juin, Juillet Août, Sept, Nov, et Déc.
Je doit les transformer:
01Jan200800000
01Fev200800000
01Mar200800000
01Apr200800000
01May20080000
01Jun200800000
01Jul200800000
01Sep200800000
01Oct200800000
01Nov200800000
01Dec200800000

Je trouver + facile de passer en texte entier pour apres passer et convertir ma date en date finale.

Voila le pkoi de ma question.

Donc oui il me faut du texte dans cette cellule.
:mouarf:

la seule difficulté c'est d'avoir un mois américain sur 3 lettres ...

utilisation avec une date en A1

Code:

=MonFormatDate(A1)

Code:

1
2
3
4
5
6
7
8
9
10
Function MonFormatDate(ByVal x As Date) As String
 
    Dim mois As Variant
 
    mois = Array("jan", "feb", "mar", "apr", "may", "jun", _
                 "jul", "aug", "sep", "oct", "nov", "dec")
 
    MonFormatDate = Format(x, "dd") & mois(Month(x)) & Format(x, "yyyy") & "0000"
 
End Function

14/02/2008, 08h08
freeland15

Merci beaucoup

Ca marche!!!!

:king: