erwanaur
Nouveau membre
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.gif
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.gif