J'essaie de faire un filtre sur une plage donn=E9e dont le crit=E8re doit
=EAtre "diff=E9rent de la valeur contenue dans le combobox1"
Voici le code. Ou est mon erreur?
Sub ElimProj()
With ActiveSheet
Application.ScreenUpdating =3D False
Dim DerL As Long
DerL =3D .[B65536].End(2).Row
With .Range("B3:B" & DerL)
.AutoFilter Field:=3D1, Criteria1:=3D"<>ComboBox1.Value"
.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
Seulement la ligne 3 et 4 restent visibles (sur 1049) et ne sont pas
justes.
J'essaie de faire un filtre sur une plage donnée dont le critère doit être "différent de la valeur contenue dans le combobox1"
Voici le code. Ou est mon erreur?
Sub ElimProj() With ActiveSheet Application.ScreenUpdating = False Dim DerL As Long DerL = .[B65536].End(2).Row
With .Range("B3:B" & DerL) .AutoFilter Field:=1, Criteria1:="<>ComboBox1.Value" .Range("_FilterDatabase").SpecialCells(xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With End With End Sub
Seulement la ligne 3 et 4 restent visibles (sur 1049) et ne sont pas justes.
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
1189683706.684488.34850@w3g2000hsg.googlegroups.com...
Bonjour à tous,
J'essaie de faire un filtre sur une plage donnée dont le critère doit
être "différent de la valeur contenue dans le combobox1"
Voici le code. Ou est mon erreur?
Sub ElimProj()
With ActiveSheet
Application.ScreenUpdating = False
Dim DerL As Long
DerL = .[B65536].End(2).Row
With .Range("B3:B" & DerL)
.AutoFilter Field:=1, Criteria1:="<>ComboBox1.Value"
.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
Seulement la ligne 3 et 4 restent visibles (sur 1049) et ne sont pas
justes.
J'essaie de faire un filtre sur une plage donnée dont le critère doit être "différent de la valeur contenue dans le combobox1"
Voici le code. Ou est mon erreur?
Sub ElimProj() With ActiveSheet Application.ScreenUpdating = False Dim DerL As Long DerL = .[B65536].End(2).Row
With .Range("B3:B" & DerL) .AutoFilter Field:=1, Criteria1:="<>ComboBox1.Value" .Range("_FilterDatabase").SpecialCells(xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With End With End Sub
Seulement la ligne 3 et 4 restent visibles (sur 1049) et ne sont pas justes.