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