Autres Suppression des lignes contenant ...

[Guy_L]

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:

'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

 

[Staple1600]

Bonjour le fil,

Petite correction
Normalement on dimensionne plutôt en Long
Dim i As Long

 

[Staple1600]

Re

Test OK sur mon PC
(avec des données en colonne A et une colonne B vide au départ)

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

 

[Guy_L]

Merci beaucoup

 

[Staple1600]

Re

De rien.
Mais est-ce que cela fonctionne au moins sur ton PC?
C'est cela le plus important au demeurant

 

[mapomme]

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.

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

 

[Staple1600]

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

 

[mapomme]

Ou est-ce le hasard?

Oui, oui c'est au hasard

 

[Guy_L]

En fait, je pensais que la version "SpecialCells" arrangée à la sauce du mot à trouver aurait été plus simple, mais existe-t-elle ?

 

[chris]

Bonjour à tous

Oui, oui c'est au hasard

ou peut-être en raison du multipost sur n forums (3 minimum) quoique pas plus d'infos là-bas...

 

[Staple1600]

Bonjour chris

Fallait bien que je finisse par tomber sur un multipost aujourd'hui
Voilà c'est fait

PS: Sont indécrottables, ces petits nouveaux