Erreur 1004 select range a échoué
Stoneprogrammeur
Messages postés
3
Statut
Membre
-
Stoneprogrammeur Messages postés 3 Statut Membre -
Stoneprogrammeur Messages postés 3 Statut Membre -
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
EDIT : Correction des balises de code
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
A voir également:
- Erreur 1004 select range a échoué
- L'accès a la carte sd a échoué 3ds - Forum Jeux vidéo
- Please select boot device - Forum Matériel & Système
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Out of range écran - Forum Windows
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
3 réponses
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
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
https://www.cjoint.com/c/IADodKy5CX4
le mot de passe pour l'utilisateur est : comptable
pour l'administrateur est : gestionnaire
le mot de passe pour l'utilisateur est : comptable
pour l'administrateur est : gestionnaire
