AutoFilter et array

Bonjour à tous,

Mon classeur excel se compose d'un tableau. Une colonne de ce tableau comprend des données sous forme de nombres séparés par une virgule (tout est en format texte) :
'1
'41,1,50
'10,1
'1,15

Je voudrais filtrer par vba cette colonne sur une valeur. Dans l'exemple ci-dessus, je veux filtrer sur la valeur 1. J'ai donc écrit ce bout de code mais impossible de le faire marcher :

Code:

---

1 2 3 4

A.Range(A.Cells(1,1), A.Cells(T1, T2)).AutoFilter _ Field:=3, _ Criteria1:=Array("*," & "1","*," & "1" & ",*","1" & ",*","1"), Operator:=xlFilterValues

---

Il ne me retourne que les lignes pour lesquelles il n'y a que la valeur 1 seule (et non par exemple une ligne du type 1,41). Avez-vous une idée ?

Merci !

Bonjour,

une idée, en adaptant ce code à ta situation et en l'intégrant dans un bouton

Code:

---

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

Sub cacher() Dim x As Integer, texte, y, mes As String Range("A1").CurrentRegion.EntireRow.Hidden = False mes = InputBox("valeur a chercher") For x = 1 To Range("a" & Rows.Count).End(xlUp).Row texte = Range("A" & x) For y = 0 To UBound(Split(texte, ",")) If Split(texte, ",")(y) = mes Then Rows(x).EntireRow.Hidden = True End If Next y Next x   End Sub

---

Bonjour,

dans la même veine :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Demo() F$ = InputBox(vbLf & " Filtrer sur ?") If F = "" Then Exit Sub With Feuil1 For R& = 1 To .Cells(1).CurrentRegion.Rows.Count .Rows(R).Hidden = IsError(Application.Match(F, Split(.Cells(R, 1).Value, ","), 0)) Next End With End Sub

---

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, …

Bonjour,

en mettant de côté le fait que les valeurs de ton array sont assez étranges (des valeurs disposent de plusieurs virgules par exemple) .... tu veux filtrer les valeurs "contenant" le caractère "1" c'est ça ?

Code:

---

Range("A1").AutoFilter 3, "*1*"

---

le range est à adapter bien sûr.
testé avec une colonne complète de chiffres au format texte (ajout de caractère ' devant chaque valeur)


si c'est un autre critère que tu veux, je t'invite à mieux le détailler

Merci pour vos réponses !

Marc. L, Casefayere, j'avais fait précédemment une procédure de ce type mais c'est tout de même plus long qu'un autofilter (j'ai beaucoup de lignes !)

Joe.levrai, ce n'ai pas exactement ce que je veux sinon ca serait trop simple ! Dans cette colonne, je recense des numéros des lignes : 1, 2, 4, 10. Si je "*1*", cela me sortira uniquement aussi bien le numéro 1 que le numéro 11 ou 212, ce qui ne fonctionne pas...

Au final, j'ai opté pour un double autofilter qui m'ont donné 2 ranges que j'ai concaténé avec une fonction union.

Merci encore pour votre aide !