Discussion :

[janakka-horus]

Bonjour

J'ai adapter un code VBA que je viens de trouver qui me copie les données d'une feuille appelée Import et colle les données sur la dernier ligne non vide sur la feuille Export de mon classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
CopieDonnées
 Dim derlig As Long, dl As Long
 
  derlig = Sheets("Export").Range("A" & Rows.Count).End(xlUp).Row + 1
 
   With Sheets("Import")
    dl = .Range("E" & Rows.Count).End(xlUp).Row
     .Range("c2:x" & dl).Copy Sheets("Export").Range("e" & derlig)
     Application.CutCopyMode = False
   End With
End Sub

Or je veux que se code me colle seulement les valeurs à la place du copier coller

Merci pour votre aide

[Invité]

Bonjour Janakka

Voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CopieDonnées Dim DerLig As Long, dl As Long
  DerLig = Sheets("Export").Range("A" & Rows.Count).End(xlUp).Row + 1
   With Sheets("Import")
    dl = .Range("E" & Rows.Count).End(xlUp).Row
     .Range("C2:X" & dl).Copy
     Sheets("Export").Range("E" & derlig).PasteSpecial Paste:=XlValues
     Application.CutCopyMode = False
   End With 
End Sub

A+