Sub Macro1()
Dim cellule As Range
For Each cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule.NumberFormat = "General" Then
Cells(cellule.Row, 3) = cellule
Else
Cells(cellule.Row, 3) = cellule * 60 * 24
End If
Next cellule
End Sub
=SI(GAUCHE(CELLULE("format";A2);1)="H";A2/"0:1";A2)
à recopier vers le bas autant que nécessaire
ou double-click sur la poignée de recopie (croix angle inferieur droit de la cellule)
=SI(GAUCHE(CELLULE("format";A2);1)="H";A2/"0:1";A2)
à recopier vers le bas autant que nécessaire
ou double-click sur la poignée de recopie (croix angle inferieur droit de la cellule)
Code VBA: Sub Macro1() Dim cellule As Range ForEach cellule In Range("A2:A" & Range("A65535").End(xlUp).Row)
cellule.Offset(0, 1) = cellule / IIf(InStr(cellule.Text, ":") <> 0, TimeValue("00:01"), 1) Next cellule EndSub