sens de string1 > string2 en vba, cohérence avec le tri excel

Bonjour! Voici une question épineuse ...
Au sein d'une macro, j'ai besoin de rechercher une chaîne de caractère parmi une longue liste de chaînes qui sont en colonne dans le classeur.
Par exemple, j'ai en colonne A tous les prénoms de mes collègues (1000 noms) et je cherche la ligne où apparait Robert.
Me souvenant de mes vieux cours d'info, je me tente un "diviser pour régner" :
1) Je trie la colonne A par ordre croissant
2) Je regarde à la moitié, ligne 500. Je tombe sur Laurent
3) Robert > Laurent dans l'ordre alphabétique donc je recommence en me concentrant sur les lignes 501 à 1000, ceci avec une fonction par récurrence.
Problème, une comparaison "If string1 > string2 ..." ne donne pas le même ordre que le tri "Selection.Sort" dans quelques cas particuliers.
Si je trie par ordre croissant:
Oi
Oa
O-Z
J'obtiens
Oa
Oi
O-Z
Pourtant, si string1="Oa" et string2="O-Z" alors string1 > string2.
En fait, la règle de tri par ordre alphabétique n'est pas cohérente entre les deux méthodes et de ce fait, ma méthode de recherche échoue pour toutes les chaînes incorporant des tirets (et je suppose que je vais découvrir d'autres exceptions).
Alors, que faire ?

Tu fais un EQUIV qui te renverra le N° d'index de la ligne contenant la valeur cherchée...

Bonjour

Pourquoi t'embêter à faire une recherche de ce type alors qu'Excel offre pleins de possibilités de recherches qui seront plus rapides que la tienne.

Comme le dit Maxence :coucou: tu as la fonction Equiv ou aussi la fonction Find, en résumant Excel offre des possibilités sans ce type de boucles.

Philippe

Je ne le faisais pas parceque mes valeurs sont préalablement groupées dans une variable tableau, donc je fais la recherche au sein de cette variable tableau plutôt que dans le classeur (je ne l'avais pas précisé).
Je me disais que ça aurait le double avantage d'une rapidité accrue et d'éviter le clignotement de l'écran quand Excel navigue très vite d'une ligne à l'autre au cours des recherches.
Cela dit, la nuit m'ayant porté conseil, et vos réponses m'ayant ouvert les yeux sur une toute autre approche ;), je me dis que ça n'en vaut pas la peine vu les complications et que je ferais mieux de m'en tenir à un EQUIV dans le classeur !
Merci !

Un test par macro

Code:

---

1 2 3 4 5 6 7 8 9 10

sub test() dim c as range   application.screenupdating=false 'inhiber le rafraichissement ecran, pas nécessaire pour ce ptit test mais pour répondre à l'une de tes question set c=sheets("feuil1").range("A:A").find("Robert", lookat:=xlpart) if not c is nothing then msgbox "Premier Robert trouvé à la cellule A" & c.row set c=nothing endif end sub

---

Citation:

---

Envoyé par gxrald

'éviter le clignotement de l'écran quand Excel navigue très vite d'une ligne à l'autre au cours des recherches.
!

---

voir à :

Code:

---

Application.ScreenUpdating = False / True

---

cordialement,

Didier

Oui j'ai vu ça dans le code de mercatog et c'est bien pratique !

J'ai un cas qui pose problème avec la méthode find ...
les cellules qui contiennent des ~ ne sont jamais trouvées! C'est vrai que c'est un caractère exotique mais bon j'ai ça dans ma liste ...
J'ai fait le test directement dans Excel, en entrant test~bizarre, puis control F et je cherche exactement le même texte... Excel ne le trouve pas, et ma fonction find non plus.

Fais la recherche sur test?bizarre

Bonjour.


Je reviens à ta question initiale,

Citation:

---

Envoyé par gxrald

Pourtant, si string1="Oa" et string2="O-Z" alors string1 > string2.
En fait, la règle de tri par ordre alphabétique n'est pas cohérente entre les deux méthodes ...

---

Au début du module qui contient le code qui fait les comparaisons, tu places

Code:

---

Option Compare Text

---

et les comparaisons string1, string2 devraient devenir cohérentes avec l'ordre de tri dans la feuille Excel.

Cordialement,

PGZ

Mercatog : exact, pour trouver "test~bizarre" il faut chercher "test?bizarre". Ça ne s'invente pas !
pgz : Pour l'instant j'ai changé mon fusil d'épaule et m'appuie sur la fonction find, mais c'est bon à savoir. Merci !

Pour info il y a un autre comportement particulier, avec les chaines de caractère qui commencent par '
Mais en traitant ce cas à part, ça m'a l'air bon maintenant ! :ccool:
Merci !