Discussion :

[logue_in]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 : =, <>, >, <=, <, >=

[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...

[Philippe Tulliez]

Bonjour,

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;

[logue_in]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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