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)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas