Bonjour,
que faire pour accélérer ma macro
Sub ToggleButton3_Click()
Application.ScreenUpdating = False
ActiveCell.FormulaR1C1 = "10:00"
SELECTION.Copy
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
If Not ActiveCell.HasFormula And IsDate(ActiveCell.Text) Then _
If ActiveCell < 1 Then Cancel = True: ActiveCell = Format(ActiveCell + 14 / 48, "hh:mm")
ActiveCell.Offset(0, 3).Select
Load UserForm1
End Sub
que faire pour accélérer ma macro
Sub ToggleButton3_Click()
Application.ScreenUpdating = False
ActiveCell.FormulaR1C1 = "10:00"
SELECTION.Copy
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
If Not ActiveCell.HasFormula And IsDate(ActiveCell.Text) Then _
If ActiveCell < 1 Then Cancel = True: ActiveCell = Format(ActiveCell + 14 / 48, "hh:mm")
ActiveCell.Offset(0, 3).Select
Load UserForm1
End Sub