Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VB - supprimer des lignes contenant X

VB - supprimer des lignes contenant X

2 réponses
Avatar
jean-francois LEGRAS
Bonjour,


J'ai un petit pb que je n'arrive pas à résoudre. Voici :

je voudrais supprimer toutes les lignes contenant "X" en colonne C.

J'ai donc écrit ce code :

Dim e As Range
For Each e In Range("C3", "C65535")
If e = "X" Then
e.EntireRow.Delete
End If
Next e


Pb : qd 2 lignes de suite sont concernées seule la 1ère est supprimée.

Comment puis-je faire pour supprimer TOUTES les lignes concernées ?


Merci beaucoup !!
Slts
JF
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Caetera
> je voudrais supprimer toutes les lignes contenant "X" en colonne C.



Sub supp()
With [C3:C65536]
.AutoFilter Field:=1, Criteria1:="X"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub


Etc
Avatar
gmlsteph
Bonjour,
Faut remonter pour pas que ca saute!

Dim i as long
For i =[c65536].end(xlup).row to 2 step -1
if ucase(cells(i,3))="X" then rows(i).entirerow.delete
next

'lSteph

jean-francois LEGRAS a écrit :
Bonjour,


J'ai un petit pb que je n'arrive pas � r�soudre. Voici :

je voudrais supprimer toutes les lignes contenant "X" en colonne C.

J'ai donc �crit ce code :

Dim e As Range
For Each e In Range("C3", "C65535")
If e = "X" Then
e.EntireRow.Delete
End If
Next e


Pb : qd 2 lignes de suite sont concern�es seule la 1�re e st supprim�e.

Comment puis-je faire pour supprimer TOUTES les lignes concern�es ?


Merci beaucoup !!
Slts
JF