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

pierrof

XLDnaute Occasionnel
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
 

Pièces jointes

  • Supprimer _lignes.xlsm
    14.7 KB · Affichages: 4
Solution
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)
;)

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG