Discussion :

[djibysadji]

Salut le Forum!
J'ai créé un bouton auquel j'ai affecté la macro ci-dessous. Mais quand je lance la macro il y a ce message d'erreur: La méthode select de l'objet range a échoué et c'est la ligne Range("D").Select qui est en jaune. J'aimerais comprendre pourquoi ce message d'erreur s'affiche dans ce cas de figure.

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
Sub Copier()
'
' Copier Macro
'
 
'
    Range("D5").Select
 
    Range("Tableau1").Select
    Selection.Copy
    Sheets("nsSEM1").Select
 
    Range("A12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

Merci
djibysadji

[Invité]

J'aimerais comprendre pourquoi ce message d'erreur s'affiche dans ce cas de figure.

Bonjour,

Aucune idée, surtout que cette ligne ne sert à rien. Il faudrait voir votre tableau.
Les Select ne servent à rien, ou plutôt si, ils servent à ralentir votre code.

Essayez ceci en modifiant le nom de l'onglet de départ :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Copier()
 
    ' Nom de l'onglet de départ à adapter.
    Sheets("Feuil3").Range("Tableau1").Copy
    With Sheets("nsSEM1").Range("A12")
         .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
 
End Sub

Nb : Postez sur le forum VBA Excel.