[VBA-E]Problème avec la fonction Find

Version imprimable

25/04/2006, 18h06
Mirx1

[VBA-E]Problème avec la fonction Find

Re-bonjour !

Je rencontre un p'tit problème avec Find .... Voilà la situation :
J'ai un tableau avec de multiples colonnes dont une "Date" et une "Pays". (Ce tableau est rempli par quelques 10 000 lignes.) Pour un ligne donnée, je me sers du champ "Date" pour obtenir une adresse de cellule dans un autre tableau comportant lui aussi une catégorie "Date", de même avec "Pays".

Tout marche bien pour la recherche sur les dates avec Find : (je tape de mémoire ... mais ça doit être ça)

Code:

Set CellDate = Range("....").Find(date)

Je fais pareil avec les pays

Code:

Set CellPays = Range("....").Find(pays)

Et là ça marche pas .... Aucun résultat trouvé. Alors que la recherche devrait en trouver ! Un problème avec les formats de cellule ?
25/04/2006, 20h03
Mirx1

up ....
25/04/2006, 20h18
SfJ5Rpw8

cela vient peu être des .... ( ou des caractéres qu'ils remplace ) ...
25/04/2006, 22h37
Mirx1

Citation:

Envoyé par bbil

cela vient peu être des .... ( ou des caractéres qu'ils remplace ) ...

Les "..." remplacent des plages que j'ai oublié :) Mais j'ai essayé en remplaçant tous les pays par des chiffres et ça marche ....
25/04/2006, 22h49
Vesta

Plus probable que ce soit un probleme de range ou de variable Pays...
25/04/2006, 22h52
Mirx1

Citation:

Envoyé par Vesta

Plus probable que ce soit un probleme de range ou de variable Pays...

de range non : l'essai fait sur la même plage mais en changeant les données à rechercher fonctionne.
de variable peut-être .... en recherchant un chiffre ça marche. Mais en recherchant directement du texte "Maroc" (au lieu de Maroc contenu dans Pays) ça marche pas
25/04/2006, 22h57
Vesta
Je viens de tester ca :

12 fae fzz efzeaf 1332 AR3 faez 1234 afezf AZ Maroc zef aezf af aze zef
Code:

1 2 Set CellChiffre = Range("A1:D4").Find(1234) Set CellPays = Range("A1:D4").Find("Maroc")
et ca marche...
25/04/2006, 23h01
Mirx1
et si tu fais :
Code:

1 2 pays = "Maroc" Set CellPays = Range("A1:D4").Find(pays)
?

en fait vais tester j'ai excel ici aussi .... :roll:
25/04/2006, 23h04
SfJ5Rpw8
realise tu? d'autre recherche manuelle ... ou par code VBA dans ton classeur ...voir aide en ligne excel :

Citation:

Envoyé par Aide en ligne Find..

Remarques
Les paramètres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistrés chaque fois que vous utilisez cette méthode. Si vous ne spécifiez aucun paramètre pour ces arguments lors du prochain appel de la méthode, les paramètres enregistrés sont utilisés. Le fait de définir les paramètres de ces arguments modifie les paramètres de la boîte de dialogue Rechercher, ce qui a pour effet de changer les paramètres enregistrés qui sont utilisés lorsque vous ne spécifiez pas les arguments. Pour éviter toute ambiguïté, définissez ces arguments de façon explicite chaque fois que vous utilisez cette méthode.
Code:

1 2 Set CellPays = Range("....").Find(pays, , xlValues, xlPart)
25/04/2006, 23h04
Vesta
J'ai testé aussi
Code:

1 2 pays = "Maroc" Set CellPays = Range("A1:D4").Find(pays)
Essaie peu être de faire un

Code:

dim pays as string

au dessus...

Vérifie aussi le contenu de la variable pays juste avant de faire le find

Code:

Msgbox pays

juste au cas ou
25/04/2006, 23h08
Mirx1

j'ai tenu compte des paramètres dans mon code : je ne les ai pas retapés ici mais ils y sont et sont identiques pour les deux recherches ....

j'ai fait la vérif de pays avant le find et j'ai meme fait afficher la cellule où "Maroc" était ....
Résultat :
les 2 donnent

Code:

Maroc
25/04/2006, 23h11
Mirx1

Bien sûr chez moi tout marche .... :-/

Un problème de format de cellules p'tet ?
26/04/2006, 17h56
Mirx1

J'ai trouvé !!

Après étude approfondie il s'avère qu'en fait certains des champs "Pays" contenaient des espaces .... "Maroc " au lieu de "Maroc" par exemple ...

Donc forcément la recherche ne trouvait pas. Par contre je n'ai pas réussi à trouver de fonction en VB qui enlève ces espaces donc j'ai du le faire à la main mais ma solution n'est pas terrible : Je regarde le dernier élément de la chaine et si c'est un espace, je l'enlève. Le pb c'est que je n'ai pas non plus de fonction VB pour connaitre le nb de caracs de la chaine ... Je prends donc 50 caracs et je descends. Après si le nom de pays est plus grand que 50 caracs j'ai perdu :)
26/04/2006, 18h30
SfJ5Rpw8

tu as l'option lookAt

Citation:

LookAt Argument de type Variant facultatif. Il peut s'agir de l'une des constantes XlLookAt suivantes : xlPart ou xlWhole.
26/04/2006, 18h32
Mirx1

arg ! merci ! j'avais oublié ça !
26/04/2006, 23h42
Mirx1

Après réflexion non ça ne marchera pas !

Code:

XlLookAt : xlPart ou xlWhole

c'est fait pour les cellules où l'on recherche. Or moi les espaces en trop sont dans le texte à rechercher.
Je m'explique :

J'ai une cellule "Maroc" et je recherche "Maroc " donc le fait de chercher "Maroc " dans tout ou partie de la cellule ne changera rien. L'inverse aurait fonctionné : "Maroc" est bien inclus dans "Maroc ". Problème non résolu donc ....
26/04/2006, 23h50
SfJ5Rpw8

et bien enléve les ces espaces en trop... voir fonction Trim...
27/04/2006, 18h43
Mirx1

RTrim a fait mon bonheur ... Merci !