Discussion :

[Distyle]

Bonjour à tous,

En me basant sur la vidéo ci-dessous que je suis étape par étape,

je tente de créer un formulaire qui me permettrait de remplir un tableau visible par mes collègues dans l'atelier
pour un suivi du planning plus simple pour eux.

Lorsque je clique sur le bouton auquel j'assigne la macro ci-dessous, j'ai un message qui
apparaît pour les lignes 11-12 et 16-17:

Erreur d'exécution '1004':
La méthode PasteSpecial de la classe Range a échoué

Malgré mes recherches sur le forum, je ne trouve pas de solution à mon cas
ou tout simplement parce que je ne comprends pas tout (ce qui est le plus probable!).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub AddNewRequest()
'
' AddNewRequest Macro
'
 
'
    Range("C5").Select
    Sheets("WeaponRequest").Select
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Formulaire").Select
    Range("E5").Select
    Application.CutCopyMode = False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Formulaire").Select
    Range("C5,E5,C8,E8,C11,E11,G11,C14,E14,C17").Select
    Range("C17").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C5").Select
End Sub

Quelqu'un pourrait-il vulgariser la solution pour un adulte qui se débrouille
comme il peut en Excel ?

[halaster08]

Bonjour,

Tu n'as pas de .copy avant tes .pastespecial donc il ne sait pas quoi coller

edit:
De plus les select sont inutiles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("WeaponRequest").Select
    Rows("2:2").Select
    Selection.PasteSpecial ...

S'écrit simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("WeaponRequest").Rows("2:2").PasteSpecial

et donc en supposant que tu souhaites copier la celulle A1 de la feuille "machin"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("machin").Range("A1").copy
Sheets("WeaponRequest").Rows("2:2").PasteSpecial