copier les données

Bonjour,j'ai crée un macro qui copie les lignes sélectionnées d'une feuille sur une autre feuille.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub copier_ligne() Dim nblignes As Integer page = ActiveSheet.Name Selection.Select nblignes = Selection.Rows.Count a = InputBox("Sur quelle feille voulez-vous copier les lignes?") Sheets(a).Select Cells(1, 1).Select ActiveCell.Offset(0).Resize(nblignes, 1).EntireRow.Insert Sheets(page).Select Selection.Copy Sheets(a).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

---

cette sub marche bien,sauf qu'elle copie la mise en forme aussi(la couleur).
je voudrais copier juste les données,pas la couleur.
merci de votre aide

Bonjour Calvi

essaye peut être un collage spécial :

Code:

---

ActiveSheet.Range("A1").PasteSpecial xlPasteValues

---

bon après midi
@+

j'ai essayé ça marche pas.(reconnait pas pastespecial)

Re

pas de problème chez moi, sous 2003 cette ligne de code fonctionne... Tu n'aurais pas des cellules fusionnées dans la plage copiée ?

merci ça marche.
enfaite moi j'ai écrit

Code:

---

1 2	activesheet.PasteSpecial xlPasteValues

---

et ça marche pas.
merci