Suppression lignes conditionnelle

[titymax]

Bonsoir,

Le problème est simplissime mais la solution...

Dans l'exemple joint, comment faire via une macro pour supprimer les lignes dont le contenu de la première cellule (colonne A) commence par "1" ?

D'avance un grand merci

Bonne soirée.

 

[JCGL]

Re : Suppression lignes conditionnelle

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub DelSi1()
Dim X As Long
For X = 1 To Range("A65535").End(xlUp).Row
If Left(Cells(X, 1), 1) = 1 Then Cells(X, 1).EntireRow.Delete
Next X
End Sub

Pas testé...

A+ à tous

 

[JCGL]

Re : Suppression lignes conditionnelle

Bonjour à tous,
Salut Jean-Marcel 🙂,

Nettement plus cohérent.... Que mon code précédent

Option Explicit

Sub DelSi1()
Application.ScreenUpdating = 0
Dim X As Long
For X = Range("A65535").End(xlUp).Row To 1 Step -1
If Left(Cells(X, 1), 1) = 1 Then Cells(X, 1).EntireRow.Delete
Next X
End Sub

A++ 🙂
A+ à tous

 

[titymax]

Re : Suppression lignes conditionnelle

Bonsoir,

SUPER GENIAL !!! MERCI BEAUCOUP

Très bonne fin de soirée à tous