Bonjour a tous
je voudrais accéléré l’exécution de mes macros
merci
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
ActiveCell.FormulaR1C1 = "00:00"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]+TIME(7,00,0)"
ActiveCell.Offset(0, 4).Select
Load UserForm2
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
Cells.Interior.ColorIndex = 0
With Target
.EntireRow.Interior.ColorIndex = 8
.EntireColumn.Interior.ColorIndex = 8
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Calculate
End With
End Sub