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 fonctionne, 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
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 fonctionne, 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