Discussion :

[SpaceFrog]

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 ?

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[tangjuncn]

je trouve dans un bout de mes codes sources ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SpaceFrog]

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

[ouskel'n'or]

J'avais oublié la possibilité indiquée par tangjuncn
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

[SpaceFrog]

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

[ouskel'n'or]

C'est très ressemblant

[SpaceFrog]

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

merci les gars

[ouskel'n'or]

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

[SpaceFrog]

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

[ouskel'n'or]

Je viens de le retrouver, il est sur Linux

[SpaceFrog]

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

Odge dans linux, il va surement regretter access

[tangjuncn]

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

[ouskel'n'or]

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