Copier coller..

[Jeanvoil]

Bonjour,

J'essaie de sélectionner une plage de cellules et de la copier dans une autre feuille. La sélection se fait bien mais mais pas la copie ..

Mon code:

Sheets('TabRecapTNQ').Activate
Cells(4, i).Select
Selection.Copy
Sheets('Graph').Activate
Cells(4, i).Select
ActiveSheet.Paste

Merci ..

 

[Dan]

Bonjour,

Je suppose que i est défini avant dans ta procédure.
Essaie ceci :

Sheets('TabRecapTNQ').Activate
Cells(4, i).Select
Selection.Copy
Sheets('Graph').Activate
Range('A1').select 'avec A1 la 1ere cellule de destination
ActiveSheet.Paste