Macro événementielle lors de copie

Fermé
matteopacino - 16 avril 2012 à 15:40
Bonjour,


Grâce à des forums, j'ai pu progresser sur Excel, et je vous en remercie.

Je vous présente cette situation-là :

J'ai un document excel avec une colonne A comportant différents noms de pays.

D'autres colonnes avec d'autres infos (noms de villes à visiter, langues parlées) .

J'ai réussi à faire en sorte que pour chaque nouveau pays dans ma colonne A, un nouveau classeur soit crée.

s'il y a donc 5 pays dans ma colonne A, je me retrouve avec 6 classeurs au final ( celui de départ +5)

Voici le code qui me permet cela ( veuillez excuser le brouillon ou les erreurs) :


Sub CopierUneFeuilleDunClasseurDansLautre()

For i = Sheets(1).Range("A65536").End(xlUp).Row To 1 Step -1
fName = Sheets(1).Cells(i, 1).Value

FichierOùCopier = ActiveWorkbook.Name

Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name

Workbooks(FichierOùCopier).Activate

Sheets("Document List").Select
Sheets("Document List").Copy After:=Workbooks(FichierOùColler).Sheets(2)

Next
End Sub


Serait-il possible d'avoir dans ces nouveaux classeurs, les données UNIQUEMENT du pays qui a généré la création du nouveau classeur ?

Je peux joindre un exemple si nécessaire. Pour que le code marche, il faut juste renommer l'onglet Sheet 1 : Document List.

D'avance merci.


A voir également: