macro vba filtres et condition

jaba · 4 Juin 2010

Bonjour,

Je suis débutante en vba, et je cherche à ajouter des conditions supplémentaires à ma macro ci -dessous :

Sub askbloom()

Set definedrange = Sheets(4).Range("Z1:Z65536")

For Each ligne In definedrange

If (ligne.Value <> "Z" ) Then
i = i + 1
Debug.Print ligne.Row
Sheets("Result BBG").Cells(i, 1).Value = Sheets("Inventaires Conso").Cells(ligne.Row, 5).Value
Sheets("Result BBG").Cells(i, 2).Value = Sheets("Inventaires Conso").Cells(ligne.Row, 7).Value
End If
Next ligne

Les filtres à ajouter sont explicités dans le fichier ci-joint.

Merci d'avance pour votre aide.

kjin · 4 Juin 2010

Re : macro vba filtres et condition

Bonsoir,
D'après ton fichier

Code:

Sub filtre()
With Range("A1")
    .AutoFilter Field:=1, Criteria1:="<>A", Operator:=xlAnd, Criteria2:="<>B"
    .AutoFilter Field:=2, Criteria1:="<>E", Operator:=xlAnd, Criteria2:="<>F"
End With
With ActiveSheet.AutoFilter.Range
    Set rngfilter = .Offset(1, 1).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
End With
rngfilter.Copy Sheets("Resultat").Range("A1")
ActiveSheet.AutoFilterMode = False
End Sub

A+
kjin

macro vba filtres et condition

jaba

XLDnaute Junior

Pièces jointes

kjin

XLDnaute Barbatruc

Discussions similaires