Discussion :

[jenifer699]

Bonjour,

je vous explique mon problème

je souhaite créer une macro qui supprime la ligne entière quand dans la colonne B ne se trouve pas afficher : "MAGASIN DE PARIS"

je veux supprimer toutes valeurs différentes de "MAGASIN DE PARIS"

j'ai tenté ça sans succès :

Code :

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

1
2
3
4
5
6
7
8
Dim b as long
dim plage as range
set plage =  range("b2:b" & range ("B2").End(xldown).Row)
for b = plage.cells.count to 1 step -1
if plage.cells(B).Text <> "MAGASIN DE PARIS" Then
plage.Cells(B).entirerow.delete
end if
end sub

je vous joins une ébauche de mon tableau.

merci d'avance de votre aide.

Jenifer

[gFZT82]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
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

Cordialement.

[jenifer699]

Bonjour,

merci beaucoup

cela marche parfaitement !

bonne soirée