Hello la communauté
Je bloque sur un code qui devrais être simple, mais a priori pas si simple du fait de format date : DD DDDD MMMM AAAA
J'aimerais trier ma colonne "A" (avec entête) par ordre de date plus ancienne a plus récente jusqu'à la colonne "F"
Pour ce faire j'inclus le code dans un code qui me permet de formater mon tableau
Le trie ne se fait pas comme je souhaiterai
Avant :
Aprés :
Auriez-vous une idée du comment faire pour que cela fonctionne comme je souhaiterai?
Merci, G'Claire
Je bloque sur un code qui devrais être simple, mais a priori pas si simple du fait de format date : DD DDDD MMMM AAAA
J'aimerais trier ma colonne "A" (avec entête) par ordre de date plus ancienne a plus récente jusqu'à la colonne "F"
Pour ce faire j'inclus le code dans un code qui me permet de formater mon tableau
VB:
Sub Format_Bordure_Récapitulatif_Affaires()
Dim Format_WS As Worksheet
Dim rng As Range, n As Long
Set Format_WS = Sheets("Récapitulatif_Affaires")
With Format_WS
n = .Cells(.Rows.Count, 1).End(xlUp).Row 'Colonne A
'MsgBox n
.Cells(1, 1).Resize(n, 6).Borders.Weight = xlThin 'N° ligne inclus titre de la colonne et Le nombre de colonne a traiter
'MsgBox n
.Columns("A:A").NumberFormat = "General" 'On change le format
With .Columns("A:F")
.EntireColumn.AutoFit 'on fait une mise en largeur automatique
.Sort Key1:=Range("A:F"), Order1:=xlAscending, Header:=xlYes 'On fait le trie par date avec en-tête
End With
.Columns("A:A").NumberFormat = "dd dddd mmmm yyyy" 'On remet le bon format
End With
Set Format_WS = Nothing
End SubLe trie ne se fait pas comme je souhaiterai
Avant :
Aprés :
Auriez-vous une idée du comment faire pour que cela fonctionne comme je souhaiterai?
Merci, G'Claire