Sub c()
For n = 3 To Range("A" & Rows.Count).End(xlUp).Row
Range("B" & n) = (Range("A" & n) * 24 - Int(Range("A" & n) * 24)) * 60
Next
End Sub
Sub Minutes()
With ActiveSheet.UsedRange.Columns(2).Offset(1) 'une ligne de titres
If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
.FormulaR1C1 = "=IFERROR(MINUTE(""""&RC[-1]),"""")"
.Value = .Value 'supprime les formules
End With
End Sub
Sub Minutes()
With ActiveSheet.UsedRange.Columns(2).Offset(1)
If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
.FormulaR1C1 = "=IFERROR(MINUTE(RC[-1]),"""")"
.Value = .Value 'supprime les formules
With .Offset(, -1).SpecialCells(xlCellTypeBlanks) 'cellules vides en 1ère colonne
Union(.Cells, .Offset(, 1)).Delete xlUp
End With
With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub
Sub test()
Dim plage As Range, cel As Range, derlig As Long
derlig = Range("a" & Rows.Count).End(xlUp).Row 'dernière ligne remplie
Set plage = Range("b2:b" & derlig) 'Plage résultats
For Each cel In plage 'Pour chaque cellule de la colonne B
'la cellule extrait les minutes de la colonne A, avec la fontion Minute
cel.Value = minute(cel.Offset(, -1).Value)
Next cel
End Sub