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

titi7500 · 21 Février 2020

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

Staple1600 · 22 Février 2020

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

titi7500 · 24 Février 2020

Bonjour,

Merci staple1600 cela fonctionne parfaitement .

Cdt.
titi

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

titi7500

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

titi7500

XLDnaute Junior

Discussions similaires