Se connecter avec
S'enregistrer | Connectez-vous

Problème de tri de date sous Excel/VBA

Dernière réponse : dans Programmation

Bonjour,
je suis en train de créer un program sous VBA et je cherche à faire des tri (de constituer un tableau à partir de tri commandé par VBA)..
Jusqu'à maintenant j'arrivé bien à trier des données en chiffre ou en lettre.. (Dc pas de prob)

Mais maintenant je dois trier par dates (ex: à partir du 10/06/2006, jusqu'au 15/08/2006 inclu )
Avec = : j'arrive à le faire marcher; mais avec >= : ca ne marche pas et je ne comprends pas prquoi...?

Voici le type de macro que j'ai pu essayé:
(Private Sub CompteurDA_Change()
dateaffichée = Date + CompteurDA.Value - 1000
dateaffichée = Format(dateaffichée, "dd/mm/yyyy")
DA.Text = dateaffichée
End Sub


Private Sub compteurDA2_Change()
dateaffichée2 = Date + CompteurDA2.Value - 1000
dateaffichée2 = Format(dateaffichée2, "dd/mm/yyyy")
DA2.Text = dateaffichée2
End Sub

Private Sub CommandButton1_Click()


UF_tri.Hide
Sheets("Tendance").Activate

Call Macro4

dateaffichée = Format(DA.Text, "*dd/mm/yyyy")
' dateaffichée2 = CDate(DA2.Text)
' Range("Date").NumberFormat = "dd/mm/yy"


'avec+gd et =
' Selection.AutoFilter Field:=1, Criteria1:=">=" & dateaffichée '& dateaffichée



'/', Operator:=xlAnd _/
' , Criteria2:="<=" & dateaffichée2

'juste avec =
Selection.AutoFilter Field:=1, Criteria1:="=" & dateaffichée



'''' Selection.AutoFilter Field:=1, Criteria1:=">=16/11/2006", Operator:=xlAnd
' Selection.AutoFilter Field:=1, Criteria1:=DA.Text, Operator:=xlAnd _
' , Criteria2:=DA2.Text

' End If
' If CB_date.Value <> "" Then
' Selection.AutoFilter Field:=1, Criteria1:=CB_date.Value
' End If
' If CB_date2.Value > "CB_date.value" Then
' Selection.AutoFilter Field:=1, Criteria1:=CB_date2.Value

' End If

End Sub)


Merci de m'orienter pour trouver une solution!!http://img.presence-pc.com/forum/icones/smilies/hello.g...
:hello: 

Autres pages sur : probleme tri date excel vba

Lassé par la pub ? Créez un compte
Lassé par la pub ? Créez un compte