format de date

[tonychange]

bonjour à tous,

j'ai un probleme avec le format de date dans excel. j'ai 400 lignes dans mon fichier.
je souhaite changer la date pour chaque ligne c'est a dire : Format us avec heure à format francais sans heure.

exemples ci-dessous

format US
3/20/12 11:09:09 AM

Format Francais

20/03/2012
ou
mars-12


merci par avance

 

[natorp]

Re : format de date

Bjr Tony

La plage de données (A2:A35 selon ton exemple) étant sélectionnée, tu lances cette macro...

Sub convDTS()
Application.ScreenUpdating = False
With Selection
.TextToColumns FieldInfo:=Array(0, xlDMYFormat)
.NumberFormat = "dd/mm/yyyy"
End With
End Sub

ou

Sub convDTS()
Application.ScreenUpdating = False
With Selection
.TextToColumns FieldInfo:=Array(0, xlDMYFormat)
.NumberFormat = "mmm-yy"
End With
End Sub

Cordialement, Gérard

 

[yassoux]

Re : format de date

Salut ! essaye ça :
Regarde la pièce jointe date-tonychange.xls

 

[tonychange]

Re : format de date

merci pour votre aide les 2 solutions fonctionnent. par contre au niveau des horraires j'ai un probleme. je ne veux pas les afficher !!

 

[yassoux]

Re : format de date

dans ce cas modifie le macro comme ceci :

Sub dateFormat()

Dim ligneFichier As Long

ligneFichier = Sheets(1).Range("A65536").End(xlUp).Row

Columns("C:C").Select
Selection.NumberFormat = "dd/mm/yyyy"

For i = 2 To ligneFichier

maDate = Sheets(1).Range("A" & i).Value
maDate = Format(maDate, "dd/mm/yyyy")
Range("C" & i).Value = maDate
Next i
End Sub

 

[tonychange]

Re : format de date

ca marche nickel. merci encore pour votre aide