Trie date et heure VBA

[jamespatagueul]

Bonjour le forum,

je cherche a trier la colonne B et étendre la sélection des données importer depuis un .cvs
le soucis est qu'un trie classique trie par jour, (de 1 a 31) et moi je cherche a trier par mois puis jour (01/01, 02/01, 01/02 ...)
L'heure n'est pas indispensable.
J'ai tester plusieurs solution, mais par moment le mois et le jour s'inverse.

Merci d'avance à la personne qui sera m'aider a résoudre cette problèmatique.

Cordialement

 

[gosselien]

Re : Trie date et heure VBA

Bonjour,

ma boule de cristal ne voit pas de fichier ....
tu sais mettre une copie anonymisée de celui-ci ?

Cordialement

P.

 

[jamespatagueul]

Re : Trie date et heure VBA

Ouuuppppssss !!!!

 

[gosselien]

Re : Trie date et heure VBA

re,

une solution en décomposant tes dates

il y a surement mieux mais ça dépanne

P.

 

[jamespatagueul]

Re : Trie date et heure VBA

Bonjour gosselien,

merci,
plus qu'a transcrire en VBA pour insérer les 3 colonnes puis la formule jusqu'à la dernière ligne non vide.

Cordialement

 

[gosselien]

Re : Trie date et heure VBA

Ceci alors

Sub datejourmois()
Dim a, i
a = [A1].CurrentRegion.Value
Cells(1, 5) = "Année": Cells(1, 6) = "Mois": Cells(1, 7) = "Jour"
For i = 2 To UBound(a)
  myear = Mid(a(i, 2), 7, 4): Cells(i, 5) = myear
  mmonth = Mid(a(i, 2), 4, 2): Cells(i, 6) = mmonth
  mday = Left(a(i, 2), 2): Cells(i, 7) = mday
Next
End Sub

 

[JHA]

Re : Trie date et heure VBA

Bonjour à tous,

Je ne sais pas si tu as vraiment besoin d'une macro car cele est très rapide à faire avec le trie

JHA

 

[jamespatagueul]

Re : Trie date et heure VBA

gosselien,

un grand merci.
J'ai adapté le code a ma situation avec l'assistant macro.
C'est au top !!!

Merci à toi

 

[jamespatagueul]

Re : Trie date et heure VBA

Bonjour JHA,
il y a des centaines de lignes.
Merci de ta proposition que je garde sous le coude ...

 

[jamespatagueul]

Re : Trie date et heure VBA

JHA,
comment transcrire ta formule en VBA.
J'essai en la retapant, copie colle.
rien ne fonctionne.
Merci de ton aide

 

[Modeste geedee]

Re : Trie date et heure VBA

Bonsour®
directement issu de l'enregistreur :
Sub Macro1()
Range("C2").Select
ActiveCell.FormulaR1C1 = "=1*SUBSTITUTE(RC[-1],""-"","" "")"
Selection.AutoFill Destination:=Range("C2:C102")
Range("C2:C102").Select
Columns("A:C").Select
ActiveWorkbook.Worksheets("récap getcompensationdetails").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("récap getcompensationdetails").Sort.SortFields.Add _
Key:=Range("C1:C102"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("récap getcompensationdetails").Sort
.SetRange Range("A1:C102")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[jamespatagueul]

Re : Trie date et heure VBA

Bonjour Modeste geedee,



voila ce que ça donne !!
Je précise que j'insert une colonne après B et souhaite la formule dans cette colonne, que je supprime après le trie des données

Merci

 

[Modeste geedee]

Re : Trie date et heure VBA

Bonsour®
après avoir chargé :
Lien supprimé
ajout dans un module standard
et application de la macro précédente :



voila ce que ça donne !!



je précise que je n'ai rien fait d'autre !!!

 

[jamespatagueul]

Re : Trie date et heure VBA

Merci Modeste geedee,

soucis de format de cellule.
Pb Résolu !!!