changer date format par macro

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2015

• #2

Re : changer date format par macro

Bonsoir pasquetp,

Une méthode à essayer:

Sélectionner la zone à convertir

Menu Données / Convertir

cocher Largeur fixe

cliquer sur suivant

cliquer sur suivant

cocher Date

dans la liste choisir le format de date :MJA

cliquer sur Terminer

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 26 Mars 2015

• #3

Re : changer date format par macro

bjr
as tu essayer avec convertir ?
manu

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2015

• #4

Re : changer date format par macro

Bonsoir pasquetp, Manu62,

Voir mon nouveau message # 6 avec la v2.

 

Dernière édition: 27 Mars 2015

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 27 Mars 2015

• #5

Re : changer date format par macro

bonsoir,

je regarde cela au boulot demain

je vous tien au courant

merci

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2015

• #6

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 ).

VB:

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.

 

Pièces jointes

• pasquetp - ForrmatDate - v2.xlsm

  17.3 KB · Affichages: 43
• pasquetp - ForrmatDate - v2b.xlsm

  18.8 KB · Affichages: 40

Dernière édition: 27 Mars 2015

Vote positif 0 Vote négatif