Macro : Efface les lignes concernées

[Daniel]

Bonjour à tous!

Petite question sur les macro!

Je cherche la syntaxe de la macro me permettant de m'effectuer cette commande :
- Rechercher dans la colonne A, toutes les cellules ayant un contenu
différent des lettres E, F, H, et I.

- Supprimer les lignes ne contenants pas ces lettres dans la colonne A.

Je sais, ça n'a pas l'air compliqué, mais pourtant je bloque sur la syntaxe.
Boucle, pas boucle, dim, pas dim ... ??

Merci d'avance de votre aide!

Daniel

 

[PascalXLD]

Bonjour

Essaies


Sub supp()

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 1 Step -1
If Range('A' & x) <> 'E' And Range('A' & x) <> 'F' And Range('A' & x) <> 'H' And Range('A' & x) <> 'I' Then Rows(x).Delete
Next

End Sub

Bon courage

 

[Gérard DEZAMIS]

Bonjour Pascal et Daniel

avec :

Sub supp()

Dim x As Integer
Application.ScreenUpdating = False
For x = Range('A65536').End(xlUp).Row To 1 Step -1
If Range('A' & x) <> 'E' And Range('A' & x) <> 'F' And Range('A' & x) <> 'H' And Range('A' & x) <> 'I' Then Rows(x).Delete
Next
Application.ScreenUpdating = True
End Sub

Cela va un peu plus vite mais ce n'est qu'un détail tout est très bien

Au passage pascal peux-tu me dire pourquoi tu ecris Next simplement et pas Next x C'est implicite ou je dis une grosse ...... ?

@+ GD

 

[PascalXLD]

Bonjour Gérard

Tu n'es pas obligé de mettre Next x Next y etc même quand tu en as beaucoup

Par contre l'avantage c'est que tu t'y retrouves plus facilement en mettant Next x

Mais bon là comme il n'y a qu'une boucle c'est encore moins génant

Bonne journée

 

[daniel]

Impec !

Super!

Merci à vous tous pour vos aides!

c'est ce que je voulais!

A très bientôt

 

[Daniel]

Nouvelle question

J'en profite à nouveau! c'est la suite de la macro précédente.

Je souhaite que toutes les lignes ayant comme valeur dans la colonne A la lettre 'B' soient couper dans une autre feuille intitulé 'Produits A'.

Merci d'avance de votre aide!

Daniel