Trie date et heure VBA

gosselien

XLDnaute Barbatruc

• 19 Mai 2016

• #2

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.

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #3

Re : Trie date et heure VBA

Ouuuppppssss !!!!

 

Pièces jointes

• Classeur165.xlsx

  55.8 KB · Affichages: 49
• Classeur165.xlsx

  55.8 KB · Affichages: 51

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 19 Mai 2016

• #4

Re : Trie date et heure VBA

re,

une solution en décomposant tes dates 🙂

il y a surement mieux mais ça dépanne 🙂

P.

 

Pièces jointes

• Classeur165.xlsx

  59.4 KB · Affichages: 44
• Classeur165.xlsx

  59.4 KB · Affichages: 45

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #5

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 19 Mai 2016

• #6

Re : Trie date et heure VBA

Ceci alors 🙂

Code:

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 19 Mai 2016

• #7

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

 

Pièces jointes

• Classeur165.xlsx

  60.8 KB · Affichages: 36
• Classeur165.xlsx

  60.8 KB · Affichages: 37

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #8

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

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #9

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

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #10

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 19 Mai 2016

• #11

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

 

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #12

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

 

Pièces jointes

• formule.jpg

  56.1 KB · Affichages: 25

Dernière édition: 19 Mai 2016

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 19 Mai 2016

• #13

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 !!!

 

Pièces jointes

• Capture0.jpg

  51.7 KB · Affichages: 33
• Capture.JPG

  115.4 KB · Affichages: 39

Vote positif 0 Vote négatif

J

jamespatagueul

XLDnaute Occasionnel

• 19 Mai 2016

• #14

Re : Trie date et heure VBA

Merci Modeste geedee,

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

 

Vote positif 0 Vote négatif