Discussion :

[Akit0]

Bonjour à tous,
Alors voila j'ai besoin pour mon travail de pouvoir faire une macro qui en fonction d'un nom dans une cellule copoie celle ci dans une autre feuille ou dossier
Exemple : Dans la cellule A1 il est écrit Albert alors si il est écrit ce nom sur cette cellule alors on copie B1 qui est égale a 10 (exemple) voila
Merci pour votre Aide

P.S ceci est le premier d'une longue liste alors merci d'avance de toute votre aide


@+

[Pierre Fauconnier]

Bonjour...

Et on colle où et en fonction de quel critère?

Il serait utile de relire votre message pour être sûr que les lecteurs puissent comprendre votre problème...

[MacKay77]

Bonjour,

J'imagine que la condition est "si la valeur de A1 est "Albert".
Le code suivant collera le résultat dans la cellule A1 dans le fichier secondfichier.xlsm, dans la feuille "feuil1" dans le répertoire C:\test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
if Range("A1").value = "Albert" then
Range("B1").copy
 
Dim appExcel As Excel.Application 
Dim wbExcel As Excel.Workbook 
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\test\secondfichier.xlsm")
wbExcel.Sheets("feuil1").Range("A1").paste
 
end if

J'espère que ça vous sera utile (et que je ne me suis pas trompé quelque part )
Bonne journée.