RoadRunner
XLDnaute Nouveau
Je reviens car problème...
j'ai utilisé ça :
Sub Transformation_HHMMSS()
Dim Cell As Range
Dim TmpMM As String
Dim TmpSS As String
Dim Container As Variant
Dim feuille As Worksheet
For each feuille In ThisWorkbook.Sheets
feuille.select
For Each Cell In Union(Range('B4:B99'), Range('C4:C99'))
If InStr(1, Cell, 'mn', 1) <> 0 Then
On Error Resume Next
Container = Split(Cell, 'mn')
TmpMM = Val(Container(0))
TmpSS = Val(Container(1))
Cell = '00:' & Format(TmpMM, '00') & ':' & Format(TmpSS, '00')
End If
Next
ActiveWindow.SmallScroll Down:=69
Range('B100').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(R[-96]C:R[-1]C)'
Range('C100').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(R[-96]C:R[-1]C)'
next feuille
End Sub
mais erreur 1004
la methode 'Select' de l'objet '_Worksheet' a échoué
que faire ?
Message édité par: RoadRunner, à: 17/08/2005 18:41
j'ai utilisé ça :
Sub Transformation_HHMMSS()
Dim Cell As Range
Dim TmpMM As String
Dim TmpSS As String
Dim Container As Variant
Dim feuille As Worksheet
For each feuille In ThisWorkbook.Sheets
feuille.select
For Each Cell In Union(Range('B4:B99'), Range('C4:C99'))
If InStr(1, Cell, 'mn', 1) <> 0 Then
On Error Resume Next
Container = Split(Cell, 'mn')
TmpMM = Val(Container(0))
TmpSS = Val(Container(1))
Cell = '00:' & Format(TmpMM, '00') & ':' & Format(TmpSS, '00')
End If
Next
ActiveWindow.SmallScroll Down:=69
Range('B100').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(R[-96]C:R[-1]C)'
Range('C100').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(R[-96]C:R[-1]C)'
next feuille
End Sub
mais erreur 1004
la methode 'Select' de l'objet '_Worksheet' a échoué
que faire ?
Message édité par: RoadRunner, à: 17/08/2005 18:41