Parmi l'information que j'importe d'une feuille Excel,=20
j'=E9limine toutes les lignes qui ne comportent pas la=20
lettre H dans la colonne M. Je voudrais maintenant ajouter=20
la lettre L.=20
Donc j'=E9limine toutes les lignes qui ne comportent pas la=20
lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating =3D False
With .Range("M:M")
.AutoFilter Field:=3D1, Criteria1:=3D"<>H"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
end sub
Quelqu'un saurait quoi faire pour que le crit=E8re soit soit=20
H soit L ???
"Denys" a écrit dans le message news: 00c201c3a946$ba562b00$ Bonjour à tous,
Parmi l'information que j'importe d'une feuille Excel, j'élimine toutes les lignes qui ne comportent pas la lettre H dans la colonne M. Je voudrais maintenant ajouter la lettre L.
Donc j'élimine toutes les lignes qui ne comportent pas la lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating = False With .Range("M:M") .AutoFilter Field:=1, Criteria1:="<>H" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With end sub
Quelqu'un saurait quoi faire pour que le critère soit soit H soit L ???
"Denys" <denys.perreault@rbc.com> a écrit dans le message news:
00c201c3a946$ba562b00$a401280a@phx.gbl...
Bonjour à tous,
Parmi l'information que j'importe d'une feuille Excel,
j'élimine toutes les lignes qui ne comportent pas la
lettre H dans la colonne M. Je voudrais maintenant ajouter
la lettre L.
Donc j'élimine toutes les lignes qui ne comportent pas la
lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating = False
With .Range("M:M")
.AutoFilter Field:=1, Criteria1:="<>H"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
end sub
Quelqu'un saurait quoi faire pour que le critère soit soit
H soit L ???
"Denys" a écrit dans le message news: 00c201c3a946$ba562b00$ Bonjour à tous,
Parmi l'information que j'importe d'une feuille Excel, j'élimine toutes les lignes qui ne comportent pas la lettre H dans la colonne M. Je voudrais maintenant ajouter la lettre L.
Donc j'élimine toutes les lignes qui ne comportent pas la lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating = False With .Range("M:M") .AutoFilter Field:=1, Criteria1:="<>H" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With end sub
Quelqu'un saurait quoi faire pour que le critère soit soit H soit L ???
Merci pour votre temps
Denys
isabelle
Salut Denys,
il faut ajouter l'opérateur "xlAnd" ou "xlOr" .AutoFilter Field:=1, Criteria1:="<>H", Operator:=xlAnd, Criteria2:="<>L"
isabelle
Bonjour à tous,
Parmi l'information que j'importe d'une feuille Excel, j'élimine toutes les lignes qui ne comportent pas la lettre H dans la colonne M. Je voudrais maintenant ajouter la lettre L.
Donc j'élimine toutes les lignes qui ne comportent pas la lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating = False With .Range("M:M") .AutoFilter Field:=1, Criteria1:="<>H" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With end sub
Quelqu'un saurait quoi faire pour que le critère soit soit H soit L ???
Merci pour votre temps
Denys
Salut Denys,
il faut ajouter l'opérateur "xlAnd" ou "xlOr"
.AutoFilter Field:=1, Criteria1:="<>H", Operator:=xlAnd,
Criteria2:="<>L"
isabelle
Bonjour à tous,
Parmi l'information que j'importe d'une feuille Excel,
j'élimine toutes les lignes qui ne comportent pas la
lettre H dans la colonne M. Je voudrais maintenant ajouter
la lettre L.
Donc j'élimine toutes les lignes qui ne comportent pas la
lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating = False
With .Range("M:M")
.AutoFilter Field:=1, Criteria1:="<>H"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
end sub
Quelqu'un saurait quoi faire pour que le critère soit soit
H soit L ???
il faut ajouter l'opérateur "xlAnd" ou "xlOr" .AutoFilter Field:=1, Criteria1:="<>H", Operator:=xlAnd, Criteria2:="<>L"
isabelle
Bonjour à tous,
Parmi l'information que j'importe d'une feuille Excel, j'élimine toutes les lignes qui ne comportent pas la lettre H dans la colonne M. Je voudrais maintenant ajouter la lettre L.
Donc j'élimine toutes les lignes qui ne comportent pas la lettre H ou L dans la colonne M.
Voici le code:
Sub eliminate()
Application.ScreenUpdating = False With .Range("M:M") .AutoFilter Field:=1, Criteria1:="<>H" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With end sub
Quelqu'un saurait quoi faire pour que le critère soit soit H soit L ???
Merci pour votre temps
Denys
Denys
Bonjour Isabelle et Hervé,
Merci beaucoup pour votre réponse.... Très gentil de votre part...
Bonne soirée
Denys
Bonjour Isabelle et Hervé,
Merci beaucoup pour votre réponse.... Très gentil de
votre part...
