XL 2016 Supprimer des valeurs comprises entre deux valeurs sur Excel

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2022

• #2

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...

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #3

Bonjour Mapomme,

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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #4

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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #5

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 ...

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #6

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2022

• #7

Nicolasz à dit:

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

Cliquez pour agrandir...

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(...)

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #8

@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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #9

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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #10

@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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2022

• #11

Nicolasz à dit:

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

Cliquez pour agrandir...

Re,

Et quel est le problème ?

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

 

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #12

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2022

• #13

Nicolasz à dit:

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.

Cliquez pour agrandir...

Je parlais de la fonction Moyenne.SI.

A l'aveugle :

Code:

=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"

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Octobre 2022

• #14

Nicolasz à dit:

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

Cliquez pour agrandir...

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

 

Dernière édition: 13 Octobre 2022

Vote positif 0 Vote négatif

N

Nicolasz

XLDnaute Nouveau

• 13 Octobre 2022

• #15

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

 

Vote positif 0 Vote négatif