Copier
Bonjour ,
voici ma question :
Je voudrais selectionner ("A8:D65") dans plusieurs feuilles copier la selection et la coller dans une nouvelles feuilles.
Si quelqu'un pouvait me donner le code vba correspondant merci.
Merci pour vos réponses
Bonjour
Tu copies plusieurs fois A8:D65, je suppose donc que tu colles ces sélections à plusieurs endroits.
Faut-il coller en suivant vers la droite ou vers le bas, et à partir de quelle cellule de départ?
Sans rien connaître à VBA, A partir de la sélection A8:D65 sur la Feuille 2; pour copier la sélection A8:D65 des Feuilles 2, 3 et 4 sur la Feuille 1, en A8, et en suivant vers la droite, l'enregistreur de Macro donne le code suivant:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/12/2006 par Amadéus
'
Range("A8:D65").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A8").Select
ActiveSheet.Paste
Sheets("Feuil3").Select
Range("A8:D65").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("E8").Select
ActiveSheet.Paste
Sheets("Feuil4").Select
Range("A8:D65").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("I8").Select
ActiveSheet.Paste
Range("A8").Select
End Sub
Amadéus
Merci amadeus
mais j'ai trouvé une solution
Voici le code si ça t'interesse
Sub test()
Dim n As Integer
Dim m As Integer
Dim ligne As Integer
Dim nomfeuille As String
ligne = 1
Sheets.Add After:=Worksheets(Worksheets.Count)
nomfeuille = ActiveSheet.Name
For n = 1 To Sheets.Count
If Sheets(n).Name <> nomfeuille Then
For m = 8 To 65
If Sheets(n).Cells(m, 1) <> "" Then
Sheets(n).Rows(m).Copy Destination:=Sheets(nomfeuille).Rows(ligne)
ligne = ligne + 1
End If
Next m
End If
Next n
End Sub