XL 2016 copie d'une partie d'un classeur vers un autre

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 !

Guismo33

XLDnaute Occasionnel
Bonjour au forum,

Voila j'ai un classeur avec un certain nombres de feuilles qui ce nomme "Bureau" et je voudrais
copier le cellules de A43:I114 de chaque feuilles pour les coller dans un autre classeur nommer "Compta" qui aura normalement le même nombres de feuilles en A43 .
pourriez vous m'aider svp.
j'ai chercher sur le web , mais je n'arrive pas combiner les formules .

merci


bien à vous
 
Bonjour Guismo33,

Mettez cette macro où vous voulez et lancez-la :
Code:
Sub Copier()
Dim source As Workbook, dest As Workbook, n%
On Error Resume Next
Set source = Workbooks("Bureau") 'à adapter
Set dest = Workbooks("Compta") 'à adapter
If Err Then MsgBox "Les 2 fichiers 'Bureau' et 'Compta' doivent être ouverts...": Exit Sub
On Error GoTo 0
If source.Worksheets.Count <> dest.Worksheets.Count Then MsgBox "Le nombre des feuilles de calcul n'est pas le même !", 48: Exit Sub
For n = 1 To source.Worksheets.Count
    source.Worksheets(n).Range("A43:I114").Copy dest.Worksheets(n).Range("A43")
Next
End Sub
A+
 
Bonjour Guismo33,

Mettez cette macro où vous voulez et lancez-la :
Code:
Sub Copier()
Dim source As Workbook, dest As Workbook, n%
On Error Resume Next
Set source = Workbooks("Bureau") 'à adapter
Set dest = Workbooks("Compta") 'à adapter
If Err Then MsgBox "Les 2 fichiers 'Bureau' et 'Compta' doivent être ouverts...": Exit Sub
On Error GoTo 0
If source.Worksheets.Count <> dest.Worksheets.Count Then MsgBox "Le nombre des feuilles de calcul n'est pas le même !", 48: Exit Sub
For n = 1 To source.Worksheets.Count
    source.Worksheets(n).Range("A43:I114").Copy dest.Worksheets(n).Range("A43")
Next
End Sub
A+
Bonjour job,

merci , cela fonctionne très bien.


bien à vous
 
- 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

Discussions similaires

Réponses
5
Affichages
485
Retour