recherchev en VB

[chico]

bonjour tous le monde
g besoin d'aide en programmation VB,
en resumé chercher un numero de la feuil 1 sur la feuil 2
et qu'il me donne la ligne du numero trouvé.

je joint un fichier pour mieux expliquer mon petit probleme
merci d'avance pour votre aide 🙂

[file name=chico2.zip size=7487]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chico2.zip[/file]

 

[PascalXLD]

Bonjour

Voici un essai en pièce jointe

Bonne journée [file name=chico2_20051208132801.zip size=10769]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chico2_20051208132801.zip[/file]

 

[chico]

salut Pascal76,
c exactement ca merci 🙂

mais je comprend pas un bout de code:
Range('A65536')

je ne connais pas ce mode d'adressage de cellule,

tu peut juste m'eclairer?

merci encore 🙂

Amicalement

-Chico-

 

[PascalXLD]

Bonjour

En fait

Range('A65536') est la dernière cellule de la colonne A

En faisant

Range('A65536').end(xlup).row

J'ai la dernière ligne utilisé dans la colonne A

Dans ton cas je fais donc la recherche de la cellule A1 à la cellule A et cette dernière ligne

 

[chico]

ca marche mais j'aimerai bien comprendre cette ligne :

i = Sheets('Feuil2').Range('A1:A' & Sheets('Feuil2').Range('A65536').End(xlUp).Row).Find(ActiveCell.Value, lookat:=xlWhole).Row
peut t'on modifier pour que la recherche se fasse que sur la section feuil2; A4 à A33 ?

comme je comprend pas bien cette formule, je supose qu'il fait une recheche sur toute la colonne A.

 

[chico]

oui je comprend mieux ta formule,
désolé j'ai posté mon dernier message en meme temps que tu a repondu a ma question,

mais ma question tiens tjrs,
peut tu modifier ta formule pour faire la recherche sur A4 à A33?

parce que g encore des données qui continu apres A33

 

[PascalXLD]

Ok cela donne

i = Sheets('Feuil2').Range('A4:A33').Find(ActiveCell.Value, lookat:=xlWhole).Row

 

[chico]

merci pascal,
merci pour ton aide et ta patience 🙂

voila g pu avancer dans mon projet,

a+
-Chico-