Discussion :

[maxime00001]

Bonjour,

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

Code :

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

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 !

[mercatog]

Essaies sans les select

Code :

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

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

[maxime00001]

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

merci encore !

[maxime00001]

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 :

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

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 !

[MarcelG]

Bonjour maxime, et bienvenu sur le Forum,

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

[Menhir]

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.