Sub filtre()
'
' filtre_labo_T Macro
' Macro enregistrée le 10/09/2010 par Dasprez Sébastien
'
' remplace . par / pour ancien format
    Range("A35:A3000").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False

' active le filtre auto
    Range("D34").Select
    Selection.AutoFilter

 '   Sélectionner la première cellule vide au bas de la colonne
'a = Range("A35").End(xlDown).Offset(1, 0).Select


' genere true / false pour filtrer les mesures off
    Range("D35").Select
    ActiveCell.FormulaR1C1 = _
        "=AND(WEEKDAY(RC[-3],2)<6,RC[-2]>=TIMEVALUE(""08:00""),RC[-2]<=TIMEVALUE(""18:00""))*1"
    Range("D35").Select
    Selection.AutoFill Destination:=Range("D35:D3000"), Type:=xlFillDefault
   ' Range("D35:D3000").Select

'   active le filtre
    Selection.AutoFilter Field:=4, Criteria1:="1"
    Range("G35").Select


'  forme la cellule date +heure

    Range("F35").Select
    ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]"
    Range("F35").Select
    Selection.AutoFill Destination:=Range("F35:F3000"), Type:=xlFillDefault

'   copy data T°
    Range("G35").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]"
  '  Range("G35").Select
    Selection.AutoFill Destination:=Range("G35:G3000"), Type:=xlFillDefault
    
    
   '  Range("F35:G3000").Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
   ActiveChart.SetSourceData Source:=Sheets("74091003").Range("F35:G3000"), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
       .HasTitle = True
        .ChartTitle.Characters.Text = "relevé de T°"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "date"
       .Axes(xlValue, xlPrimary).HasTitle = True
       .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "T°"
    End With
    
    
   ' ActiveCell.FormulaR1C1 =ET(JOURSEM(A195;2)<6;B195>=TEMPSVAL("08:00");B195<=TEMPSVAL("18:00"))*1
'    Application.Run "PERSO.XLS!filtre_labo_T"
 '   ActiveWindow.Close
End Sub