Suppression conditionnelle de ligne

[Guy]

Bonjour,


Je n'arrive pas à faire une macro supprimer des lignes :


le critère de suppression est sur la colonne A ,


lorsque la cellule contient 'Sté', il faut supprimer la ligne.


Merci d'avance pour votre aide


Guy

 

[Moa]

Salut Guy !

Sub Macro1()
Dim i As Integer
For i = Range('A65000').End(xlUp).Row To 2 Step -1
If Range('A' & i).Value = 'sté' Then
Range('A' & i).EntireRow.Delete
End If
Next i
End Sub


@ +++


Moa

 

[ThomasR]

Bonjour Guy, Moa,

Moa, j'ai pas réussi avec ta macro ??

pour guy voici un autre exemple

@+
Thomas®

[file name=Pour_Guy.zip size=9425]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pour_Guy.zip[/file]

 

[ThomasR]

re,

😱 je suis nul !! c'est ton sté et pas Sté

elle va super ta macro Moa

@+
Thomas®

PS : deplus ta macro est mieu que la mienne car tu fais

.Row To 2 Step -1 donc tu n'est pas tributaire du décalage des lignes perdu par la sup (Bien vu). moi j'ai fait un i = i -1 (mais c'est une surcharge de code donc moyen)

 

[Moa]

Salut Thomas !

Nos deux macros sont pratiquement identiques et elles fonctionnent bien toutes les deux.

En fait cela vient du 'sté', dans ma macro, je l'ai mis sans majuscule alors que dans ton fichier il est avec majuscule.

@ +++


Moa

 

[Moa]

Héhé, on s'est croisé...Hihihi...!!!

Bonne journée à toi

Je pars avec mes enfants au marché...

@ +++


Moa

 

[Guy]

c'est parfait,

Merci beaucoup

Guy

 

[gcarry]

Re : Suppression conditionnelle de ligne

Bonjour les amis;
dans une table de 2000 lignes enviorns a 10 colones je voudrais supprimer les lignes correspondants a une valeur double mais pas dans la même colonne.
Example:
Si (lig. 10 col. 5) avec (lig.20 col.4) on la même valeur, comment supprimer les deux lignes en même temps?
Je vous serais vraiment gré si vous pouvez me faciliter cette tâche. ça me rempli le coeur, je n'arrive même pas a faire l'amour a ma femme... lol