[VBA] Convertir Date US en FR

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Convertir Date US en FR

Nameless'

Bonjour,

Je possède actuellement un fichier Excel contenant environ 2000 enregistrements, avec des dates en format US dans une colone (de C5 à C2000).

J'aimerais convertir ces dates en format FR.

Malheuresement, lorsque je vais dans format Cellule et que je change le format, cela ne me change pas la valeur de la cellule

J'ai déjà cherché sur google, mais n'était pas très bon en VBA, je n'ai pas réussi à adapter un seul code trouvé correctement

Merci d'avance pour votre aide :whistle:

Publicité

kiki29

Salut,sans doute à adapter pour le format

Option Explicit

Sub Tst()
Dim i As Integer
Dim v As Double
For i = 5 To 2000
v = CDbl(CDate(Cells(i, 3)))
Cells(i, 3) = Format(v, "dd/mm/yyyy hh:mm:ss" )
Next i
End Sub

Message édité par kiki29 le 14-08-2009 à 11:54:53

Nameless'

Merci pour la réponse.

Alors la macro plante en me disant "type missmatch", mais me change bien quand même les dates, à part certaines lignes .

Bizarre,

Mais merci tout de même cela m'a bien aidé

kiki29

Salut, je suis curieux de voir alors si ça te dit poste ce fichier récalcitrant sur http://cjoint.com/

Nameless'

Merci, voilà le lien :

http://cjoint.com/?isoYjlwPpL

En fait, le mieux serait de garder uniquement la date, l'heure n'a pas d'importance.

olivthill

Pour infos, si on doit mettre les minutes, il faut écrire "nn" dans le format au lieu de "mm" qui sert pour les mois.
Pour ne garder que la date, faire la conversion avec Cells(i, 3) = Format(v, "dd/mm/yyyy" )

kiki29

Re,pas aussi simple qu'il y parait, c'est de la "bidouille" mais à priori cela "marche"

Sub Tst2()
Dim i As Long
Dim v As Double
Dim j As Integer, m As Integer, a As Integer
Dim sJ As String, sM As String
Dim s As String

For i = 5 To 2000
If IsDate(Cells(i, 3)) Then
v = CDbl(CDate(Cells(i, 3)))
j = Day(v)
m = Month(v)
a = Year(v)

Select Case j
Case 1 To 9: sJ = "0" & j
Case Else: sJ = j
End Select

Select Case m
Case 1 To 9: sM = "0" & m
Case Else: sM = m
End Select

s = sJ & "/" & sM & "/" & a

Cells(i, 3).NumberFormat = "General"
Cells(i, 3) = Format(s, "dd/mm/yyyy" )
End If
Next i
End Sub

On doit pouvoir remplacer

Cells(i, 3).NumberFormat = "General"
Cells(i, 3) = Format(s, "dd/mm/yyyy" )

par

Cells(i, 3).NumberFormat = "General"
Cells(i, 3) = CDate(s)

Message édité par kiki29 le 18-08-2009 à 17:13:36

Nameless'

Effectivement ça marche impeccable, merci beaucoup !!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Convertir Date US en FR

Sujets relatifs
Lire le contenu d'un ftp VBA Access	[VBA] objet OLE
[VBA] erreur de compilation procédure trop grande	Debutant VB: un probleme de ligne a copier!!!
[VBA] Pb valeur dans une cellule	[VBA] Problème avec Workbooks.Open
[VBA] problème dans une boucle	[PHP] Listing de fichier, trier par date
[VBA] Charger une DLL vbcrypt.dll	[VBA]ouvrir un page internet et inscrire un code pour ouvrir undossier
Plus de sujets relatifs à : [VBA] Convertir Date US en FR

Page générée en 0.038 secondes