Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Différent de.....

Différent de.....

2 réponses
Avatar
Denys
Bonjour à tous,

Dans la macro suivante, je voudrais qu'Excel élimine tout ce qui n'est pas
égal à "Financial Adjustment"..... Seulement, si j'écris:

.AutoFilter field:=1, Criteria1:<>"Financial Adjustment" Excel ne
veut pas procéder..... Sauriez-vous quoi faire?

Merci (la macro suit)


Sub EliminerRaisons()
With Worksheets("Data")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter field:=1, Criteria1:="Financial Adjustment"
.Range("_FilterDatabase").Offset(1).SpecialCells(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub


Denys
Signaler un problème avec ce contenu

2 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
Denys
OOOOOOpppsssssssssss!!!!

J'ai trouvé.....

.AutoFilter field:=1, Criteria1:"<>Financial Adjustment"

Fallait y penser !!!!

Denys


Bonjour à tous,

Dans la macro suivante, je voudrais qu'Excel élimine tout ce qui n'est pas
égal à "Financial Adjustment"..... Seulement, si j'écris:

.AutoFilter field:=1, Criteria1:<>"Financial Adjustment" Excel ne
veut pas procéder..... Sauriez-vous quoi faire?

Merci (la macro suit)


Sub EliminerRaisons()
With Worksheets("Data")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter field:=1, Criteria1:="Financial Adjustment"
.Range("_FilterDatabase").Offset(1).SpecialCells(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub


Denys


Avatar
Daniel
Bonjour.
Mets :
.AutoFilter field:=1, Criteria1:="<>Financial Adjustment"
Cordialement.
Daniel
"Denys" a écrit dans le message de news:

Bonjour à tous,

Dans la macro suivante, je voudrais qu'Excel élimine tout ce qui n'est pas
égal à "Financial Adjustment"..... Seulement, si j'écris:

.AutoFilter field:=1, Criteria1:<>"Financial Adjustment" Excel ne
veut pas procéder..... Sauriez-vous quoi faire?

Merci (la macro suit)


Sub EliminerRaisons()
With Worksheets("Data")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter field:=1, Criteria1:="Financial Adjustment"
.Range("_FilterDatabase").Offset(1).SpecialCells(xlCellTypeVisible)
_
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub


Denys