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

macro permettant de copier et coller plusieurs cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion loiclass
  • 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 !

S'inscrire
L

loiclass

XLDnaute Occasionnel
Bonjour,

Je cherche à copier plusieurs cellules et de les coller dans d'autres cellules sur une 2ème feuilles mais je n'y arrive pas.

Voici la structure de ma macro:

Au départ j'ai une fonction INPUTBOX, ou je demande à l'utilisateur de sélectionner la ligne de début et de fin où les données seront analysées.
Je fais une série de copier/coller qui fonctionne bien (la valeur copiée/collée s'écrase à chaque ligne mais ça ne me pose pas de problème puisque c'est à chaque fois la même).

Par contre il y a une colonne où les valeurs sont différentes sur chaque ligne et je ne veux pas pas qu'elles s'écrasent, mais plutôt que si je copie 5 lignes, 5 lignes soient créées.

mon code pour copier est:

For i = Debut to fin

Worsheets("Feuil1").Range("A"&i).copy
Worsheets("Feuil2").select
Range("B1").select

.........

Quelqu'un peut il m'aider, par ce que là je bloque vraiment.

Merci d'avance
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : macro permettant de copier et coller plusieurs cellules

Bonjour,

pas facile de t'aider avec 3 bouts de code jetés sur un post.... mets plutot un tout petit fichier en pièce jointe représentant uniquement le problème posé mais avec le code COMPLET.

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : macro permettant de copier et coller plusieurs cellules

Bonjour,

Cela peut être t'aider. Je me lance.

Code: 
Sub copier_coller()
Dim pre As Integer
Dim deu As Integer
pre = 1
deu = 12
For i = 1 To deu
Worksheets(2).Select
Rows("1:5").Insert shift = xlDown
Worksheets(1).Range("A2").Copy
ActiveSheet.Paste Destination:=Worksheets(2).Range("A2")
Application.CutCopyMode = False
Next i
End Sub

Amicalement
 
Vote positif 0 Vote négatif
Re : macro permettant de copier et coller plusieurs cellules

Glaine, je teste ton code demain.

Je viens d'ajouter un fichier simplifier au maximum avec mon morceau de code.

Concrètement, la fonction inputbox (qui n'est d'ailleurs pas totalement terminée) sert à sélectionner plusieurs lignes.
je suis bloqué au moment ou je sélectionne et copie les lignes de la colonne "qualité commandée", je veux copier ces lignes dans la feuille "demande échantillons".
Si je sélectionne 5 lignes, je veux coller ces 5 lignes.

J'espère que le fichier aidera à mieux comprendre mon problème.

Merci
 
Vote positif 0 Vote négatif
Re : macro permettant de copier et coller plusieurs cellules

Bonjour,

J'ai essayé le code de GLAINE, mais je n'arrive pas à l'adapter à mon fichier.

Je pense essayer une nouvelle méthode. Il doit exister une formule pour copier une cellule suivant le numéro de ligne.

Merci
 
Vote positif 0 Vote négatif
Re : macro permettant de copier et coller plusieurs cellules

Bonjour à tous,
je suis tout nouveau sur le forum,
je suis belge et j'ai trouvé mon bonheur sur votre forum

malheureusement le code trouvé sur ce fil
fonctionnant très bien certes mais je voudrais le réaliser dans la même feuille
je m'explique
je voudrais recopier mon nom 10 fois à partir de la cellule B1 juque la cellule B10
mon nom se trouve dans la cellule A1 même feuille

Suis-je assez clair ???

Je vous remercie
Amicalement
Jean-Claude
 
Vote positif 0 Vote négatif
Re : macro permettant de copier et coller plusieurs cellules

Bonjour et bienvenue sur XLD

chaton1
Comme tu es nouveau ici, je te conseille amicalement de suivre les bons conseils distillés par la charte du forum
Notamment celui-ci:
Ouvrir une nouvelle discussion pour poser sa question et éviter ainsi de poser sa question dans un fil initié par un autre membre du forum.

A te relire donc dans ta propre discussion 😉

PS: N'oublies de joindre un fichier exemple dans ta nouvelle discussion (mais pas dans celle-ci)
Au passage, ta question peut se résoudre simplement sans macros mais par formules
(en B1=$A$1 puis recopie vers le bas jusqu'en B10)
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
232
job75
  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
383
gosselien
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
299
mapomme
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
786
TooFatBoy
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
434
fenec
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
541
akm
A
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
512
AtTheOne
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
641
sylvanu
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
955
safranien
S
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
381
ChTi160
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
285
matlatarte
M
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
342
StéphaneDeLà
S
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
412
job75
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
384
agnesd
A
D
  • Question Question
Microsoft 365 Problème Option de Collage
Réponses
10
Affichages
840
duduche62
D
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
299
job75
G
  • Question Question
XL 2010 Copier valeur plusieurs cellules vers plusieurs ZoneTexte vba
Réponses
6
Affichages
317
Gnedea
G
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
331
safranien
S
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
579
spike29
S
F
Fdaga
Réponses
0
Affichages
152
Fdaga
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…