Bonjour,
J'ai un souci avec un fichier texte que je récupère.
Dans la colonne A les dates sont écrites de la façon suivante :
25-mars
11-dec
10-fevr
Pour que excel comprennent les dates, une macro va remplacer le tiret
par un espace et dec par decembre (11 décembre). Mais excel ne comprend
pas cela comme une date. J'ai essayé de multiplier par un, sans macro ca
marche en macro cela ne marche pas.
Si je remplace dec par 12, là excel comprend 11 novembre si mon jour est
inférieur à 12 sinon il va bien comprendre.
Je ne sais pas si j'ai été claire....Veuillez m'en excuser.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
David C.
si tu veux avoir les mêmes dates à un autre endroit, mais présentée différemment, le mieux est de simplement copier les cellules ( exemple dans C1 la formule ¡) et dans C1 modifier le format d'affichage.
n'est-ce pas plus simple ? (sais-tu changer le format d'affichage ?)
si tu veux avoir les mêmes dates à un autre endroit, mais présentée
différemment,
le mieux est de simplement copier les cellules ( exemple dans C1 la formule
¡)
et dans C1 modifier le format d'affichage.
n'est-ce pas plus simple ?
(sais-tu changer le format d'affichage ?)
si tu veux avoir les mêmes dates à un autre endroit, mais présentée différemment, le mieux est de simplement copier les cellules ( exemple dans C1 la formule ¡) et dans C1 modifier le format d'affichage.
n'est-ce pas plus simple ? (sais-tu changer le format d'affichage ?)
AV
Plage d'examen à adapter
Sub zzz() For Each c In [A1:A20] an = Year(Date) mois1 = Mid(c, Application.Find("-", c) + 1, 9 ^ 9) 'sur une seule ligne ! mois2 = Evaluate("match(" & """" & mois1 & """" & ",{""janv"",""fevr"",""mars"",""avr"",""mai"",""juin"",""juil"",""aout"",""sept" ",""oct"",""nov"",""dec""},0)") jour = Left(c, 2) c.Value2 = DateSerial(an, mois2, jour) c.NumberFormat = "dd/mm/yy" Next End Sub
AV
Plage d'examen à adapter
Sub zzz()
For Each c In [A1:A20]
an = Year(Date)
mois1 = Mid(c, Application.Find("-", c) + 1, 9 ^ 9)
'sur une seule ligne !
mois2 = Evaluate("match(" & """" & mois1 & """" &
",{""janv"",""fevr"",""mars"",""avr"",""mai"",""juin"",""juil"",""aout"",""sept"
",""oct"",""nov"",""dec""},0)")
jour = Left(c, 2)
c.Value2 = DateSerial(an, mois2, jour)
c.NumberFormat = "dd/mm/yy"
Next
End Sub
Sub zzz() For Each c In [A1:A20] an = Year(Date) mois1 = Mid(c, Application.Find("-", c) + 1, 9 ^ 9) 'sur une seule ligne ! mois2 = Evaluate("match(" & """" & mois1 & """" & ",{""janv"",""fevr"",""mars"",""avr"",""mai"",""juin"",""juil"",""aout"",""sept" ",""oct"",""nov"",""dec""},0)") jour = Left(c, 2) c.Value2 = DateSerial(an, mois2, jour) c.NumberFormat = "dd/mm/yy" Next End Sub
