xav0211

merci! g trouvé la solution grace à ton aide bonne journée a+

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.... ++