Tiens, un nouveau....

William · 11 Février 2003

Bonjour,

Bah vouis, un nouveau venu sur ce forum super interessant...

Et donc une question forcément fastoche....

J'ai deux feuilles excel, appelons les "1"et "2", et une cellule "R32" dans la feuille "2".

Je désire rediger une macro, pour lire les données de la cellule "R32", les enregistrer temporairement, et faire une recherche dans la colonne "F" de la feuille "1"....

Pour ça, j'ai bien un truc du genre :

Sheets("1").Select
Range("F:F").Select
Range("F1").Activate
Selection.Find(What:="..................", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub

Mais bien sûr, je n'ai aucune idée de la formule que je dois entrer au déut pour que les ".........................." se transforment en ce que contient ma cellule "R32" et encore moins, si j'ai deux résultats identiques dans ma colonne "F"...

Alors, je sens que c'est simple, mais que je vais galérer dessus pendant 3 jours....

Merci d'avance de bien vouloir m'aider

Will

Mytå · 11 Février 2003

Salut William et le Forum

Deja tu dois créer un variable disons ici trouve

trouve = Sheets("Feuil2").Range("R32").Value

Ensuite la recherche

Range("F1").Select
Cells.Find(What:=trouve, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate

Espérant cela fera ton affaire

Mytå

William · 11 Février 2003

Youpiiiiiiii, ça marche !!!!!

J'ai juste fait une petite modification, à savoir :

Range("F:F").Select
Range("F1").Activate
Selection.Find(What:=trouve, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, [-5]).Select

Parce que si je ne mettait pas la première ligne, cela ne fonctionnait pas (pour une obscure raison...).

La dernière ligne me permet d'aller chercher l'info se trouvant sur la ligne recherchée, en colonne "A"....

Merci du fond du coeur pour ton aide précieuse.

Ce serait avec plaisir que je te renverrais l'ascenseur, mais mon niveau est tellement faible que je ne suis pas sûr de pouvoir le faire un jour....

@+

Et plein de gros becs

William

Mytå · 11 Février 2003

Re William et le forum

De rien j'ai commencer comme toi au pied de l'echelle un jour toi aussi tu seras plus familier avec le VB

Amitié Mytå

Tiens, un nouveau....

William

Guest

Mytå

Guest

William

Guest

Mytå

Guest

Discussions similaires