suprimmer des "rows" sous condition

Venaissin · 17 Juillet 2006

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 · 17 Juillet 2006

Re : suprimmer des "rows" sous condition

Bonjour

Ceci sipprime ligne si abcd

PHP:

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 · 17 Juillet 2006

Re : suprimmer des "rows" sous condition

Temjeh à dit:
Bonjour

Ceci sipprime ligne si abcd

PHP:

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

PHP:

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

A+

Tibo · 17 Juillet 2006

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 · 17 Juillet 2006

Re : suprimmer des "rows" sous condition

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

Code:

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

@+Jean-Marie

suprimmer des "rows" sous condition

Venaissin

Guest

Temjeh

XLDnaute Accro

Gorfael

XLDnaute Barbatruc

Tibo

XLDnaute Barbatruc

JeanMarie

XLDnaute Barbatruc

Discussions similaires

suprimmer des "rows" sous condition

Venaissin

Guest

Temjeh

XLDnaute Accro

Gorfael

XLDnaute Barbatruc

Tibo

XLDnaute Barbatruc

JeanMarie

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency