Discussion :

[gxrald]

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 ?

[Maxence HUBICHE]

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

[Invité]

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 tu as la fonction Equiv ou aussi la fonction Find, en résumant Excel offre des possibilités sans ce type de boucles.

Philippe

[gxrald]

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 !

[mercatog]

Un test par macro

Code :

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

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

[Didier Gonard]

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

voir à :

Code :

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

Application.ScreenUpdating = False / True

cordialement,

Didier

[gxrald]

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.

[pgz]

Bonjour.


Je reviens à ta question initiale,

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 :

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

Option Compare Text

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

Cordialement,

PGZ

[gxrald]

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 !

[gxrald]

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 !
Merci !