Lenteur d'exécution d'une macro
Résolu
Bonjour,
J'ai créé avec excel 2003 un planning et une macro permet d'effacer les données mais
cela est d'une lenteur pas possible.
Voici ma macro
Sub Effacer01Janvier()
Application.ScreenUpdating = False
rep = MsgBox("Voulez vous vraiment Effacer les Données", vbYesNo, "Effacer")
If rep = vbYes Then
Dim cells As Range
Range("J53:AN97,K98:Y105,AA98:AP105,AR98:BG105").Select
Selection.ClearContents
Else
If rep = vbNo Then
End If
End If
Range("H49").Select
Application.ScreenUpdating = True
End Sub
mais rien n'y fait
quelqu'un pourrait il m'aider
Merci
J'ai créé avec excel 2003 un planning et une macro permet d'effacer les données mais
cela est d'une lenteur pas possible.
Voici ma macro
Sub Effacer01Janvier()
Application.ScreenUpdating = False
rep = MsgBox("Voulez vous vraiment Effacer les Données", vbYesNo, "Effacer")
If rep = vbYes Then
Dim cells As Range
Range("J53:AN97,K98:Y105,AA98:AP105,AR98:BG105").Select
Selection.ClearContents
Else
If rep = vbNo Then
End If
End If
Range("H49").Select
Application.ScreenUpdating = True
End Sub
mais rien n'y fait
quelqu'un pourrait il m'aider
Merci
1 réponse
-
Tu peux lire ça : http://www.info-3000.com/vbvba/conseiloptimisation.php
Mais je pense pas que le problème vienne de la macro. Essaye de d'exécuter la macro avec F8 et d''identifier la partie qui dure trop longtemps.
