Comment puis-je trier des dates dans un tableau en vba?

Salut, je suis nouveau en programmation et juste commencé à apprendre le VBA pour excel. J'ai une question concernant le tri de tableaux. Comment puis-je trier un tableau contenant les dates? Par exemple si j'ai un tableau contenant les dates ("23-juil-13","11-jan-10","1-mai-09","3-févr-04") comment puis-je trier ce tableau. J'ai cherché partout sur internet pour obtenir des réponses, mais ne pouvait trouver le code pour le tri des nombres. J'ai cassé mon cerveau sur ce pendant 2 jours mais ne peut pas sembler obtenir.

Grâce

J'ai le code ci-dessous qui prend des dates à partir d'une colonne sélectionnée mais j'obtiens une erreur à chaque fois que je le lance. J'ai été à essayer de comprendre quel est le problème avec elle pendant 2 jours maintenant. Je n'ai pas mentionné ce code plus tôt que je pensais qu'il serait unnnecessarily ajouter à la confusion.
Le sous GetUniqueAndCount fonctionne très bien mais c'est le genre de sous qui est le problème car il n'accepte pas le tableau passé en argument.

Sub GetUniqueAndCount()
Dim d As Object, c As Range, k, tmp As String

  Set d = CreateObject("scripting.dictionary")
  'I will select the column of dates
 For Each c In Selection
  tmp = Trim(c.Value)
  If Len(tmp) > 0 Then
  If Year(DateValue(Format(tmp, "dd-mmm-yy"))) = 2013 Then
  d(tmp) = d(tmp) + 1
  End If
  End If
  Next c
  i = 0
  ReDim ThisArray(UBound(d.keys)) As Date
  For Each k In d.keys
  ThisArray(i) = DateValue(Format(k, "dd-mmm-yy"))
  i = i + 1

  Next k
  Sort (ThisArray)
End Sub


Sub Sort(arr() As Date)

  Dim Temp As Date
  Dim i As Long
  Dim j As Long

  For j = 2 To UBound(arr)

  Temp = arr(j)
  For i = j - 1 To 1 Step -1
  If (arr(i) <= Temp) Then GoTo 10
  arr(i + 1) = arr(i)

  Next i
  i = 0
10  arr(i + 1) = Temp


  Next j
  End Sub

Avez-vous un tableau de Dates ou un tableau de chaînes de caractères qui ressemblent à des dates? Si elles sont les dates réelles alors qu'ils devraient être sortable comme des numéros (depuis excel stocke en fait des dates en tant que numéros)
Pourriez-vous nous fournir un échantillon de valeurs avant de formater, c'est les valeurs qu'elles existent dans la cellule?
oui, ils sont comme suit: 23-jul-13","11-jan-10","1-mai-09","3-févr-04

OriginalL'auteur user3125707 | 2013-12-21

Votre Sort(arr() As Date) fonctionne très bien. Le problème avec cette ligne

Sort (ThisArray)

Changer de

Sort ThisArray

Aussi depuis que vous êtes stockage Dates dans ThisArray, j'espère que vous avez déclaré comme Date?

Exemple

Sub Sample()
    Dim ThisArray(1 To 5) As Date

    ThisArray(1) = #12/13/2013#
    ThisArray(2) = #12/13/2012#
    ThisArray(3) = #12/13/2015#
    ThisArray(4) = #12/13/2014#
    ThisArray(5) = #12/13/2016#

    SortAr ThisArray

    For i = 1 To 5
        Debug.Print ThisArray(i)
    Next i
End Sub

Sub SortAr(arr() As Date)
    Dim Temp As Date
    Dim i As Long, j As Long

    For j = 2 To UBound(arr)
        Temp = arr(j)
        For i = j - 1 To 1 Step -1
            If (arr(i) <= Temp) Then GoTo 10
                arr(i + 1) = arr(i)
        Next i
        i = 0
10:     arr(i + 1) = Temp
    Next j
End Sub

SORTIE

Salut Siddharth Déroute, Merci, j'ai compris quel était le problème et votre code m'a aidé à le faire. Il était très simple d'erreur. Je pense que la méthode de Tri est un prédéfini fonction VBA et n'est par conséquent pas accepter tous les arguments. Aussi, je chanaged la syntaxe de la Sorte (ThisArray) à SortAr ThisArray. Le code fonctionne parfaitement bien. Je ne sais pas comment je peux remercier u ou donner u +1 car j'ai besoin d'un rep de 15 de le faire. Donc désolé...
Je n'avais pas remarqué ur commentaire ci-dessus le code. oui u est bonne, le problème a été de cette ligne de Tri (ThisArray) comme u mentionné

OriginalL'auteur Siddharth Rout

Cela peut vous aider. n'hésitez pas à poser une question de suivi.

Sub Sort()
Dim x As Long, y As Long, z As Long
    For x = Application.WorksheetFunction.Min(Columns("M")) To Application.WorksheetFunction.Max(Columns("M"))
        For y = 1 To Worksheets("Users Info").Cells(Rows.Count, 13).End(xlUp).Row
        If Worksheets("Users Info").Cells(y, 13).Value = i Then
            z = z + 1
            Worksheets("Users Info").Cells(z, 14).Value = i
        End If
        Next y
    Next x
End Sub

Bienvenue sur StackOverflow: si vous publiez du code XML ou des échantillons de données, veuillez mettre en évidence les lignes dans l'éditeur de texte et cliquez sur le "code d'échantillons" ( { }) dans la barre d'outils éditeur ou à l'aide de Ctrl+K sur votre clavier pour le bien du format et de la surbrillance de la syntaxe!

OriginalL'auteur Nikko

Vous devez vous connecter pour publier un commentaire.