Microsoft 365 Supprimer ligne si cellule différente d'une valeur numérique et si vide

pierrof · 28 Mars 2022

Bonjour,

Dans mon nouveau projet, j'aimerais à l'aide d'une macro supprimer les lignes de mon tableau (tableau pouvant atteindre 15000 lignes) si la valeur de la cellule A n'est pas un nombre ou si elle est vide.

Je laisse un fichier exemple.

Merci d'avance de votre aide.

Cordialement

Staple1600 · 28 Mars 2022

Re

=>Phil
J'ai donc ouvert ta PJ

Donc sur la base du fichier de Phil basé sur ma base
(oui je sais cela fait beaucoup de base )
Je change mon fusil d'épaule
et je propose cette autre façon de faire

VB:

Sub Suppr_ALPHA_VIDE()
Dim l&, r As Range
Application.ScreenUpdating = False
l = ActiveSheet.UsedRange.Rows.Count
Columns("A:N").Sort key1:=Cells(2), Order1:=xlDescending, Header:=xlYes
Set r = Range("N2:N" & l)
r.FormulaR1C1 = "=IF(OR(ISTEXT(RC[-13]),ISBLANK(RC[-13])),""Staple"",1)"
r = Range("N2:N" & l).Value
r.SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
Columns(14).Clear
End Sub

PS; je te laisse tester sur 15000 lignes
(car mon PC n'est point véloce)

Staple1600 · 28 Mars 2022

Re

Est-ce qu'on parle du fait qu'un tableau Excel ne doit jamais avoir de cellules vides...
Ce qui évite de devoir supprimer quoique ce soit
(Il suffit de mettre des 0 et ne pas les afficher par exempel)

pierrof · 30 Mars 2022

Bonjour,
Super merci de vos retours et de vos réflexions .
Je m'enrichis.

Bonne journée

Microsoft 365 Supprimer ligne si cellule différente d'une valeur numérique et si vide

pierrof

XLDnaute Occasionnel

Pièces jointes

Staple1600

Staple1600

XLDnaute Barbatruc

pierrof

XLDnaute Occasionnel

Discussions similaires