Optimisation de macro

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

Bonjour

A part le calcul, je ne vois pas que tu puisse accélérer.

Cordialement

merci

comment accéléré le calcul

svp merci

Bonjour,

A mon sens supprimer Calculate ! Tu forces un recalcul qui n'a pas lieu d'être. Reste en calcul auto et laisse faire Excel.

A part ça vu le contenu de tes macro, il n'y a pas grand chose...

Tu peux améliorer en supprimant les Select, mettre des valeurs à la place des formules. Et inutile de remettre ScreenUpdating à True à la fin, Excel le fait automatiquement (ça c'est pour t'économiser de l'écriture...)

Cordialement.

bonsoir

merci mferrand je vais essayer je ne voir pas comment remplacer les activecell et les formules car j'utilise l'enregistreur de macro

merci pour votre intérêt

cordialement

Justement ! Ça t'aidera à éviter de l'utiliser...

Pour les ActiveCell, si tu interviens exclusivement dans la cellule dans laquelle tu te places, il n'y a effectivement pas d'autre moyen de l'indiquer.

Mais si la cellule répond à des critères, et que tu la sélectionnes parce que tu ne sais pas comment les écrire c'est autre chose, tu gagnerais à faire autrement...

merci pour votre intérêt

je vais essaye de me débrouillé jusqu’à se que ca fonctionne bien