Erreur 1004 select range a échoué

Stoneprogrammeur Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Stoneprogrammeur Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai le même proble avec mon macro, en voulant sauvegarder dans le bon de commande en appuyant au bouton, il m'affiche l'erreur 1004
quelqu'un peux m'aider :
svp ça urge de mon coté.

voici la macro 
Sub histoboncommande()
'
' histoboncommande Macro
'

'
    Sheets("Historique B Commande").Select
    ActiveWindow.SmallScroll Down:=-15
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Range("B5").Select
    Sheets("Bon de Commande").Select
    Range("D5").Select
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C5").Select
    Sheets("Bon de Commande").Select
    Range("B9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D5").Select
    Sheets("Bon de Commande").Select
    Range("C9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E5").Select
    Sheets("Bon de Commande").Select
    Range("B10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F5").Select
    Sheets("Bon de Commande").Select
    Range("C10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G5").Select
    Sheets("Bon de Commande").Select
    Range("B11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H5").Select
    Sheets("Bon de Commande").Select
    Range("C11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I5").Select
    Sheets("Bon de Commande").Select
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J5").Select
    Sheets("Bon de Commande").Select
    Range("C12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K5").Select
    Sheets("Bon de Commande").Select
    Range("B13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L5").Select
    Sheets("Bon de Commande").Select
    Range("C13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("M5").Select
    Sheets("Bon de Commande").Select
    Range("D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N5").Select
    Sheets("Bon de Commande").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historique B Commande").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    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
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    Range("AH4").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Bon de Commande").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B22").Select
End Sub


EDIT : Correction des balises de code

Configuration: Windows / Chrome 71.0.3578.98

3 réponses

Réponse 1 / 3
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Tu es passé par l'enregistreur de macro...
résultat, tu as pleins de lignes inutiles et des répétition de code...

Pourrais tu expliquer ce que tu veux faire exactement ?
Tu ne veux "copier" que les valeurs ou tu veux aussi la mise en forme ?

Dans l'idéal, montre nous un exemple de fichier (sans données confidentielles)
Tu peux le déposer sur cijoint et nous coller le lien ici... https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

0
Réponse 2 / 3
Stoneprogrammeur Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
https://www.cjoint.com/c/IADodKy5CX4

le mot de passe pour l'utilisateur est : comptable
pour l'administrateur est : gestionnaire
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Et pour mes autres questions ?

Sachant que.. si tes feuilles sont protégées par un password... normal que ça plante lorsque tu fais du copier/coller ...
Il faut désactiver la protection le temps de faire les opérations puis réactiver ensuite...
0
Réponse 3 / 3
Stoneprogrammeur Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
pour moi l'objectif était de restreindre l'accès à deux niveau, l'utilisateur et l'administrateur sans possibilité d'ajouter une nouvelle feuille et à chaque fois que tu ferme une feuille il te ramène sur l'acceuil
avez - vous une meilleurs solution adapté à ma demande ??
0

Discussions similaires

input signal out of range
marlene -
usman000 -

14 réponses
Aide Please select boot device
Romanitouu -
jee pee -

1 réponse
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
comment désactiver out of range
lzri98 -
jeannets -

3 réponses
Problème d'allumage écran LG : "OUT OF RANGE"
roblaf -
MathiaMan25 -

3 réponses