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...
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
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
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" <denys.perreault@rbc.com> a écrit dans le message de news:
19454ff4-4d59-4b9b-97c6-32a05c81a28a@w1g2000prk.googlegroups.com...
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...
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...
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...
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...
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...