Bonjour,
Je dois réaliser une macro pour trasferer les données présente dans certaines colonnes d'une feuille (le nombre de ligne depend du cas) vers certaines colonnes(pas le même indice que l'autre) d'une autre feuille. Le problème en plus c'est que je souhaite indiquer la feuille où prelever les données et la feuille où lesmettre dans un troisieme classeur (du nom de "nom_fichier".xls). Le classeur source est indiqué en C3 de ce fichier, le classeur d arrivée en C5.

Voila la procedure que j'ai... sauf que j'ai maintenant des chiffres dans le classeur "nom_fichier", de 1à 26 en B...Quelqu'un peut t'il m'aider?Merci d'avance!

Sub transfert1()
'
' transfert1 Macro
' 1er transfert
'
Set don1 = Workbooks("nom_fichier.xls").Sheets("feuil1")
donn1 = don1.Cells(3, 3)
Set f1 = Workbooks(donn1).Sheets("Valeurs") ' fichier etude
Set don2 = Workbooks("nom_fichier.xls").Sheets("feuil1")
donn2 = don2.Cells(5, 3)
Set f2 = Workbooks(donn2).Sheets("feuil1") ' fichier base de données


nb_pylone = 0
While f1.Cells(nb_pylone + 6, 2) <> Empty
nb_pylone = nb_pylone + 1
Wend
i = 0
While i < nb_pylone

f1.Cells(i + 13, 3) = f2.Cells(i + 6, 2)
f1.Cells(i + 13, 4) = f2.Cells(i + 6, 5)
f1.Cells(i + 13, 25) = f2.Cells(i + 6, 4)
i = i + 1
Wend
End SubConfiguration: Windows XP Internet Explorer 6.0