changer date format par macro

[pasquetp]

Bonjour,

j'ai un souci dans un fichier

les dates sont inscrites comme ci dessous ( des exemples) (le jour suivi du mois)

4/12
7/28

attention: ces données sont inscrite comme cela : ca ne vient pas d'un format de date américain (ces cellulles sont sous Format general)

il y a tellement de date que j'abandonne de faire le changement manuellement

auriez vous une idée pour transformer ces dates en JJ/MM/AAAA

Merci a tous et bonne soiree.

 

[mapomme]

Re : changer date format par macro

Bonsoir pasquetp,

Une méthode à essayer:
[TABLE="width: 700"]
[TR]
[TD]Sélectionner la zone à convertir[/TD]
[/TR]
[TR]
[TD]Menu Données / Convertir[/TD]
[/TR]
[TR]
[TD]cocher Largeur fixe[/TD]
[/TR]
[TR]
[TD]cliquer sur suivant[/TD]
[/TR]
[TR]
[TD]cliquer sur suivant[/TD]
[/TR]
[TR]
[TD]cocher Date[/TD]
[/TR]
[TR]
[TD]dans la liste choisir le format de date :MJA[/TD]
[/TR]
[TR]
[TD]cliquer sur Terminer[/TD]
[/TR]
[/TABLE]

 

[Manu62]

Re : changer date format par macro

bjr
as tu essayer avec convertir ?
manu

 

[mapomme]

Re : changer date format par macro

Bonsoir pasquetp, Manu62,

Voir mon nouveau message # 6 avec la v2.

 

[pasquetp]

Re : changer date format par macro

bonsoir,

je regarde cela au boulot demain

je vous tien au courant

merci

 

[mapomme]

Re : changer date format par macro

Bonjour,

Préférez cette version v2 qui gère les sélections multiples et qui renvoie des résultats justes (enfin, je crois 🙄).

Sub FormatDate()
Dim xarea As Range, x, n
  Application.ScreenUpdating = False
  For Each xarea In Selection.Areas
    For Each x In xarea
      If InStr(x, "/") > 0 Then
        On Error Resume Next
        n = IsDate(CDate(Mid(x, InStr(x, "/") + 1) & "/" _
            & Left(x, InStr(x, "/") - 1) & "/" & Year(Date)))
        If Err.Number = 0 Then
          x.NumberFormat = "dd/mm/yyyy"
          x.Value = x.Value
        End If
      End If
    Next x
  Next xarea
End Sub

v2b : idem v2 avec en plus : on ne touche pas aux cellules contenant une formule.