RoadRunner
XLDnaute Nouveau
Bonjour
J'ai presque réussi à faire ce que je voulai...
Mais, eh oui ! dans la macro suivante j'aimerai ajouter ce qu'il faut pour que lorsqu'elle s'exécute, elle applique ce qu'elle fait aux 20 feuilles du classeur, celles ci étant numérotées de 01 à 20
voila la macro :
----------------------------------------------------------------------------
Option Explicit
Sub Transformation_HHMMSS()
Dim Cell As Range
Dim TmpMM As String
Dim TmpSS As String
Dim Container As Variant
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)'
End Sub
----------------------------------------------------------------------------
(je pense qu'il faut rajouter un truc du genre 'for each feuil...' mais je ne connais pas vraiment)
en tout cas merci d'avance
petit bonjour à Thierry et Sylvie en passant
J'ai presque réussi à faire ce que je voulai...
Mais, eh oui ! dans la macro suivante j'aimerai ajouter ce qu'il faut pour que lorsqu'elle s'exécute, elle applique ce qu'elle fait aux 20 feuilles du classeur, celles ci étant numérotées de 01 à 20
voila la macro :
----------------------------------------------------------------------------
Option Explicit
Sub Transformation_HHMMSS()
Dim Cell As Range
Dim TmpMM As String
Dim TmpSS As String
Dim Container As Variant
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)'
End Sub
----------------------------------------------------------------------------
(je pense qu'il faut rajouter un truc du genre 'for each feuil...' mais je ne connais pas vraiment)
en tout cas merci d'avance
petit bonjour à Thierry et Sylvie en passant