Problème range VBA

Bonjour,

Je pense que le sujet à déjà été abordé, mais je suis bloqué vu mon faible niveau VBA.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click()   Sheets("Source").Select Range("DPGF_SOURCE").Select Selection.ClearContents   Sheets("DPGF Terrassements généraux").Select Range("DPGF_TERR").Select Selection.Copy Sheets("Source").Select ActiveSheet.Paste   End Sub

---

Le problème est que cela m'affiche quand je le lance le message " la méthode 'range'de l'objet'_worksheet' a échoué.

Si il y a des âmes charitables pour m'aider, merci !

Essaies sans les select

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Sheets("Source").Range("DPGF_SOURCE").ClearContents Sheets("DPGF Terrassements généraux").Range("DPGF_TERR").Copy Sheets("Source").Range("DPGF_SOURCE")(1) End Sub

---

Merci énormément. le problème est résolu !

merci encore !

Maintenant j'ai encore un autre problème. j'ai ce bouton sur 3 feuilles différentes et chaque bouton va recopier le tableau contenu dans la feuille.

En recopiant le code que vous m'avez donner dans les nouveaux boutons et en changeant les noms cela ne marche pas... pouvez vous m-aider ?

Nom du tableau à copier : DPGF_AMENG
Feuille initiale du tableau : DPGF Aménagements Paysagers

Feuille réceptrice du tableau : Source

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Sheets("Source").Range("DPGF_SOURCE").ClearContents Sheets("DPGF Aménagements Paysagers").Range("DPGF_AMENG").Copy Sheets("Source").Range("DPGF_SOURCE")(1) End Sub

---

Merci !

Bonjour maxime, et bienvenu sur le Forum,

Quel message d'erreur? Sur quelle ligne?
Les noms utilisés existent-ils dans ton classeur?

Si tes noms ont une portée "Classeur", la référence aux onglets (Sheets) n'est pas indispensable tant que le classeur actif est le bon.

Bonjour,

Maintenant j'ai comme message d'erreur que "l'indice n'appartient pas à la selection".
L'erreur est sur la deuxième ligne.
Et tous les noms existent dans le classeur.

Merci

Salut,

Intègre ces 2 lignes au début de la procédure

Code:

---

1 2	Debug.Print Sheets("DPGF Aménagements Paysagers").Range("DPGF_AMENG").Address Debug.Print Sheets("Source").Range("DPGF_SOURCE").Address

---

Puis place un point d'arrêt sur la 1ère ligne.
Après l'activation du bouton de commande, le débuggeur va s'y arrêter.
Ensuite, procède à l'exécution du code en pas à pas.

Ce processus permettra d'appréhender le point d'achoppement.

Si une erreur survient, précise l'endroit.