Résoudre le problème d'une macro

Bonjour à tous,

Pouvez-vous résoudre le problème et avoir l'explication de ma macro (macro1)qui ne veut pas fonctionner,j'ai beau chercher mais je n'ai pas trouver la solution

merci de votre aide

Salut,

il s'agit d'une erreur de ta macro1?

Si oui, ou est ton "Tableau16"?

Il s'agit bien de la macro1

Et tableau est dans la feuille input de B2 à Q2

Je comprends pas trop l'utilité de ta macro mais voila la correction :

Sub Macro1()

    Sheets("input").Activate
    Sheets("input").Range("Tableau16").Select
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    Range("Tableau16[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
        :=Range("input!Criteria"), CopyToRange:=Range("AB2:AQ2"), Unique:=False
End Sub

J'ai essayé la correction mais cela ne marche pas

En fait je voudrai reporter le contenu du tableau 16 en fonction d'une critére de la cellule Z3 pour reporter les résultats de la cellule AB2:AQ2

Quel est le critère de Z3?

Si tu me dis le critère je peux rajouter une condition simple, je pense avoir compris ta demande remplace ta macro avec ca.

Sub CopieTableau()

    Sheets("input").Activate
    Set range1 = Range("Tableau16")
range1.Copy
    Sheets("input").Range("AB3").Select

With ActiveCell
  .PasteSpecial xlPasteValues
  .PasteSpecial xlPasteFormats
End With

End Sub

Sub Clean()

For Each hcel In Range("AB3:AQ5")
    hcel.Interior.Color = -4142
    hcel.Value = ""
Next hcel

For Each cl In Range("AB3:AQ5")
cl.Borders.LineStyle = xlLineStyleNone
Next cl

End Sub

J'ai rajouté une macro qui supprime la copie, si ca peut intéresser ^^

La critére qui est saisie dans z3, c'est mot qui se trouve dans une des lignes du tableau16.

Tout ce pour afficher le resultat dans une listebox d'un formulaire pour me permettre la modification ou la suppression d'une ligne

ci-joint le fichier avec les macros, je n'ai pas vrmt compris la condition au pire tu peux la rajouter ^^.