suprimmer des "rows" sous condition

[Venaissin]

Bjr,

comment supprimer tous les "rows" dont colonne "d" contient texte "abcd", alors que les autres "rows" à conserver contiennent des chiffres de valeur variable?

Ce de façon à retrouver une table réduite adéquate.

Je teste excel 2007, mais n'y ait même pas trouvé la fonction "find and replace" de excel 2000.

TIA
Venaissin

 

[Temjeh]

Re : suprimmer des "rows" sous condition

Bonjour

Ceci sipprime ligne si abcd

For i = 1 To Range("D65536").End(xlUp).Row
     If Range("D" & i) = "abcd" Then Rows(i).Delete
Next i

'Comme Gorfael c'est beaucoup mieux

For i = 1 To Range("D65536").End(xlUp).Row 
     If Range("D" & i) = "abcd" Then Rows(i).Delete 
Next i

Merci Gorfael je corrige a l'avenir


Temjeh

 

[Gorfael]

Re : suprimmer des "rows" sous condition

Bonjour

Ceci sipprime ligne si abcd

For i = 1 To Range("D65536").End(xlUp).Row
     If Range("D" & i) = "abcd" Then Rows(i).Delete
Next i

Temjeh

Salut Temjeh
Petit problème sur ta macro :
Ligne 10 et 11 contiennent abcd

i=10
if Range(D10) = "abcd" est vrai donc
supprime ligne 10
ligne 10 supprimée, entraîne ligne 11 devient ligne 10

ta boucle recommence avec i=11, et ne peut détecter la ligne 10

ce qui fait que je verrais mieux ta boucle dans ce style

For i = Range("D65536").End(xlUp).Row to 1 step -1
     If Range("D" & i) = "abcd" Then Rows(i).Delete
Next i

A+

 

[Tibo]

Re : suprimmer des "rows" sous condition

Salut Venaissin, Temjeh,

A essayer :

Insérer une colonne (colonne A par exemple)

Y mettre la formule :

=NB.SI(B2:IV2;"abcd")

à recopier vers le bas.

Puis filtre automatique - Personnalisé - Supérieur à zéro

Reste à supprimer les lignes.

@+

 

[JeanMarie]

Re : suprimmer des "rows" sous condition

Bonjour Tibo
je dirais même moins
Filtre automatique sur la colonne D- Supprimer les lignes.

Sub Macro1()
    Selection.AutoFilter
    Selection.AutoFilter Field:=4, Criteria1:="=abcd", Operator:=xlAnd
    Range("D3:D65536").EntireRow.Delete
    Selection.AutoFilter
End Sub

@+Jean-Marie