Discussion :

[Mirx1]

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 :

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

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

Je fais pareil avec les pays

Code :

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

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 ?

[Mirx1]

up ....

[SfJ5Rpw8]

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

[Mirx1]

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

[Vesta]

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

[Mirx1]

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

[Vesta]

Je viens de tester ca :

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

Code :

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

1
2
Set CellChiffre = Range("A1:D4").Find(1234)
Set CellPays = Range("A1:D4").Find("Maroc")

et ca marche...

[Mirx1]

et si tu fais :

Code :

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

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

?

en fait vais tester j'ai excel ici aussi ....

[SfJ5Rpw8]

realise tu? d'autre recherche manuelle ... ou par code VBA dans ton classeur ...voir aide en ligne excel :

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 :

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

1
2
 
Set CellPays = Range("....").Find(pays, , xlValues, xlPart)

[Vesta]

J'ai testé aussi

Code :

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

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

Essaie peu être de faire un

Code :

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

dim pays as string

au dessus...

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

Code :

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

Msgbox pays

juste au cas ou

[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 :

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

Maroc

[Mirx1]

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

Un problème de format de cellules p'tet ?

[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

[SfJ5Rpw8]

tu as l'option lookAt

LookAt Argument de type Variant facultatif. Il peut s'agir de l'une des constantes XlLookAt suivantes : xlPart ou xlWhole.

[Mirx1]

arg ! merci ! j'avais oublié ça !

[Mirx1]

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

Code :

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

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

[SfJ5Rpw8]

et bien enléve les ces espaces en trop... voir fonction Trim...

[Mirx1]

RTrim a fait mon bonheur ... Merci !