Discussion :

[avdotia]

Bonjour,

Je cherche à trier des données selon une date que l'utilisateur rentrera dans une input_box. Seulement, quand je teste, ça ne garde que les cellules vides...

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim tata As String
    Dim LDate As Date
    tata = InputBox(vbCrLf & vbCrLf & "Quelle date ?", "Selection d'une date")
    LDate = CDate(tata)
 
    ActiveSheet.Range("$A$1:$X$47544").AutoFilter Field:=10, Operator:= _
        xlFilterValues, Criteria2:=LDate

J'ai essayé de définir la valeur de l'inputbox comme étant une date, mais cela n'a pas l'air de fonctionner..

Merci d'avance de votre aide

[Marc-L]

Bonjour,

il est question de tri alors qu'il n'y en a pas dans le code ! (au passage à baliser avec l'icône dédiée #)

De quoi est-il vraiment question ? De trier ou de filtrer ?

__________________________________________________________________________________________
Question bien formulée, solution assurée ! (Robert Durupt)

[avdotia]

autant pour moi, je n'ai pas utilisé le bon mot... J'ai effectivement besoin de filtrer selon la date et non de trier..

[Marc-L]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Choix$ = InputBox(vbCrLf & vbCrLf & " Date ?", "    Sélection d'une date")
    If Choix > "" Then Columns(10).AutoFilter Field:=1, Criteria1:=DateValue(Choix)

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[avdotia]

Merci beaucoup, j'ai finalement écrit ça grâce à votre aide et ça marche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
choix = InputBox(vbCrLf & vbCrLf & " Quelle Date ?", "Sélection d'une date")
  Range("A1").Value = choix
 
    If choix > "" Then ActiveSheet.Range("$A$1:$X$47544").AutoFilter Field:=10, Criteria1:=choix