Filtre, critère ne marche pas

Le
Denys
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #4747271
Bonjour
.AutoFilter Field:=1, Criteria1:="<>" & ComboBox1.Value

Cordialement
Pascal

"Denys"
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
Denys
Le #4699401
Bonjour Pascal,

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

Merci infiniment, ça fonctionne à merveille...

Bonne journée

Denys
Publicité
Poster une réponse
Anonyme