XL 2019 Convertir Plage format text En Format Date

iliess · 23 Juin 2020

Bonjour
Je souhaite convertir ma plage dynamique de A3 au dernier ligne en format Date
J'ai essayer d'aller sur onglet accueil case nombre format date mais ça marche pas
après j'ai crée cette macro mais elle lente. et je sais que avec les méthodes tableau ou collection ça seras plus rapide .

Code:

Sub Conve_Forma_date()
    
Dim Derlign As Long
    Derlign = ActiveSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row
    Range("B3").FormulaR1C1 = "=[@DATE]*1"
    Range("B3:B" & Derlign).Copy
    Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("B:B").Delete Shift:=xlToLeft
    Columns("A:A").NumberFormat = "m/d/yyyy"
End Sub

merci

mapomme · 23 Juin 2020

Re,

Essayer cette macro :

VB:

Sub EnDate()
With Range("Tableau1[DATE]")
    .TextToColumns Destination:=.Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
End With
End Sub

mapomme · 23 Juin 2020

Bonjour @iliess 🙂,

Un petit fichier exemple, ça serait trop demander ? 😉

iliess · 23 Juin 2020

Oui désolé j'ai oublier d'jouter un fichier exemple

mapomme · 23 Juin 2020

Re,

Essayer cette macro :

VB:

Sub EnDate()
With Range("Tableau1[DATE]")
    .TextToColumns Destination:=.Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
End With
End Sub

Hasco · 23 Juin 2020

Bonjour,

Autre solution sans macro :

1 - tapez 1 (Un) dans une cellule vide
2 - copier cette dernière
3 - sélectionner la colonne des fausses dates
4 - clic-droit -> collage spécial
5 - choisir 'Valeurs' dans 'Coller' et dans 'Opération' choisir 'Multiplication'
6 - Valider par 'Ok', C'est fait

iliess · 23 Juin 2020

Merci Mr pour votre réponse ça marche bien mais j'essaye avec VBA

iliess · 23 Juin 2020

mapomme à dit:

Re,

Essayer cette macro :

VB:

Sub EnDate()
With Range("Tableau1[DATE]")
    .TextToColumns Destination:=.Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
End With
End Sub

Mille merci Mr C'est ça ce que je cherche.

XL 2019 Convertir Plage format text En Format Date

iliess

XLDnaute Occasionnel

mapomme

mapomme

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

iliess

XLDnaute Occasionnel

Discussions similaires

XL 2019 Convertir Plage format text En Format Date

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency