XL 2010 VBA Modifer macro pour faire un copier coller valeur

jlbcall

XLDnaute Occasionnel
Bonjour à tous,

J'ai une macro ci-dessous ou j'aimerais après le copier, ne coller que les valeurs des cellules.
J'ai testé plusieurs solution trouver sur le net mais aucune ne fonctionnent, quelqu'un aurait-il une idée.
Exemple testé qui ne fonctionne pas:
FCAL.Selection.PasteSpecial Paste:=xlPasteValues

Merci d'avance pour votre aide

Sub Imp()
Dim TtesLignes, Derligne As Integer
Set FDATA = ActiveWorkbook.Sheets("DATA")
Set ADATA = FDATA.Range("A1")
Set FCAL = ActiveWorkbook.Sheets("CAL")
Set ACAL = FCAL.Range("A1")

TtesLignes = FDATA.UsedRange.Rows.Count
Range(ADATA(1, 1), ADATA(TtesLignes, 1)).Copy
ACAL(1, 1).Select
FCAL.Paste
Range(ACAL(1, 1), ACAL(TtesLignes, 1)).RemoveDuplicates Columns:=1, Header:=xlYes
ActiveWorkbook.Names("ListeHabillages").RefersTo = Range(ACAL(2, 1), ACAL(2, 1).End(xlDown))
ACAL(1, 1).Select

End Sub

jlbcall, Hier à 16:05Ed
 

Robert

XLDnaute Barbatruc
Bonjour Jlb, bonjour le forum,

VB:
Spéficier_l_onglet.Range(ADATA(1, 1), ADATA(TtesLignes, 1)).Copy
Spécifier_l_onglet.ACAL(1, 1).PasteSpecial (xlPasteValues)
 

Discussions similaires


Haut Bas