Codage vba excel

Résolu/Fermé

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

Bonjour à tous,

j'ai posté hier mais je ne retrouve plus la page...aie aie aie.

ma macro a un problème : erreur 1004
qui me dit qu'il y a un problème avec "range" et select....chose que je ne maîtrise pas.

un peu d'aide serait la bien venue svp...

Sub Macro1Paramètrer()
'
' Macro4 Macro
' Macro enregistrée le 18/03/2008 par Julien
'

'
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

End Sub

A voir également:

Codage vba excel
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Codage binaire - Guide
Si et excel - Guide
Déplacer une colonne excel - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
20 mars 2008 à 08:47

Bonjour,

Afin d'éviter de chercher trop longtemps, quand il y a une erreur tu cliques sur "debbogage" et il te donne en surbrillance la ligne erronée.
Tu aurais pu dire laquelle.

Vérifie aussi le nom des onglets

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

je l'ai fait il 'mindique la ligne suivante:

Range(B5:D49").select

je pense que ca vaut pour les autres aussi...

les onglets sont bon je viens de vérifier.

merci

magestic

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

il manque tout simplement " devan le B
soit :

Range("B5:D49").select

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

c'est une erreur de frappe d ema part mais dans ma macro le " est bien présent.

Utilisateur anonyme > 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

Bonjour,
peux tu déposer ton classeur excel sur https://www.cjoint.com/ ? et je reagrderai

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

je viens de tenter mais mon fichier est trop important...peuit être par mail ?