XL 2016 méthode clear et range trop grand

eriiic

XLDnaute Barbatruc

• 8 Décembre 2020

• #2

Bonjour,

'ne convient pas' ne veut pas dire grand chose...
Si c'est une histoire de vitesse, agrandi un range de chaque cellule concernée avec UInion() et fait un .Clear unique à la fin.
eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Décembre 2020

• #3

Bonjour le fil, sebastien450, eriiiic

Dans les versions récentes d'Excel, on peut utiliser le filtre automatique pour filtrer sur une couleur.
On peut donc le piloter par VBA et effacer la plage filtrée selon la couleur.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Décembre 2020

• #4

Bonsoir sebastien450, eriiiic, JM,

La méthode Union pédale dans la choucroute si la plage est constituée de plusieurs centaines ou milliers de zones disjointes.

Il faut décharger régulièrement la plage :

VB:

Sub a()
Dim decharge&, c As Range, P As Range, n&
decharge = 100 'modifiable
With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual: End With
For Each c In Range("D5:EHL222")
    If c.Interior.ColorIndex <> 43 Then n = n + 1: Set P = Union(IIf(P Is Nothing, c, P), c)
    If n = decharge Then P.Clear: Set P = Nothing: n = 0
Next
If n Then P.Clear
Application.Calculation = xlCalculationAutomatic: Application.EnableEvents = True
End Sub

A+

 

Dernière édition: 8 Décembre 2020

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 8 Décembre 2020

• #5

Bonjour,
En effet je n'ai pas été explicite mais il s'agit d'une durée d'exécution.
J'avoue ne pas comprendre la méthode Union, pourtant je la voit depuis bien longtemps...

J'ai une première question sur le code : Pourquoi ne pas avoir mis le code suivant en tout début d'exécution

VB:

With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual: End With

Et enfin , pourquoi rappeler le code suivant juste avant la fermeture :

Code:

If n Then P.Clear

merci pour votre aide,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Décembre 2020

• #6

1 : en général au début des macros on déclare et initialise les variables, ici decharge est un paramètre

2 : parce que des cellules ont été comptées et n'ont pas été effacées dans la boucle car n < decharge.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 8 Décembre 2020

• #7

La méthode Union pédale dans la choucroute si la plage est constituée de plusieurs centaines ou milliers de zones disjointes.

Cliquez pour agrandir...

Pour confirmer...
Je m'étais amusé à mesurer les temps pour 100 ajouts de cellules individuelles.
On voit qu'il croit constamment :

nb	t
100​	0.008​
200​	0.016​
300​	0.039​
400​	0.063​
500​	0.109​
600​	0.148​
700​	0.203​
800​	0.266​
900​	0.344​
1000​	0.469​

et devient rapidement rédhibitoire.
On atteint la seconde vers 1500
eric

 

Vote positif 0 Vote négatif