mettre résultat cellule dans feuille correspondante

[marc]

rebonjour,
j' ai 400 feuilles qui sont de ext1 à ext400 dans la cellule b3, j'ai :
=DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-CHERCHE("]";CELLULE("nomfichier";A1))) qui me donne le nom de la feuille.
Dans ma feuille qui s'appelle : listing , y a des cellules qui vont de E4 à E404 j'ai un nom qui doit apparaitre sur chaque feuille, donc, la cellule du listing e4 doit aller dans feuille ext1 en b3 et la cellule du listing e5 doit aller dans feuille ext2 en b3 et la cellule du listing e6 doit aller dans feuille ext3 en b3 ect....

Pouvez vous m'aider a réaliser cela soit par une formule que j'inclurai en b3 ou par du code, mais la , je n'en connais pas assez pour le réaliser

merci d'avance
Marc

 

[Robert]

Salut Marc, salut le forum

Voici une petite macro qui devrait te convenir :

Public Sub test()
Dim f As String 'déclare la variable f
For x = 1 To 400 'boucle pour les 400 feuilles
f = "ext" & x 'définie la variable f (ext1, ext2, etc...)
'copie et colle
Sheets("listing").Cells(x + 3, 5).Copy Destination:=Sheets(f).Range("B3")Next x 'boucle
End Sub


À plus,

Robert

 

[marc]

je te remercie beaucoup de tes lumière, j'essaye
merci et bon week end

Merci cela marche, tu m'a fait gagner un temps precieux , pour la recherche d'autre chose ,

En envoie de pdf ou en excel mais alors totalement bloquer ou en lecture seule des feuilles du classeur par email connais tu une formule ?

Marc