Autres Suppression des lignes contenant ...

  • Initiateur de la discussion Initiateur de la discussion Guy_L
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guy_L

XLDnaute Occasionnel
Bonjour,
Dans un fichier, je supprime les lignes "blanches" par :
Range("A1:A" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

J'ai voulu reproduire cette commande pour un mot précis, mais ne sachant pas comment faire, j'ai écrit ceci:

VB:
'suppression des lignes contenant le mot "xxx"
            Dim i As Integer
             For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
                 If .Range("A" & i).Value = "xxx" Then .Rows(i).Delete
                 End If
             Next i

mais ça ne marche pas non plus
Pouvez-vous m'aider SVP ?
Merci
GL
 
Re

Test OK sur mon PC
(avec des données en colonne A et une colonne B vide au départ)
VB:
Sub Suppr_Lig()
Dim DerL As Long
DerL = Cells(Rows.Count, 1).End(3).Row
CHAINE = Chr(34) & InputBox("Mot à rechercher?") & Chr(34)
Application.ScreenUpdating = False
Range("B1:B" & DerL).FormulaR1C1 = "=LOOKUP(" & CHAINE & ",RC[-1])"
Columns("B:B").SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
Columns("B:B").Clear
End Sub
 
Bonjour @Guy_L,

Un autre essai (à condition que la colonne A ne contiennent pas de constante d'erreur - si l'erreur provient d'une formule alors pas de P.B.)
Le code est dans le module de Feuil1.
VB:
Sub Suppr()
  If Range("d1") <> "" Then
    Application.ScreenUpdating = False: On Error Resume Next
    With Intersect(Columns(1), Me.UsedRange)
      .Replace What:=Range("d1").Value, Replacement:="#N/A", LookAt:=xlWhole, SearchOrder:=xlByRows, _
         MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
      .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
    End With
  End If
End Sub
 

Pièces jointes

Bonsoir mapomme

Pourquoi D1?
Tu as une info que nous n'avons pas?
(par le canal MP?)
Ou est-ce le hasard? (Voire une affection particulière pour la colonne D?)
Moi-même j'avoue ne pas être insensible aux charmes de la colonne S 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
335
Réponses
4
Affichages
577
Réponses
12
Affichages
988
Retour