Filtrer une colonne de nombres entiers particuliers

Bonjour,

Dans une zone filtrée, j'ai une colonne de nombres entiers que je souhaite filtrer selon une liste.

Problème: ces nombres ne se suivent pas selon une logique particulière, si bien que les critères usuels (>, <, etc.) ne sont d'aucune utilité.

J'ai pensé convertir ces nombres en texte pour pouvoir utiliser un filtre textuel:

Code:

---

MonRange.AutoFilter 1, Str, xlFilterValues

---

avec Str = "435, 467, 535, 768, etc." par exemple.

Mais même formatée en texte, la colonne n'accepte qu'un filtre numérique... sans doute parce que la colonne ne contient que des nombres...

Est-ce qu'il y a une solution?

Merci d'avance

Bonjour

C'est un peu flou mais a priori cela relève du filtre avancé et non du filtre auto

https://philippetulliez.developpez.c...dvancedfilter/

Salut.

Peut-être ajouter une colonne supplémentaire formulée. Avec les nombres particuliers dans une table annexe, un simple NB.SI.ENS(...)=1 renverrait VRAI pour les nombres choisis et tu pourrais filtrer sur cette colonne.

C'est une solution Excel, mais exploitable en VBA si besoin.

Citation:

---

Envoyé par 78chris

Bonjour

C'est un peu flou mais a priori cela relève du filtre avancé et non du filtre auto

https://philippetulliez.developpez.c...dvancedfilter/

---

Merci. J'avais exploré les filtres avancés, mais n'y avais pas trouvé de réponse.

Citation:

---

Envoyé par Pierre Fauconnier

Salut.

Peut-être ajouter une colonne supplémentaire formulée. Avec les nombres particuliers dans une table annexe, un simple NB.SI.ENS(...)=1 renverrait VRAI pour les nombres choisis et tu pourrais filtrer sur cette colonne.

C'est une solution Excel, mais exploitable en VBA si besoin.

---

Hello,

C'est bon ça !

Entre temps, j'ai trouvé une solution en testant chaque cellule de la colonne avec Like, puis en cachant la ligne si le nombre n'y est pas.
C'est très assez lent, même avec Application.ScreenUpdating = False.

Je vais explorer ta solution, qui a le mérite d'être rapide, quitte à supprimer la colonne quand je n'en ai plus besoin.

Merci et bonne soirée

Re

Si le filtre avancé marcherait et serait très rapide surtout par rapport à une boucle de masquage ou même une colonne de NB.SI surtout si le nombre de ligne est important.

la liste de critères peut être créée en début de macro et effacée à la fin...

Bonjour, c'est pas clair pour moi. Voyons donc si j'ai tout bien compris? :weird:
Vous voudriez filtrer dans une liste une série de nombre entier sans aucune logique de filtrage autre que des chiffres entrés d'une manière ou d'une autre.
En ce qui me concerne, je pencherais pour une extraction de données d'après un filtre élaboré suivant la série de critères que vous avez déterminé avec une fonction OU
Voir document ci-joint extrait du tutorom de Philippe Tulliez
Pièce jointe 500492

Le principe consistant pour une fonction OU a mettre les chiffres l'un au dessous de l'autre dans la colonne du critère considéré. dans l'exemple colonne G. attention, dans l'exemple ayant aussi un critère Et la colonne B etC n'ont pas de raisons d'être dans votre cas. A moins que vous ne nous ayez pas tout raconté? :D

Cordialement 8-)

bonjour
l'autofilter accepte les array avec item en string (guillemets)

Code:

---

1 2 3 4 5

Sub test() Dim arr arr = Array("435", "467", "535", "768") ActiveSheet.Range("B3:B20").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues end sub

---

un seul petit problème les items sont en string (guillemet!!!!)
second problème l'array est hardcodé

j'ai donc tenté de mettre cet array dans une colonne en E3:E6 et de le convertir mais rien y fait
ca ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim arr2, stringarray$ arr2 = Application.Transpose([E3:E6]) stringarray = """""" & Join(arr2, """""" & "," & """""") & Chr(34) & Chr(34) arr2 = Split(stringarray, ",") Debug.Print stringarray ActiveSheet.Range("B3:B20").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues End Sub

---

peut etre que quelqu'un sait convertir les item pour qu'il soient pris en string

