Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier - Coller des valeurs sous d'autres valeurs

  • Initiateur de la discussion Initiateur de la discussion chnook
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

chnook

Guest
Bonjour,

Je souhaiterais créer une macro me permettant de copier puis coller des valeurs provenant d'une feuille 1 vers une feuille 2, à la suite de valeur :

Tableau de la feuille 1 :
A B C D E F G H I
Semaine 1 2 3 4 5 6 7 8 9


Tableau de la feuille 2 :
A B C D E F G H I
Semaine 1 1 2 3 4 5 6 7 8 9
Semaine 2
Semaine 3

Chaque semaine, les valeurs dans le tableau 1 vont être modifiées. Je souhaiterais donc de manière rapide (avec macro) pouvoir les copier dans un tableau récapitulatif
Le code actuellement que j'ai écris ne me permet que de les copier en supprimant les valeurs de la semaine précedente.

Le code et le tableau excel est joint à ce message
Merci d'avance pour votre aide
 

Pièces jointes

Re : Copier - Coller des valeurs sous d'autres valeurs

Bonjour,
remplace

Sheets("Global").Select
Range("C3").Select

par le code suivant:
Sheets("Global").Select
Range("c6000").End(xlUp).Offset(1, 0).Range("A1").Select

cdt
Frédéric
 
Re : Copier - Coller des valeurs sous d'autres valeurs

Aie Aie Aie,

En voulant prendre le même principe mais sur un autre classeur, la formule ne fonctionne plus.
Voici le code :

Sub CC()
Sheets("Feuil6").Select
Range("Z3:AE3").Select
Selection.Copy
Sheets("Feuil4").Select
Range("c6000").End(xlUp).Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil6").Select
Range("C4").Select
Application.CutCopyMode = False
Sheets("Feuil4").Select
Range("C3").Select

End Sub

Merci d'avance
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
727
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…