La méthode select de l'objet range a échoué

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:

---

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

Citation:

---

Envoyé par djibysadji

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:

---

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.