RECHERCHEV en VBA

[JC de Lorient]

Bonjour le forum

je souhaiterais une aide pour créer une macro

je commence comme ceci :

For x= 2 to 795
Workbook('Mai 2005').Activate
ici je souhaiterais cette formule :
Rechercher en colonne A dans le calsseur Juin 2005 si le valeur Ax de mon classeur Mai 2005 existe
si oui mettre en Kx 'ok'
si non x suivant

merci de votre aide et très bonne journée a vous

JC

 

[PascalXLD]

Bonjour

essaies ceci

For x= 2 to 795
Mavaleur=Workbooks('Mai 2005').sheets('Feuil1').Range('A' & x)
Set c = Workbooks('Juin 2005').sheets('Feuil1').Range('A1:A65536').Find(Mavaleur, , , xlWhole)
If not c is nothing then
Workbooks('Mai 2005').sheets('Feuil1').Range('K' & x)='Ok'
end if
next

Bon courage

 

[JC de Lorient]

Bonjour Pascal re le forum

merci pour la rapidité de cette réponse
je mets ça en oeuvre de suite mé aucun doute sur le résultat !

bonne journée

JC

 

[JC de Lorient]

re Pascal

excellent résultat mais j'aurais juste souhaité une info sur : xlWhole
j'ai recherché dans l'aide mais rien trouvé

pourrais tu me fournir quelques explications

merci bcp

JC

 

[PascalXLD]

Re

Cela permet de chercher la valeur exact

si tu ne mets pas cela et qu'il trouve une valeur qui contient le mot que tu cherches il considère que c'est ok

exemple

tu cherches 'roti' et tu as dans une cellule 'rotissoire' si tu ne mets pas xlwhole il considère avoir trouver le mot

tiens regarde ce lien d'hier

Lien supprimé

Bon courage

Message édité par: Pascal76, à: 24/05/2005 08:58

 

[JC de Lorient]

ok ok ok !!!!

je vé dormir moins c.. ce soir lol !!!!

merci pour tes infos bonne journée

JC