Problème de code Résolu/Fermé

Question

Bonjour,

j'ai un problème au niveau de mon bouton , je lui ai affecté une macro mais le problème c'est q'un message d'érreur s'affiche :

"erreur d'éxécution '1004' : 
La méthode Select de la classe Range a échoué." 

je ne sais pas programmer en vba j'ai fais ca avec l'enregistreur; ma macro est la suivante au ca sou des pro en vba aurai une réponce...:

Sub Paramètrer()

    Sheets("Paramètrage heures").Select
    Range("D7:F51").Select
    Selection.Copy
    Sheets("Récapitulatif heures").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Juin").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Juillet").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Aout").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Septembre").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Octobre").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Novembre").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Décembre").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Janvier").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Février").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Mars").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Avril").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Mai").Select
    Range("B5:D49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    ActiveWindow.SmallScroll Down:=-9
    Application.CutCopyMode = False
    Range("G7:G51").Select
    Selection.Copy
    Sheets("Récapitulatif heures").Select
    Range("E5:E49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    ActiveWindow.SmallScroll Down:=-18
    Application.CutCopyMode = False
    Range("H7:H51").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-15
    Range("F27").Select
    Sheets("Récapitulatif heures").Select
    Range("G5:G49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    Application.CutCopyMode = False
    Range("I7:I51").Select
    Selection.Copy
    Sheets("Récapitulatif heures").Select
    Range("I5:I49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    ActiveWindow.SmallScroll Down:=-18
    Application.CutCopyMode = False
    Range("J7:J51").Select
    Selection.Copy
    Sheets("Récapitulatif heures").Select
    Range("L5:L49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    ActiveWindow.SmallScroll Down:=-15
    Application.CutCopyMode = False
    Range("K7:K51").Select
    Selection.Copy
    Sheets("Récapitulatif heures").Select
    Range("N5:N49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    ActiveWindow.SmallScroll Down:=-12
    Application.CutCopyMode = False
    Range("G7:K51").Select
    Selection.Copy
    Sheets("Juin").Select
    ActiveWindow.SmallScroll Down:=-51
    Range("AO5:AS49").Select
    ActiveSheet.Paste
    Sheets("Paramètrage heures").Select
    Application.CutCopyMode = False
    
    Macro1
    Macro2
    Macro3
    Macro4

End Sub

Ivan-hoe · Answer

Bonjour Magestic, 
je pense que le nombre d'instructions va en rebuter plus d'un ! Pour nous facilier la tâche, trouve à quelle ligne de code ça coince : 
place ton curseur au début de ton code et tape F8, autant de fois que nécessaire (ça s'appelle le "pas à pas"). 
La ligne coloriée en jaune s'exécute. Tu peux ainsi repérer à quel niveau ta macro génère une erreur. 
A bientôt.

Ivan-hoe · Answer

Je ne compends pas pourquoi ça bloque sur une instruction aussi simple. 
Le problème vient sans doute de ta feuille. Qu'est ce qu'elle contient ? Pourrais-tu la ci-joindre ? 
I.

magestic54 · Answer

ce qui est étrange c'est que lorsque je fais exécutéla macro ca marche mais dès que je mets un bouton et que je lui affecte cette macro ca me donne "erreur 1004" la calasse range a échoué patati patata

Ivan-hoe · Answer

est-ce que ton bouton est dans le même fichier que tes feuilles à traiter ? 
Pour joindre un fichier, tu peux utiliser www.cijoint.fr et coller le lien dans ton prochain message.

Problème de code

4 réponses

Discussions similaires