Discussion :

[freeland15]

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

[Invité]

Bonjour

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

Code :

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

Selection.NumberFormat = "dmmmyyyy"

3 fois la lettre m


Starec

[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 ^^

[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

[freeland15]

Voila ce que je met est j'ai une erreur

Code :

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

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

[ucfoutu]

Bonjour,

Format est une fonction (destinée à formater), et non une propriété !!!

[Pierre Fauconnier]

Bonjour

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

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 :

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

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?

[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.

[cafeine]

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

utilisation avec une date en A1

Code :

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

=MonFormatDate(A1)

Code :

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

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

[freeland15]

Merci beaucoup

Ca marche!!!!