Macro de triage-suppression

[mat1817]

Bonjour à tous et joyeux noël!!!!!

Dans le fichier ci-joint, vous trouverez 2 colonnes. la colonne "VERIF" me permet de savoir si l'article en colonne "ref" existe ou pas (depuis un autre classeur). Mais ce n'est pas la le problème... Existe t-il une marco ou autre astuce qui pourrait checker la colonne "VERIF" et supprimer toutes les lignes (et donc tous les articles) pour lesquelles une croix "x" se trouve en colonne "VERIF"?

Je vous remercie par avance

Cordialement,

Mat.

 

[Papou-net]

Re : Macro de triage-suppression

Bonjour mat1817,

Voici un exemple de macro à mettre dans un module standard et à lancer par le moyen que tu veux (événement de feuille de calcul, bouton de commande, ...)

Sub Suppression()
Dim Lg As Long
With Sheets("Feuil1")
    Lg = .Range("A65000").End(xlUp).Row
    For i = Lg To 3 Step -1
        If Not IsError(.Cells(i, 2).Value) Then
            If UCase(.Cells(i, 2)) = "X" Then .Cells(i, 1).EntireRow.Delete
        End If
    Next
End With
End Sub

Bonnes fêtes de fin d'année.

Cordialement.

 

[mat1817]

Re : Macro de triage-suppression

Bonjour Papou-net, merci beaucoup!!!!! Je m'en vais essayer cette macro de suite!!!!

Bien cordialement, et bonnes fêtes de fin d'année également,

Mat.

 

[flyonets44]

Re : Macro de triage-suppression

Bonsoir
une variante un peu plus rapide
Cordialement
Flyonets

 

[julberto]

Re : Macro de triage-suppression

Bonjour le fil,

Une autre alternative :

    Range("B:B").AutoFilter Field:=1, Criteria1:="x"
    Range("B3:B" & Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Range("B:B").AutoFilter Field:=1

cordialement