Discussion :

[pucelo]

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 :

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

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

[Pierre Fauconnier]

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 :

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

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 :

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

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?