XL 2010 Amélioration rapide du copier coller plusieurs onglets dans un nouveau fichier et en valeur

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 !

titi7500

XLDnaute Junior
Bonjour,

Je suis en présence d'un petit problème. Je souhaiterais copier plusieurs onglet afin de les coller dans un nouveau fichier Excel mais en valeur.

Voici la macro que j'ai mais le collage se fait avec les formules mais je n'arrive pas à faire un collage en valeur.

Sub Test()

Application.ScreenUpdating = False
With ThisWorkbook
.Sheets(Array("Feuil1", "Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5")).Copy
Application.DisplayAlerts = False

End With


End Sub

Pouvez vous m'aider svp à améliorer ma Macro.

Merci par avance.

Cdt.
Titi
 
Bonjour le fil, titi7500

titi7500
Ta macro ainsi modifiée devrait faire l'affaire
VB:
Sub Test_II()
Dim NBooK As Workbook, ws As Worksheet
Application.ScreenUpdating = False
With ThisWorkbook
.Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5")).Copy
Application.DisplayAlerts = False
End With
'mise en valeurs seules
Set NBooK = ActiveWorkbook
For Each ws In NBooK.Worksheets
ws.UsedRange = ws.UsedRange.Value
Next
End Sub
 
- 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
477
Retour