Macro copier-coller

Bonjour,

je suis en train de faire pour le boulot un programme et ma dernière macro ne veut pas fonctionner.

J'ai une fenetre qui apparait et me dit "la méthode select de la classe range a échoué"
voici ma macro

Code:

---

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

Private Sub CommandButton2_Click() 'la plage cellule "g2" en chiffres Cells(2, 7).Select 'copie de la selection Selection.Copy 'Selection d'une autre page dans le classeur Sheets("element fiche chantier").Select 'selection d'une cellule ou tu desire coller la selection Cells(2, 2).End(xlUp)(2).Select 'Colle la plage copiée ActiveSheet.Paste   End Sub

---

Pouvez-vous m'aider?

Merci beaucoup

Bonjour et bienvenue sur nos forums.

Chez moi, ton code fonctionne bien... Peux-tu préciser sur quelle ligne il s'arrête (ligne en jaune).

Par contre, je ne comprends pas la ligne

Code:

---

Cells(2, 2).End(xlUp)(2).Select

---

qui renverra toujours B2, à mon avis...

De plus, il y a moyen de faire cela sans sélectionner les cellules et les feuilles

Code:

---

Cells(2, 7).Copy Destination:=Sheets("element fiche chantier").Cells(2, 2)

---

Peux-tu préciser le contexte et ce que tu souhaites réaliser?