Bonjour, voila ci-dessous une possibilité démontrée sous réserve de bonne compréhension de ma part
Pièce jointe 500553
Si j'entre en colonne F des valeurs correspondantes à certaines de la colonne A, je lance une extraction par filtre élaborés sur la base ("A1:B13") avec en zone de critéres ("F1:F6") et zone d'extraction ("I1:J1")
et voila l'extraction.
Si ça vous convient, vous n'avez plus qu'a l'adapter à votre problème :D

Cordialement 8-)

Citation:

---

Envoyé par patricktoulon

[...]
peut etre que quelqu'un sait convertir les item pour qu'il soient pris en string

---

La solution fonctionne avec un array, mais il faut qu'Excel considère les valeurs à trier comme étant des valeurs textuelles. Dans ce cas, il affichera les filtres textuels au lieu des filtres numériques...

Pièce jointe 500662

Pièce jointe 500665

Pièce jointe 500666

Code:

---

1 2 3 4 5

Sub test() Dim t t = Application.Transpose(Range("tableau2").Value) Range("tableau4").AutoFilter field:=1, Criteria1:=t, Operator:=xlFilterValues End Sub

---

Pour que cela fonctionne, il faut:

• soit que les valeurs aient été saisies dans des cellules formatées Texte (modifier le format des cellules a posteriori ne modifie pas le filtre de numérique à textuel);
• soit que les valeurs aient été converties en valeurs textuelles (en Excel ou en VBA);
• soit saisies préfixées de '.

bonjour Pierre
j'étais occupé hier pour revenir mais j'avais trouvé c'est un autre problème en vba que je travaillais hier qui m'a mi la puce a l'oreille

si tu me permet je te propose de laisser les choses telles qu'elle sont a savoir la colonnes a filtrer en numérique

mais de transformer la variable plage de référence en array

teste ceci avec des valeurs numérique sans formater en texte tes cellules laisse les en standard ou numérique
c'est tout bête
alors je sais pas si c'est orthodoxe mais ca match ;)

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim arr2, stringarray$ arr2 = Application.Transpose([E1:E4])'numero a garder arraystring = "=" & Replace(Join(arr2, ","), ",", ",=") Debug.Print arraystring arr2 = Split(arraystring, ",") ActiveSheet.Range("B1:B100").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues End Sub

---

Pièce jointe 500670
on pourrait des l'ors se faire une petite fonction dans le xlb ou xla ou classeur concerné
et voila

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Sub testX() Dim arr2 arr2 = Application.Transpose([E1:E4].Value) arr2 = ValideNumericArrayForFilter(arr2) ActiveSheet.Range("B1:B100").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues End Sub ' Function ValideNumericArrayForFilter(arr) Dim stringarray$ arraystring = "=" & Replace(Join(arr, ","), ",", ",=") ValideNumericArrayForFilter = Split(arraystring, ",") End Function

---

les items sont considérés par vba comme du string puisque c'est le résultat du split(join....)

je precise
que les choses soient claires le symbole "=" n'est pas obligatoire je le met pour l'aide a la compréhension

Citation:

---

Envoyé par Transitoire

En ce qui me concerne, je pencherais pour une extraction de données d'après un filtre élaboré suivant la série de critères que vous avez déterminé avec une fonction OU

---

Comme indiqué dans ma question, la liste de nombres ne suit aucune logique, à part qu'ils sont dans un ordre croissant, donc pas de critère applicable... :?
(à part = à chacun d'eux, peut-être...)

Citation:

---

Envoyé par 78chris

la liste de critères peut être créée en début de macro et effacée à la fin...

---

Pas sûr de comprendre l'idée que tu avais en tête.

Citation:

---

Envoyé par Pierre Fauconnier

Pour que cela fonctionne, il faut:

• soit que les valeurs aient été saisies dans des cellules formatées Texte (modifier le format des cellules a posteriori ne modifie pas le filtre de numérique à textuel);
• soit que les valeurs aient été converties en valeurs textuelles (en Excel ou en VBA);
• soit saisies préfixées de '.

---

Je n'ai pas essayé, mais merci.

Citation:

---

Envoyé par patricktoulon

bonjour Pierre
j'étais occupé hier pour revenir mais j'avais trouvé c'est un autre problème en vba que je travaillais hier qui m'a mi la puce a l'oreille

si tu me permet je te propose de laisser les choses telles qu'elle sont a savoir la colonnes a filtrer en numérique

mais de transformer la variable plage de référence en array

---

Magnigique!!!
(lapsus involontaire laissé: contraction entre "Magnifique" et "Magique")

Ça fonctionne très bien. C'est l'équivalent d'une sélection manuelle de chacun des nombres.

En effet, le signe "=" n'est pas nécessaire.

Un grand merci !!! :D