Formatde date

[sev]

Bonjour le forum,
je voudrais qu'en colonne A s'affiche la date sous forme aaaa
qu'en colonne B s'affiche la date sous forme mmmm
qu'en colonne C s'affiche la date sous forme jj

Le TxtDate trouve son origine sur une cellule avec la fonction AUJOURDHUI


DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
Ws.Range("A" & DerLigne) = Txtdate
Ws.Range("B" & DerLigne) = Txtdate
Ws.Range("C" & DerLigne) = Txtdate




Merci pour votre aide

 

[Bernard_XLD]

Re : Formatde date

Bonjour

voili!

A+

DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
With Ws.Range("A" & DerLigne)
    .Value = Txtdate
    .NumberFormat = "aaaa"
    .Offset(0, 1).Value = Txtdate
    .Offset(0, 1).NumberFormat = "mmmm"
    .Offset(0, 2).Value = Txtdate
    .Offset(0, 2).NumberFormat = "dd"
End With

 

[sev]

Re : Formatde date

Merci MIAOU , mais ça ne fonctionne pas , je suis toujours au format 07/12/2007 !!!!

 

[Bernard_XLD]

Re : Formatde date

à mon avis mal testé, cela fonctionne
le code colle la valeur txtdate et met le format à jour
peut être un problème de recalcul désactivé dans ce cas on inverse

DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
With Ws.Range("A" & DerLigne)
    .NumberFormat = "aaaa"
    .Offset(0, 1).NumberFormat = "mmmm"
    .Offset(0, 2).NumberFormat = "dd"
    .Value = Txtdate
    .Offset(0, 1).Value = Txtdate
    .Offset(0, 2).Value = Txtdate
End With

peut être un problème de chaine non reconnue
dans ce cas on force la reconnaissance en date

DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
With Ws.Range("A" & DerLigne)
    .NumberFormat = "aaaa"
    .Offset(0, 1).NumberFormat = "mmmm"
    .Offset(0, 2).NumberFormat = "dd"
    .Value = DateValue(Txtdate)
    .Offset(0, 1).Value = DateValue(Txtdate)
    .Offset(0, 2).Value = DateValue(Txtdate)
End With

peut être un problème d'espaces subsistant
dans ce cas on les supprime

DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
With Ws.Range("A" & DerLigne)
    .NumberFormat = "aaaa"
    .Offset(0, 1).NumberFormat = "mmmm"
    .Offset(0, 2).NumberFormat = "dd"
    .Value = DateValue(Trim(Txtdate))
    .Offset(0, 1).Value = DateValue(Trim(Txtdate))
    .Offset(0, 2).Value = DateValue(Trim(Txtdate))
End With

 

[Bernard_XLD]

Re : Formatde date

et pis c'est pas miaou mais yeahou !

 

[sev]

Re : Formatde date

Bonjour Yeahou, (miaou en raison du chat),
ce code fonctionne :

DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
With Ws.Range("A" & DerLigne)
.NumberFormat = "aaaa"
.Offset(0, 1).NumberFormat = "mmmm"
.Offset(0, 2).NumberFormat = "dd"
.Value = DateValue(Txtdate)
.Offset(0, 1).Value = DateValue(Txtdate)
.Offset(0, 2).Value = DateValue(Txtdate)
End With

Mais je voudrais en A l'année sous forme 2007 qui s'affiche dans la barre de fonction fx ,
en B le mois sous forme décembre qui s'affiche dans la barre de fonction fx ,
et C le jour 08 mais dans la barre de fonction 08/12/2007

Ceci pour faciliter mes filtres sur ces colonnes.

Merci pour ton aide

 

[CB60]

Re : Formatde date

Bonjour
Pour faire des filtres sur les dates facilement.
Regarde cette macro

 

[sev]

Re : Formatde date

Je suis désolée , ça ne correspond pas pour mon tableau.

 

[CB60]

Re : Formatde date

re
regarde si c'est cela que tu recherche:

Sub essai()
Dim txtdate
txtdate = Now
DerLigne = Sheets(2).Range("A65536").End(xlUp).Row + 1
With Sheets(2)
    .Range("A" & DerLigne) = Year(txtdate)
    .Range("A" & DerLigne).NumberFormat = "General"
    .Range("B" & DerLigne) = Month(txtdate)
    .Range("b" & DerLigne).NumberFormat = "General"
    .Range("C" & DerLigne) = txtdate
    .Range("C" & DerLigne).NumberFormat = "dd"
End With
End Sub