[Résolu] Filtre automatique VBA

[xav0211]

Salut à tous!

Voilà je suis en stage pr mes études et il m'a été demandé de faire un programme VBA pr piloter excel. En fait, il faut que je traite les valeurs d'un fichier excel de la forme :

- colonne A : date de la mesure au format jj/mm/aaaa

- colonne B : heure de la mesure au format hh/mm/ss

- colonne C : mesure au format standard

en plus faut ke j'ai fini d'ici deux semaines... je suis mal!

 

il faut modéliser les valeurs pr des intervalles choisis par l'utilisateur, dc j'ai choisi de faire une boite de dialogue pr entrer les choix de l'utilisateur en mémoire, et après faire un filtre automatique... mais rien ne marche et je comprends rien!!!!

ca me tri rien... et en plus y a des pb de compatibilité jj/mm/aaaa et mm/jj/aaaa avec VBA...

 

voilà le programme ke j'ai fait,

 

Dim c1 As Date 
Dim c2 As Date 

Private Sub CommandButton1_Click() 


TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") 
TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy") 


   If UserForm1.TextBox1.Text = "" Then 
       MsgBox "Vous n'avez rien saisi," & Chr(10) & "recommencez!" 
       Exit Sub 
   
       Else 
           TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") 
           Range("E1").Value = TextBox1.Value 
           ActiveCell.Offset(1, 0).Select 
   End If 

   If UserForm1.TextBox2.Text = "" Then 
       MsgBox "Vous n'avez rien saisi," & Chr(10) & "recommencez!" 
       Exit Sub 
   
       Else 
           TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy") 
           Range("E2").Value = TextBox2.Value 
           ActiveCell.Offset(1, 0).Select 
   End If 
   
Range("E1") = Format(Range("E1").Value, "dd/mm/yyyy") 
Range("E2") = Format(Range("E2").Value, "dd/mm/yyyy") 

c1 = Format(Range("E1").Value, "dd/mm/yyyy") 
c2 = Format(Range("E2").Value, "dd/mm/yyyy") 

Range("A:C").AutoFilter field:=1, Criteria1:=">=" & c1, Operator:=xlAnd, Criteria2:="<=" & c2 
Sheets("Feuil1").AutoFilter.Range.Copy Sheets("Feuil2").Range("A1:C1") 

Sheets("Feuil2").Range("1:1").Delete Shift:=xlShiftToLeft 
Sheets("Feuil2").Columns("A").Delete Shift:=xlShiftToLeft 


'Graphique 
'Sheets("feuil2").Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Select 
'Sheets("feuil2").Range("B1").EntireColumn.SpecialCells(xlCellTypeConstants).Select 
 
'Dim objChart As Chart, objRange As Range 

  ' Set objRange = Worksheets("Feuil2").Range(Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants), Worksheets("Feuil2").Range("B1").EntireColumn.SpecialCells(xlCellTypeConstants)) 
  ' Set objChart = ThisWorkbook.Charts.Add 
   'objChart.ChartType = xlLine 
  ' objChart.SetSourceData objRange, xlColumns 
   
Unload Me 

End Sub 

 

 

Merci d'avance pour votre aide

j'espère que vous trouverez une solution à mon pb.... ++

[m2003]

Salut xav0211,

va voir http://perso.wanadoo.fr/veriti/excel/sommaire.htm

si ça peut t'aider @+

[xav0211]

merci! g trouvé la solution grace à ton aide

 

bonne journée

a+

[m2003]

Pas de quoi. C'est un forum d'entraide informatique. Là où je peux aider je le fais sinon je me tais quoique j'ai parfois raté l'occasion de me taire. Regarde ma signature. @+