Erreur d'éxecution d'un code obtenu avec l'enregistreur

Bonjour le forum.

Je me permets de venir vers vous car je rencontre une difficulté que je ne pensais jamais rencontrer.

Je souhaiterais affecter une macro à un bouton de commande. Pour cela je me suis mis sur la page où le bouton de commande sera situé puis j'ai ouvert l'enregistreur, effectué mes manip puis fermé l'enregistreur.

J'ai ensuite copié le code obtenu dans l'emplacement réservé au bouton de commande.

Mais là, j'ai des erreurs d'exécution. A quoi celà peut-il être du? Erreur quelconque de ma part (j'ai pourtant refait plusieurs fois la manip et quand je demande l'éxecution du code enregistré il s'exécute sans problème) ou alors le code associé à un bouton de commande doit-il être différent de celui obtenu par l'enregistreur?

(J'ai remarqué que le titre de la macro enregistré est sub alors que pour un bouton de commande c'est privatesub).

Comment puis-je affecter ce code à mon bouton de commande?

Merci d'avance à ceux susceptibles de me répondre.

Sheets("Récapitulatif Pick-Up global").Select
    Columns("A:L").Select
    Selection.Copy
    [color=#FF0000]Columns("N:N").Select[/color] [color=#FF0000]Première erreur d'éxecution[/color]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.NumberFormat = "m/d/yyyy"
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    Range("N1:Y1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=12, Criteria1:="<>"
    Selection.Sort Key1:=Range("Y1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("N2:Y11").Select
    Selection.Copy
    Sheets("Top 10 jours hausse").Select
    ActiveSheet.Paste
End Sub

Est-il possible d'ouvrir l'éditeur du bouton et une fois dedans de démarrer l'enregistreur??

Pourquoi le code enregistré ne s'applique pas dans un bouton?

Salut le forum

Si c'est un bouton Active X (Boîtes à Outils - Contrôles), tu insères le code entre

Private Sub CommandButton1_Click()

End Sub

Si c'est un bouton Formulaire, clique droit sur le bouton - Affecter une macro

Mytå

J'ai finalement trouvé une solution.

Enregistrer la macro, l'appeler JJ.

Après dans le code du bouton de contrôle, je tappe "Excel.Run ("JJ")

Re le forum

Bien heureux que ton problème soit solutionné.

Merci de passer la ficelle en [Résolu]

Mytå