XL 2010 Recherche dans une plage

[GHISLAIN]

Bonsoir le forum et les exeliens ,

je cale sur une recherche , pour une recherche sur une plage fixe cela fonctionne mais je ne parviens pas a la rendre variable :


pour la plage fixe cela fonctionne
Set celluletrouvee2 = Sheets(ActiveSheet.Range("ab1").Value).Range("d12:h12").Find(ActiveCell(1, -3).Value, lookat:=xlWhole)

comment remplacer Range("d12:h12") par une plage variable
je recherche dans la cellule 1 apres la celluletrouée2 j'usqu'a la 5 eme venant apres
j'ai tenté entre autre cela mais ne fonctionne pas ......
celluletrouvee2.Offset((1, 1);(1, 5) )


je sais pas si c'est clair mais en tout cas merci de votre aide

Bien cordialement

Ghislain

 

[Hieu]

Salut Ghislain,

Comme ca ?
celluletrouvee2.Offset(0, 5)

 

[GHISLAIN]

Hello Hieu ,
je viens de tester ta proposition:
Sheets(ActiveSheet.Range("ab1").Value).Range(celluletrouvee2.Offset(0, 5)).Find(ActiveCell(1, -3).Value, lookat:=xlWhole)
elle me donne une erreur 1004

je continue a chercher

merci

 

[Hieu]

Ahhh...
Parti trop vite ;
Tu as fait un set sur un ctrl + f
Ce que tu veux c est un offset sur la plage. tu peux faire :
Set titi = Range("d12:h12")

Et faire un offset sur ton titi
Titi.offset(0,5).

Un fichier exemple pour faire des tests ?

 

[GHISLAIN]

voili voila

 

[GHISLAIN]

pour info

j'ai testé ca :
Set celluletrouvee2 = celluletrouvee.Offset(1, 5).Find(TextBox1.Value, lookat:=xlWhole)

pas d'erreur mais me trouve rien

 

[GHISLAIN]

je repasse demain

merci bonne soirée

amicalement

Ghislain

 

[Hieu]

Salut Ghislain,

Voici, je crois, ce que tu veux :

Set celluletrouvee2 = Sheets(ActiveSheet.Range("ab1").Value).Range("C" & ligne & ":h" & ligne).Find(TextBox1.Value, lookat:=xlWhole)