XL 2010 supprimer les lignes dont la cellule en colonne p est un zéro

polyteis · 9 Mai 2022

Bonjour,

j'ai trouvé ce petit code, qui à l'origine etait ecrit pour supprimer les cellules vides
je l'ai adapté pour des cellules à 0 de ma colonne p
quand je le lance j'ai une erreur " dépassement de capacité" .
mon tableau fait 50000 lignes
Sub Supprimer_zero()
Dim n As Integer
Application.ScreenUpdating = False
For n = Range("P65536").End(xlUp).Row To 9 Step -1
If (Range("P" & n) = 0) Then
Rows(n).Delete
End If
Next n
End Sub

y a t il un moyen de remedier a cela
merci

vgendron · 9 Mai 2022

Bonjour

il vaudrait sans doute mieux appliquer un filtre sur la colonne P, puis supprimer les lignes résultantes de ce filtre
ou alors passer par un tablo vba (au vu des 50 000 lignes)

avec un fichir exemple, ca pourrait aider.. (pas besoin de mettre les 50 000 lignes) juste une dizaine suffit

polyteis · 9 Mai 2022

re,

a quoi es t du ce dépassement alors que je n'ai que 50 000 lignes sur 65536 possibles

qu'est ce que vous appelez un tableau vba ?

Efgé · 9 Mai 2022

Bonjour à tous

polyteis à dit:
Dim n As Integer

Integer s'arrête à 32 737 donc 50 000 c'est trop pour le pauvre petit.
Utilise

VB:

Dim n as Long

Ou ne fait pas de boucle

Code:

Sub efface()
Dim Rng As Range
Set Rng = Range("q9:q" & Range("P65536").End(xlUp).Row)
With Rng
    .FormulaLocal = "=SIERREUR(LN(P9);"""")"
    .Value = .Value
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks).EntireRow.Select
    'Ou
    '.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    If Err Then Err.Clear
    .ClearContents
End With
End Sub

Cordialement

polyteis · 11 Mai 2022

Efgé à dit:
Bonjour à tous

Integer s'arrête à 32 737 donc 50 000 c'est trop pour le pauvre petit.
Utilise

VB:

Dim n as Long

Ou ne fait pas de boucle

Code:

Sub efface() Dim Rng As Range Set Rng = Range("q9:q" & Range("P65536").End(xlUp).Row) With Rng .FormulaLocal = "=SIERREUR(LN(P9);"""")" .Value = .Value On Error Resume Next .SpecialCells(xlCellTypeBlanks).EntireRow.Select 'Ou '.SpecialCells(xlCellTypeBlanks).EntireRow.Delete If Err Then Err.Clear .ClearContents End With End Sub

Cordialement

polyteis · 11 Mai 2022

Efgé à dit:
Bonjour à tous

Integer s'arrête à 32 737 donc 50 000 c'est trop pour le pauvre petit.
Utilise

VB:

Dim n as Long

Ou ne fait pas de boucle

Code:

Sub efface() Dim Rng As Range Set Rng = Range("q9:q" & Range("P65536").End(xlUp).Row) With Rng .FormulaLocal = "=SIERREUR(LN(P9);"""")" .Value = .Value On Error Resume Next .SpecialCells(xlCellTypeBlanks).EntireRow.Select 'Ou '.SpecialCells(xlCellTypeBlanks).EntireRow.Delete If Err Then Err.Clear .ClearContents End With End Sub

Cordialement

bonjour
je vais essayer cela
mais avant je vais tenter de comprendre ce code

merci

polyteis · 11 Mai 2022

polyteis à dit:
bonjour
je vais essayer cela
mais avant je vais tenter de comprendre ce code

merci

re
Set Rng = Range("q9:q" & Range("P65536").End(xlUp).Row)

je pense qu'il faut lire Range("p9"

Efgé · 11 Mai 2022

Bonjour
Non; c'est bien q9. J'écrit une formule dans la colonne Q, j'écrase la formule et je supprime les lignes qui correspondent aux cellules vides de la colonne q

Cordialement

XL 2010 supprimer les lignes dont la cellule en colonne p est un zéro

polyteis

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

polyteis

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

polyteis

XLDnaute Occasionnel

polyteis

XLDnaute Occasionnel

polyteis

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Discussions similaires