Macro de triage-suppression

mat1817 · 26 Décembre 2011

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 · 26 Décembre 2011

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, ...)

Code:

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 · 26 Décembre 2011

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 · 26 Décembre 2011

Re : Macro de triage-suppression

Bonsoir
une variante un peu plus rapide
Cordialement
Flyonets

julberto · 26 Décembre 2011

Re : Macro de triage-suppression

Bonjour le fil,

Une autre alternative :

VB:

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

cordialement

Macro de triage-suppression

mat1817

XLDnaute Nouveau

Pièces jointes

Papou-net

XLDnaute Barbatruc

mat1817

XLDnaute Nouveau

flyonets44

XLDnaute Occasionnel

Pièces jointes

julberto

XLDnaute Occasionnel

Discussions similaires