macro suppression valeurs cellules

[AJV1962]

Bonjour
Suite au retour des experts ici présent j'ai mis en place une macro qui supprime des valeurs des cellules dès qu'il n'est pas identique à la cellule au dessus. Maintenant je souhait appliquer une tolérance de +/- 5. Comment je peux appliquer une telle tolérance dans la macro suivant ?
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Cells(i, 2).ClearContents
Next i
Merci par avance

 

[Robert]

Re : macro suppression valeurs cellules

Bonjour AJV, bonjour le forum,

Si j'ai bien compris peut-être comme ça :

If Cells(i, 2).Value >= Cells(i - 1, 2).Value - 5 _
    Or Cells(i, 2).Value <= Cells(i - 1, 2).Value + 5 Then
        Cells(i, 2).ClearContents
End If

Édition :

Salut PierrJean

 

[pierrejean]

Re : macro suppression valeurs cellules

bonjour AJV1962

A tester:

For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value >= Cells(i - 1, 2).Value *0.95 and Cells(i, 2).Value <= Cells(i - 1, 2).Value *1.05 Then Cells(i, 2).ClearContents
Next i

Edit: Bing Salut Robert

Arf :j'avais compris + ou - 5%

For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value >= Cells(i - 1, 2).Value -5 and Cells(i, 2).Value <= Cells(i - 1, 2).Value +5 Then Cells(i, 2).ClearContents
Next i

 

[job75]

Re : macro suppression valeurs cellules

Bonjour AJV1962, salut Robert et pierrejean,

Si j'ai bien compris "tolérance" :

If Abs(Cells(i, 2) - Cells(i - 1, 2)) < 5 Then Cells(i, 2).ClearContents

Et s'il s'agit d'un pourcentage :

If Abs(Cells(i, 2) - Cells(i - 1, 2)) < Abs(Cells(i - 1, 2)) * 0.05 Then Cells(i, 2).ClearContents

A+

 

[AJV1962]

Re : macro suppression valeurs cellules

Bonjour
merci de votre réponse, je pense que je suis sur la bonne route. Par contre je ne connais rien au niveau le syntaxe des macros. Qaund je fait la macro suivant il s'arrete...
Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 4).Value >= Cells(i - 1, 4).Value - 5 And Cells(i, 4).Value <= Cells(i - 1, 4).Value + 5 Then Cells(i, 4).ClearContents
Next i
End Sub

 

[pierrejean]

Re : macro suppression valeurs cellules

Re
La macro precedente fonctionnait-elle ?
Un petit fichier exemple sans données confidentielles serait le bienvenu !!!

 

[AJV1962]

Re : macro suppression valeurs cellules

Re bonjour

Merci pour votre temps, oui meme le macro seul dans le fichier s'arrete.
Erreur d'exécution'13':
Incompatibilité de type

Voici le fichier

Merci

 

[pierrejean]

Re : macro suppression valeurs cellules

Re

la macro fonctionne mais se bloque sur la ligne 2 car en B1: Cells(2-1,2) ce n'est pas un chiffre

Modif a faire

Sub Macro1()
For i = Range("A65536").End(xlUp).Row To [COLOR=red]3[/COLOR] Step -1
If Cells(i, 2).Value >= Cells(i - 1, 2).Value - 5 And Cells(i, 2).Value <= Cells(i - 1, 2).Value + 5 Then Cells(i, 2).ClearContents
Next i
End Sub

 

[AJV1962]

Re : macro suppression valeurs cellules

Merci beaucoup

Bonne journée

 

[AJV1962]

Re : macro suppression valeurs cellules

Bonjour
Après avoir tester le macro, qui marche impeccable, je me suis rends du compte que le résultat n'est pas toujours le bon.
Finallement je pense qu'il faut imbriquer la fonction MAX.
Dans la colonne A j'ai les vendeurs, dans la colonne B les montants. Je souhaite obtenir dans la colonne B la valeur max, mais seulement 1 fois, sans doublons. Cf fichier (onglet données départ et onglet résultat souhaité)
Merci d'avance de votre aide