rafspain77
XLDnaute Nouveau
Bonjour à toutes et à tous,
Alors grâce à vous j'ai enfin un projet propre qui ressemble à peu près à ce que je voulais.
Mais pour l'améliorer, j'essaye de filtrer mes valeurs pour supprimer les "erreurs" qui sont venu se glisser dans mes données.
En fait mon filtre consiterai à faire en sorte que mes cellules aient une différence de 20 avec la cellule précedente et la suivante.
Et actuellement je n'ai vraiment pas d'idée, même juste la syntaxe pour commencer.
Je ne sais pas comment écrire cela en vba.
J'ai tenté un code avec des If et ElseIf mais c'est pas concluant.
Merci pour votre aide.
Alors grâce à vous j'ai enfin un projet propre qui ressemble à peu près à ce que je voulais.
Mais pour l'améliorer, j'essaye de filtrer mes valeurs pour supprimer les "erreurs" qui sont venu se glisser dans mes données.
En fait mon filtre consiterai à faire en sorte que mes cellules aient une différence de 20 avec la cellule précedente et la suivante.
Et actuellement je n'ai vraiment pas d'idée, même juste la syntaxe pour commencer.
Je ne sais pas comment écrire cela en vba.
J'ai tenté un code avec des If et ElseIf mais c'est pas concluant.
Code:
Sub filtre()
'
' filtre Macro
' Macro enregistrée le 23/11/2011'
Dim cell As Range
For Each cell In Range("B2:B30")
If cell + 20 > cell.Offset(1, 0) Then
ElseIf cell - 20 < cell.Offset(1, 0) Then
ElseIf cell + 20 > cell.Offset(-1, 0) Then
ElseIf cell - 20 < cell.Offset(-1, 0) Then
Else
cell.Offset(0, 1) = cell.Value
End If
Next
'
End Sub