Macro événementielle lors de la copie d'un autre classeur

  • Initiateur de la discussion Initiateur de la discussion matteopacino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

matteopacino

Guest
Bonjour à tous,

Grâce à ce forum, 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 ayant généré la création du nouveau classeur ?

Je joint un exemple.

D’avance merci.
 

Pièces jointes

Re : Macro événementielle lors de la copie d'un autre classeur

Si jamais, j'ai mal expliqué le problème, dites- le moi s'il vous plait !

J'ai vraiment besoin d'aide !

merci
 
Dernière modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
10
Affichages
2 K
L
Réponses
1
Affichages
1 K
Ludwig74
L
R
Réponses
0
Affichages
3 K
R
F
Réponses
10
Affichages
1 K
F
S
Réponses
1
Affichages
732
S
K
Réponses
4
Affichages
1 K
K
V
Réponses
5
Affichages
1 K
P
Réponses
0
Affichages
722
poipoi59
P
Retour