Bonjour,

Je souhaite rechercher dans un onglet Sheet1 un mot clef nommé "oxford", puis copier coller la plage de cellule qui se trouve une ligne en dessous et qui s'étale sur 801 lignes et 12 colonnes à droite.

L’intérêt de ce programme serait de les coller dans une feuille d'un autre classeur.

La partie recherche avec find me pose le plus de problème, voici ce que j'ai fais pour l'instant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
set f =sheets("Sheet1").Range("A:Z").find(what:="oxford")
if not f is nothing then
first = f.address
do
 
Sheets(TabName).Range(" ?? : ?? ").Copy Workbooks(ControlFile).Sheets("feuil2").Range(" ?? ")
set f =sheets("Sheet1").Range(" ?? : ??").findnext(f)
 
loop while not f Is Nothing And f.Address <> firstAddress
end if
Je ne sais pas quoi mettre dans les Range car sa varie en fonction des fichiers


Merci d'avance.