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.Ra nge.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(xlCe llTypeConstants).Select
'Sheets("feuil2").Range("B1"). EntireColumn.SpecialCells(xlCe llTypeConstants).Select

'Dim objChart As Chart, objRange As Range

' Set objRange = Worksheets("Feuil2").Range(Ran ge("A1").EntireColumn.SpecialC ells(xlCellTypeConstants), Worksheets("Feuil2").Range("B1 ").EntireColumn.SpecialCells(x lCellTypeConstants))
' 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.... ++