macro nettoyage cellule selon contenu

[limagerit]

BOnjour à tous ,

Dans le fichier ci joint, j'utilise une macro pour effacer le contenu de cellule (colonne B ) selon un critère présent dans la cellule C .

Sub Essai()
Dim i%
For i = 2 To 30000
If Range("c" & i) < 0.5 Then Range("b" & i).ClearContents
Next i

End Sub

elle marche super .... sauf que dans l'extraction de mes données j'ai 45 000 lignes à traiter.

et à partir de 40 000 la macro me renvoie un dépassement de capacité .


j'ai donc adapté la macro comme ci

Sub Essai()
Dim i%
For i = 2 To 30000
If Range("c" & i) < 0.5 Then Range("b" & i).ClearContents
Next i

Dim j%
For j = 30001 To 50000
If Range("c" & j) < 0.5 Then Range("b" & j).ClearContents
Next j



End Sub

mais j'ai toujours le même soucis.


Quelqu’un à une bonne idée ?

Merci du coup de pouce

 

[david84]

Re : macro nettoyage cellule selon contenu

Bonsoir,

et à partir de 40 000 la macro me renvoie un dépassement de capacité

je n'ai pas testé ton fichier mais teste ta macro initiale en déclarant i en Long
Dim i as Long au lieu de Dim i%
et vois ce que cela donne.
A+

 

[Staple1600]

Re : macro nettoyage cellule selon contenu

Bonsoir à, tous

limagerit
Juste une question
Pourquoi ne pas utiliser le filtre automatique et juste après appuyer sur la touche Suppr.
Le résultat serait le même mais sans le message d'erreur 😉

 

[limagerit]

Re : macro nettoyage cellule selon contenu

bonsoir david84
Merci pour l'astuce sur le Dim i as Long effectivement plus de soucis de capacité


Bonsoir staple 1600
effectivement ta solution est valable aussi , mais c'est un traitement en cascade sur plusieurs fichiers
alors je te retourne la question pourquoi faire plein de clic quand un clic suffit ?

Merci à tous deux et bonne soirée