Critères pour filtre

Le
Denys
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
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
Jacky
Le #18095241
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"
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
isabelle
Le #18095231
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



Denys
Le #18095721
Bonjour Isabelle et Jacky,

Merci infiniment, tout fonctionne à merveille...

Bonne soirée

Denys
Publicité
Poster une réponse
Anonyme