Discussion :

[calvi2002]

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

Code :

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

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

[Pierrot93]

Bonjour Calvi

essaye peut être un collage spécial :

Code :

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

ActiveSheet.Range("A1").PasteSpecial xlPasteValues

bon après midi
@+

[calvi2002]

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

[Pierrot93]

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 ?

[calvi2002]

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

Code :

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

1
2
 
activesheet.PasteSpecial xlPasteValues

et ça marche pas.
merci