Bonjour,
Je souhaiterai que le recalcul de la formule ne se fasse que sur les lignes impliquées et non sur toute la feuille, afin d’accélérer l’exécution sous excel. Est-ce qu'il y a une possibilité.
Merci.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [F6:LW90]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Application.Intersect(Target, Range("F6:LW90")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
UserForm1.Show
End If
Calculate
End Sub
Je souhaiterai que le recalcul de la formule ne se fasse que sur les lignes impliquées et non sur toute la feuille, afin d’accélérer l’exécution sous excel. Est-ce qu'il y a une possibilité.
Merci.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [F6:LW90]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Application.Intersect(Target, Range("F6:LW90")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
UserForm1.Show
End If
Calculate
End Sub
