[VBA-E]autofilter criteria "commence par"

Grâce à Ousk j'ai découvert les autofilters en VB mais je n'ai pas trouvé dans l'aide comment appliquer un critère "commence par" ...
doit on utiliser les opérateurs > et >= ? ou existe-t-il des jokers ?

Oups ! J'ai bien peur que ça n'existe pas.
Auquel cas, tu vas devoir passer en revue toutes tes lignes
Tu as plusieurs méthodes, de mon côté, j'utilise celle-ci

Code:

---

1 2 3 4 5 6 7 8 9 10

DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row set Plage = Range("A1:A" & DerniereLigne) For each Cell in plage If Left(Cells(Cell.row,NoCol),5) = "Coucou " then if Left(Cells(Cell.row,NoCol+1),7) = "c'est " then ok = Left(Cells(Cell.row,NoCol+2),5) = "moi !" endif endif if ok then ... tu fais ce que tu as à faire Next

---

Juste pour le principe.
Dans ton cas précis, je n'utiliserais pas Find, sans doute beaucoup plus rapide, mais, comme tu cherches un bout de cellule, il pourra trouver toutes les cellules contenant ce bout et non le critère "commence par"
A+

je trouve dans un bout de mes codes sources ça

Code:

---

1 2	Selection.AutoFilter field:=COLPrName, Criteria1:="=" & CStr(IdClp) & "-*", Operator:=xlAnd Selection.AutoFilter field:=11, Criteria1:="<>0", Operator:=xlAnd

---

je pense que tu peux présenter une critère "start with" par "= machin*".
C juste une idée pour toi, j'ai pas testé.

ça existe ça 54 ans ???
bidou rassures moi tu n'as pas pris ou coup de vieux comme ça depuis que je suis parti du forum VB ...


ben pourtant "AA" est supérieur à "A"

donc un truc du genre

>"A" et <"AB" devrait être équivalent à commence par "A" non ?

le souci c'est que je ne vois pas trop comment l'implémenter en code


Non je dis ça parcequ'une boucle sur autant de lignes ... j'aurais 54 ans quand je pourrais lire le resultat ...

J'avais oublié la possibilité indiquée par tangjuncn :oops:
En effet, tu peux indiquer tes critères en les faisant précéder de conditions.
Tu dois séparer ton signe ">" de la condition et le mettre entre guillemets.
">" & "A" et "<" & "AB" comme l'a écrit tangjuncn
...
NB - C'est pas de Bidou dont je parlais :mouarf:

cela m'ouvre donc la possibilité de créer un joker pour mes critères de recherche ...
par exemple si dasn ma zone de critère je tape:
"AZER*"

ma chaine de critères deviendrait :
">" & "AZER" et "<" & "AZERA"

avec une conversion en lower case et un split je devrais m'en sortir ...

C'est très ressemblant ;)

bon ben me reste plaus qu'a me jeter à corps perdu dans le code ...

merci les gars ;)

Bon courage et reviens plus souvent, je crois me souvenir que tu as toujours des questions intéressantes... Mais qu'est devenu ogenki ? On le voit plus...

c'est vrai odge a disparu de la circulation.. on ne le voit même plus sur le chat ...
je 'nai pas de nouvelle pour ma part :(

Je viens de le retrouver, il est sur Linux :mouarf:

[edit]Oups erreur de forum ...[/edit]

Odge dans linux, il va surement regretter access :aie:

Le monde Opensource est intéressant aussi :)
Avant j''étais ds le monde Java et maintenant VBA, on change de monde en fct de boulot :bug:

Désolé les gars, mais fonction oblige, je vais être obligé d'interrompre cette intéressante conversation et nettoyer depuis le post 9
A+