VB - supprimer des lignes contenant X

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Caetera
Le #19120871
> 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
gmlsteph
Le #19120851
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


Publicité
Poster une réponse
Anonyme