Problème de code

Résolu/Fermé

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008 - 19 mars 2008 à 16:15
magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008 - 26 mars 2008 à 13:25

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

A voir également:

Problème de code
Code asci - Guide
Code puk bloqué - Guide
Code de déverrouillage oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

4 réponses

Réponse 1 / 4

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
19 mars 2008 à 16:40

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.

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
20 mars 2008 à 10:50

oui c'est vrai désolé ca bloque a "Range("D7:F51").Select"

merci

Réponse 2 / 4

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
20 mars 2008 à 17:18

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 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
21 mars 2008 à 08:16

je la joint où?

Réponse 3 / 4

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
21 mars 2008 à 08:21

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

Réponse 4 / 4

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
21 mars 2008 à 16:18

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.

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
26 mars 2008 à 13:25

le prb est résolu.
je vous remercie tous

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

code d'activation GTA 5 steam

Acces à snapchat temporairement désactivé

Trouver le code PUK Maroc Telecom et débloquer ma carte sim

Discussions similaires

Newsletters