XL 2016 Supprimer des valeurs comprises entre deux valeurs sur Excel

[Nicolasz]

Bonjour à toutes et tous,

Je travaille sur Excel. Mon problème est que dans une même colonne j'ai la température comprise entre 40.1 °C et 54,7 °C et un courant qui varie de 140 A à 150 A.
J'aimerai simplement supprimer dans cette colonne les valeurs comprises entre 40.1 °C et 54.7 °C afin de n'avoir dans cette colonne plus que mon courant.

Je vous remercie par avance pour vos réponses.

 

[mapomme]

Bonjour @Nicolasz, bienvenue sur XLD

N'avez vous pas la vague impression qu'il manque quelque chose à votre question ?

Devinez quoi ?

indice: ça commence comme le figuier et ça se termine comme le pistachier...

 

[Nicolasz]

Bonjour Mapomme,

il manque le fichier en effet c'est confidentiel :/

 

[Nicolasz]

à la rigueur je peux faire un screen pour montrer la valeur qui me dérange
@mapomme

 

[Nicolasz]

Donc le 40.5 colonne D vient se glisser une ligne sur deux avec le 170 et je souhaiterais enlever ces valeurs pour pouvoir ensuite faire une moyenne de mon courant ...

 

[Nicolasz]

J'ai plus de 1561 valeurs donc manuellement ça prendrait bcp de temps et par ailleurs j'ai 65 fichiers à analyser comme ça donc je préférerais faire une macro que je peux recopier dans tous ces fichiers
Sinon réorganiser toutes les valeurs pour avoir chaque valeur dans une colonne différente mais trop long une fois encore

 

[mapomme]

il manque le fichier en effet c'est confidentiel :/

Non pas de capture d'écran (c'est ce que signifie "screen", je suppose).
Les répondeurs du forum n'ont que faire d'une image.

En tant que demandeur, vous nous faites un petit fichier anonymisé qui présente d'où on part et d'autre part où on veut arriver et dont la structure est semblable à celle du fichier d'origine.
Tant qu'on y est, dites nous si vous le voulez par formule, VBA ou Power Query.

Sinon, une piste à la vue de votre capture d'écran:
Les lignes avec le courant contiennent le mot IonGun:. et il y a des fonctions Excel du type xxx.SI dont MOYENNE.SI(...)

 

[Nicolasz]

@mapomme je vais voir ce que je peux faire

j'ai commencé à faire une macro telle que :

Sub supprimer ()

Dim ws_data As Worksheet

Dim lstrw As Long, rwnum As Long

Dim valeur As Variant



Set ws_data = Worsheets(1)

Lstrw = ws_data.cells(Rows.Count, 1).End(xlUp).Row

For rwnum = lstrw To 2 Step -1

valeur = ws_data.Cells(rwnum, 2).Value

If valeur = 40 Or valeur = “” Then

ws_data.Cells(rwnum, 1).EntireRow.Delete

End If

Next

MsgBox (“La suppression est faite”)

End Sub

Mais ça me supprimer qu'une seule valeur alors que j'ai de 40.1 à 54.7 à enlever

 

[Nicolasz]

J'ai donc essayé de faire des bornes et supprimer les valeurs qui sont dans ces bornes telle que :
Sub Suppensemble()

Sub EntireRow()

For i = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1

If Cells(i, 2) <= 40.1 And Cells(i, 2) >= 54.7 Then

Cells(i, 1).EntireRow.Delete

End If

Next i

End Sub
@mapomme

 

[Nicolasz]

@mapomme
Je ne connais pas la différence entre VBA ou Power Query

Concernant Ion Gun: ça n'impacte pas mes calculs de moyennes car ce ne sont pas des valeurs. Donc je peux calculer aisément les valeurs qui sont entre les ion gun.

 

[mapomme]

J'ai donc essayé de faire des bornes et supprimer les valeurs qui sont dans ces bornes telle que :

Re,

Et quel est le problème ?

A vue de nez, la macro semble correcte...

 

[Nicolasz]

La première macro est correcte cependant elle n'enlève qu'une seule valeur par une valeur donc trop long car il faut la modifier à plusieurs reprises.
La seconde macro ne marche pas car lorsque je la lance les valeurs comprises entre 40.1 et 54.7 comprises dans la colonne D ne s'effacent pas...
@mapomme

 

[mapomme]

Concernant Ion Gun: ça n'impacte pas mes calculs de moyennes car ce ne sont pas des valeurs. Donc je peux calculer aisément les valeurs qui sont entre les ion gun.

Je parlais de la fonction Moyenne.SI.

A l'aveugle :

=MOYENNE.SI(C:C;"*IonGun*";D:D)

devrait pour le calcul de la moyenne, ne retenir que les valeurs de D avec la valeur en C qui contient IonGun"

 

[mapomme]

If Cells(i, 2) <= 40.1 And Cells(i, 2) >= 54.7 Then

Donc la valeur doit être inférieure à 40,1 tout en étant supérieure à 54,7.
Cela relève de l'impossible, il faut revoir votre condition

 

[Nicolasz]

@mapomme je suis en train de vous faire un fichier excel dont j'ai l'autorisation de vous transmettre