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