Bonjour j'ai un petit soucis pour compléter mon code.
J'aimerais réaliser un test qui détecte un écart de '1' entre deux valeurs de ma colonne, voici un exemple concret
Si l'utilisateur rentre un seuil de 1%, seul les valeurs ayant un écart de 1 seront conservé et ayant un seuil supérieur à l'intensité et ayant une précision de + ou - "precision".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Donnée Intensité 2 4 4 100 8 2 9 3 10 4 11 5 22 1
Les données deviendront:
Si l'utilisateur rentre un seuil de 6%, seul les valeurs ayant un écart de 1 seront conservé et ayant un seuil supérieur à l'intensité et ayant une précision de + ou - "precision".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 8 2 A 9 3 A+1 10 4 A+2 11 5 A+3
Les données deviendront:
Voici mon début de code que je n'arrive pas à compléter (je suis néophyte...)
Code : Sélectionner tout - Visualiser dans une fenêtre à part (vide)
Merci par avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Dim i As Integer Dim addition as double dim derniereligne as integer dim precision as double dim n as double dim seuil as integer dim intensite as double derniereligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row '- 2 addition=1 precision=(n*addition)/100 intensite=Sheets("Feuil").Cells(j,4) seuil=val(UserForm1.TextBox5.Value) for i=2 to derniereligne n=textbox1.value if cells(i,1).value+addition<cells(i+1,1).value+precision and cells(i,1).value+addition>cells(i+1,1).value-precision then stocker les données else if continuer end if For j = i + 1 To derniereligne If intensite >= seuil Then garder la valeur else supprimer la valeur next j next i
Partager