Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Filtre, critère ne marche pas

Filtre, critère ne marche pas

2 réponses
Avatar
Denys
Bonjour =E0 tous,

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.

Merci

Denys
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
.AutoFilter Field:=1, Criteria1:="<>" & ComboBox1.Value

Cordialement
Pascal

"Denys" a écrit dans le message de news:

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.

Merci

Denys
Avatar
Denys
Bonjour Pascal,

Dis-donc, ça fait une paye !!!

Merci infiniment, ça fonctionne à merveille...

Bonne journée

Denys