Copier-Coller qui ne fonctionne pas (VBA)

Résolu/Fermé
jenor Messages postés 51 Date d'inscription mercredi 10 juin 2015 Statut Membre Dernière intervention 24 juillet 2015 - 30 juin 2015 à 07:46
jenor Messages postés 51 Date d'inscription mercredi 10 juin 2015 Statut Membre Dernière intervention 24 juillet 2015 - 30 juin 2015 à 10:25
Bonjour,

J'ai un petit problème car je voudrais faire un copier-coller d'une feuille à une autre, mais le code ne fonctionne pas et je ne comprends pas pourquoi ...
Voici le code utilisé :

Sub EssaiCopie ()

Sheets("Feuille 1").Range("Q5").Copy
Sheets("Feuille 2").Range("D1").Paste

End Sub

Je vous remercie par avance pour votre aide.
A voir également:

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
30 juin 2015 à 09:38
Bonjour
essaies
Option Explicit
'---------------
Sub EssaiCopie()
Sheets(1).Range("A5").Copy Sheets(2).Range("D1")
Sheets(2).Activate
End Sub

0
jenor Messages postés 51 Date d'inscription mercredi 10 juin 2015 Statut Membre Dernière intervention 24 juillet 2015
30 juin 2015 à 09:53
Cette solution ne fonctionne, finalement j'ai procédé de la manière suivante et ça fonctionne :

Sheets("Feuille 1").Range("Q5").Copy
Range("D1").Select
Sheets("Feuille 2").Paste
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
30 juin 2015 à 10:23
Cette solution ne fonctionne
t'es s^r? pourtant, j'avais essaye
ET MERCI DE TA PART POUR LE TEMPS PASSE A ESSAYER DE T'AIDER



0
jenor Messages postés 51 Date d'inscription mercredi 10 juin 2015 Statut Membre Dernière intervention 24 juillet 2015
30 juin 2015 à 10:25
Je ne sais pas pourquoi la solution ne fonctionnait pas chez moi
Désolé pour cet oubli, d'habitude je ne manque pas de remercier les personnes m'aidant ...
0