copie de feuille specialpaste valeurs

[kwakos]

Bonjour à tous !!!

Ou bonsoir plutôt...

Voilà, j'ai un petit problème quant à la copie d'une de mes feuilles sur une autre du même classeur. J'ai édité cette formule, mais ça marche pôôôôô....

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil1").UsedRange.Select
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil1").Select
End Sub

Quelqu'un aurait-il une idée ???

Merci a tous

 

[vbacrumble]

Re : copie de feuille specialpaste valeurs

Bonsoir



Essaie ainsi

Sub valseul()
Application.ScreenUpdating = False
Sheets("Feuil1").UsedRange.Copy
Sheets("Feuil2").[A1].PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[kwakos]

Re : copie de feuille specialpaste valeurs

Bonsoir



Essaie ainsi

Sub valseul()
Application.ScreenUpdating = False
Sheets("Feuil1").UsedRange.Copy
Sheets("Feuil2").[A1].PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

re le forum, vbacrumble


vbacrumble, merci, ça marche parfaitement de ta manière... J'ai encore quelques progrès à faire...

A+