Suppression de ligne par rapport à une liste

[setsix]

Suppression de ligne par rapport à une liste [RESOLU]

Bonjour

Je cherche à transposer une formule VBA qui supprime les lignes qui contient la valeur "toto" par une autre où le "toto" serait remplacé par une liste de valeur qui se trouve sur la feuille "ABC" de la cellule A1 à A10

Range("A65536").End(xlUp).Select

varligne = ActiveCell.Row
Range("A1").Select
For i = 1 To varligne
If (ActiveCell.Value, 3) = "toto" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i

End Sub

Savez vous comment faire?

 

[tototiti2008]

Re : Suppression de ligne par rapport à une liste

Bonjour setsix,

comment fais tu pour mettre la valeur de A1 à A10 dans une cellule ?

 

[Cousinhub]

Re : Suppression de ligne par rapport à une liste

Bonjour,

si j'ai bien compris...

Sub suppr()
Sheets("ABC").Range("A1:A10").Name = "critere"
For i = [A65000].End(xlUp).Row To 2 Step -1
    If Not IsError(Application.Match(Cells(i, 1).Value, Range("critere"), 0)) Then
        Rows(i).EntireRow.Delete
    End If
Next i
End Sub

 

[setsix]

Re : Suppression de ligne par rapport à une liste

Bonjour setsix,

comment fais tu pour mettre la valeur de A1 à A10 dans une cellule ?

C'est déjà des valeurs prédéfinis en fait.
Genre A1="alex", A2="paul", A3="ben" ......
sachant que je peux changer ces valeurs.

 

[JNP]

Re : Suppression de ligne par rapport à une liste

Bonjour tout le monde ,
Une autre proposition

Sub test()
Dim Plage As Range
Set Plage = Sheets("ABC").Range("A1:A10")
For Each Cellule In Plage
varligne = Range("A65536").End(xlUp).Row
For I = 1 To varligne
If Cells(I, 1) = Cellule Then
Rows(I).EntireRow.Delete
I = I - 1
End If
Next I
Next
End Sub

Bonne soirée

 

[setsix]

Re : Suppression de ligne par rapport à une liste

Merci JNP, bhbh

Ca marche impec.

 

[vbacrumble]

Re : Suppression de ligne par rapport à une liste

Bonsoir à tous


Une autre proposition (par filtre élaboré et VBA)

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/05/2009 par VBACrumble
'
Dim pf As Range
Sheets("ABC").Range("A1:A11").Name = "CRIT"
With Sheets(1)
    Set pf = .Range("_FilterDataBase")
    .Range("A1:A" & .[A65536].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("CRIT"), Unique:=False
    pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .ShowAllData
End With
End Sub

 

[tototiti2008]

Re : Suppression de ligne par rapport à une liste

Bonjour à tous,
Re,

bon, j'avais rien compris
je croyais que plutôt que supprimer la ligne tu voulais y mettre les valeurs de A1 à A10, d'où ma question idiote