Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Critères pour filtre

Critères pour filtre

3 réponses
Avatar
Denys
Bonjour =E0 tous,

Voici un bout de code:

Sub GRosa()
With ActiveSheet
Application.ScreenUpdating =3D False
With .Range("O2:O500")
.AutoFilter Field:=3D1, Criteria1:=3D"<>TEAM", Criteria2:=3D"<>Daro=
,
Rosita"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub

Est-il possible de remplacer "Daro, Rosita" par "le nom inscrit en
cellule B1 ? Je n'y arrive pas...

Merci pour votre temps

Denys
Signaler un problème avec ce contenu

3 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
Jacky
Bonsoir,
<Est-il possible de remplacer "Daro, Rosita" par "le nom inscrit en cellule
B1 ?

Essaie comme cela
.AutoFilter Field:=1, Criteria1:="<>TEAM", Criteria2:="<>" & [b1]

--
Salutations
JJ


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

Bonjour à tous,

Voici un bout de code:

Sub GRosa()
With ActiveSheet
Application.ScreenUpdating = False
With .Range("O2:O500")
.AutoFilter Field:=1, Criteria1:="<>TEAM", Criteria2:="<>Daro,
Rosita"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub

Est-il possible de remplacer "Daro, Rosita" par "le nom inscrit en
cellule B1 ? Je n'y arrive pas...

Merci pour votre temps

Denys
Avatar
isabelle
bonjour Denys,

.AutoFilter Field:=1, Criteria1:="<>TEAM", Criteria2:="<>" & .Range("B1")

isabelle



Denys a écrit :
Bonjour à tous,

Voici un bout de code:

Sub GRosa()
With ActiveSheet
Application.ScreenUpdating = False
With .Range("O2:O500")
.AutoFilter Field:=1, Criteria1:="<>TEAM", Criteria2:="<>Daro,
Rosita"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub

Est-il possible de remplacer "Daro, Rosita" par "le nom inscrit en
cellule B1 ? Je n'y arrive pas...

Merci pour votre temps

Denys



Avatar
Denys
Bonjour Isabelle et Jacky,

Merci infiniment, tout fonctionne à merveille...

Bonne soirée

Denys