Macro suppression ligne avec condition

Version imprimable

Bonjour,

J'ai un peu la même demande que Jenifer 699 dans cette discussion. La seule chose est que je voudrais non pas supprimer les cellules n'ayant pas la valeur "Magasin de Paris" mais les conserver pour reprendre l'exemple.
En plus de ça, il ne s'agirait pas seulement de tester une valeur " Magasin de paris" mais plusieurs situées dans le Range A de la Feuil2...
Etant débutant je suis un peu perdu...

Pourriez-vous me fournir quelques pistes?

Merci d'avance,
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test() Dim Derlig As Long, b As Long With ActiveWorkbook.Worksheets("Feuil1") Derlig = .Range("B2").End(xlDown).Row For b = Derlig To 2 Step -1 If .Range("B" & b).Value = "MAGASIN DE PARIS" Then .Range("B" & b).EntireRow.Delete End If Next b End With End Sub

07/04/2016, 17h16
Philippe Tulliez

Bonjour,

Citation:

La seule chose est que je voudrais non pas supprimer les cellules n'ayant pas la valeur "Magasin de Paris" mais les conserver pour reprendre l'exemple.

Si je comprends bien ta demande tu veux supprimer les autres ?
Ce qui n'est pas égal est donc différent ?
Tu inverses donc le test logique.
Il existe six opérateurs logiques : =, <>, >, <=, <, >=
07/04/2016, 18h02
logue_in

Merci Philippe!

Je ne connaissais pas l'opérateur "différent".

Ne me reste plus qu'à supprimer des lignes avec comme condition les valeurs d'une autre liste situé sur une Feuille différente...
07/04/2016, 19h57
Philippe Tulliez

Bonjour,

Citation:

Je ne connaissais pas l'opérateur "différent"

C'est exactement comme dans Excel et en plus naturellement, tu as les opérateurs de conjonction logique AND et OR qui en excel sont traduites par des fonctions;

Effectivement,

voici le code que j'ai tenté de faire. Le résultat n'est pas bon, il ne me supprime pas les bonnes lignes...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub SupLigne()
Dim Liste As String
 
 
With Worksheets("Feuil2")
 
   Application.ScreenUpdating = False
   For i = [A65000].End(xlUp).Row To 1 Step -1
      Liste = (Cells(i, 1).Value)
      Next i
      With Worksheets("Feuil3")
     For j = [A65000].End(xlUp).Row To 1 Step -1
 
If .Range("A" & j).Value <> Liste Then
.Range("A" & j).EntireRow.Delete
 
  End If
Next j
End With
End With
 
End Sub