pb copier-coller par macro

[darib52]

bonjour,
la macro ci-dessous devrait me permettre de faire un copier-coller de données d' 1 feuille vers 1 autre.
mon pb est que le coller ne s'éxécute pas.
le mesage suivant apparaît
"erreur 1004.
impossible de coller les infos car les zones copier et de collage sont de forme et de taille différentes"
j'ai mis en forme les cellules de réception à l'identique avec celles de départ, sélectionner une cellule d'accueil ou 1 plage, le résultat est toujours le même.

si vous avez une idée.
merci d'avance
(impossible de joindre le fichier qui est trop volumineux, même réduit, pour le forum)

Sub traiter()
'
Dim nom As String
Dim monchoix As String
Dim annee As String
nom = InputBox("Tapez le nom de la feuille à traiter.")
Sheets(nom).Select
Range("a6").Select
annee = InputBox("Tapez l'année en cours, seules les années antérieures seront traitées.")
Selection.AutoFilter Field:=2, Criteria1:="=*" & annee & "*", Operator _
:=xlAnd
monchoix = InputBox("Tapez le nom du redevable à traiter.")
ActiveCell.FormulaR1C1 = "=" & nom & "!R[2]C"
Range("A6").Select
Selection.AutoFilter
Selection.AutoFilter

Selection.AutoFilter Field:=1, Criteria1:="=*" & monchoix & "*", Operator _
:=xlAnd
Selection.AutoFilter Field:=2, Criteria1:="= <" & annee & ", Operator:=xlAnd"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("oppo").Select
Range("l2").Select
ActiveSheet.Paste
Sheets(nom).Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Sheets("oppo").Select
End Sub

 

[Pierrot93]

Re : pb copier-coller par macro

Bonjour Darib

Il me semble qu'avec l'utilisation des filtres, ca reviens à copier coller des plages de cellules non adjacentes et ca je crois bien qu'excel n'aime pas...

Bonne journée
@+

 

[darib52]

Re : pb copier-coller par macro

merci.
j'ai réglé le pb autrement.
en créant une feuille vierge qui reçoit les données.
et là pas de pb ??????!!!!!!!!