Copier une colonne dans une autre feuille

Bonjour le forum,

Je viens vers vous parce que j'ai un problème avec une macro. Je souhaite copier les éléments de colonne A de la Feuil1 vers la colonne A de la Feuil2, j'utilise une macro qui m'indique une erreur: "la méthode Select de la classe Range a échouée".

Private Sub Worksheet_Change(ByVal Target As Range)

   Sheets("Feuil1").Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Sheets("Feuil2").Select
    Range("A2").Select
    ActiveCell.Offset(1, 0).Range("A2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Avez-vous une idée de^pourquoi cette erreur ?

Merci et bonne après-midi

Bonjour

Une procédure événementielle ne peut sélectionner une autre page

Je ne sais pas ce que tu veux faire

Est-tu sur que la procédure est dans la bonne page ?

Tu as des cellules fusionnées dans la page "Feuil1", donc on sait pas ce que tu veux réellement copier

Y a t-il une zone de surveillance, ou alors une modification de n'importe quelle cellule déclenche la macro ?

La copie se fera t'elle toujours en A2 ?

Testes cette macro en attendant

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.EnableEvents = False
  Sheets("Feuil1").Range("A2").End(xlDown).Copy
  Sheets("Feuil2").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                                            SkipBlanks:=False, Transpose:=False
  Application.EnableEvents = True
End Sub

Bonjour,

peut être une autre approche ainsi, code à placer dans un module standard :

Option Explicit
Sub test()
With Sheets("Feuil1")
    .Range("A2", .Range("A65536").End(xlUp).MergeArea).Copy Destination:=Sheets("Feuil2").Range("A2")
End With
End Sub

bon après midi

@+

Bonjour Banzai 64 et Pierrot93,

Banzai, pour être plus précis je souhaite avoir la même chose en feuille 1 et en feuille 2 et lorsque je modifie la colonne en feuille A en feuille 1 j'aimerai avoir la même modification dans la colonne A en feuille 2. Dans ma macro je n'avais pris en compte le fait que les cellules sont fusionnées.

Pierrot, merci pour le module, c'est le résultat que je cherchais.

Si je peux me permettre de vous demander, comment rajouter ".PasteSpecial Paste:=xlValues" avec ce code ?

Merci à vous deux !

Re,

modifie comme suit :

Option Explicit
Sub test()
With Sheets("Feuil1")
    .Range("A2", .Range("A65536").End(xlUp).MergeArea).Copy
End With
Sheets("Feuil2").Range("A2").PasteSpecial xlPasteValues
End Sub

Re,

Merci beaucoup, c'est super !

@ +