Bonjour à tous,
Je découvre les boucles et votre forum et j'aurai besoin d'un petit coup de main...
Es-ce que quelqu'un pourrait m'aider à solutionner le problème suivant :
Je souhaite effectuer la macro ci-dessous jusqu'à temps que le nombre de résultat soit à 0 sachant que "[Y3].Value" est la moyenne de la colonne Y + 2 EcarType. Le but de cette macro est de supprimer les valeurs aberrantes.
Cells.Find(What:="Colonne Y", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
ActiveCell.AutoFilter Field:=25, Criteria1:=">" & [Y3].Value, Operator:=xlAnd
Range("Y6:Y100000").Select
Selection.ClearContents
Merci de votre aide.
Cordialement
Je découvre les boucles et votre forum et j'aurai besoin d'un petit coup de main...
Es-ce que quelqu'un pourrait m'aider à solutionner le problème suivant :
Je souhaite effectuer la macro ci-dessous jusqu'à temps que le nombre de résultat soit à 0 sachant que "[Y3].Value" est la moyenne de la colonne Y + 2 EcarType. Le but de cette macro est de supprimer les valeurs aberrantes.
Cells.Find(What:="Colonne Y", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
ActiveCell.AutoFilter Field:=25, Criteria1:=">" & [Y3].Value, Operator:=xlAnd
Range("Y6:Y100000").Select
Selection.ClearContents
Merci de votre aide.
Cordialement
