Comment créer un bouton de commande pour copier et coller des données dans Excel?

Supposons que vous deviez copier fréquemment une plage de cellules à un autre endroit après avoir modifié les données, la méthode de copier-coller manuellement sera difficile et prend du temps. Comment faire en sorte que cette affaire de copier-coller s'exécute automatiquement? Cet article vous montrera comment utiliser un bouton de commande pour copier et coller des données en un seul clic.

Créez un bouton de commande pour copier et coller des données avec du code VBA

Créez un bouton de commande pour copier et coller des données avec du code VBA

Veuillez procéder comme suit pour copier et coller des données automatiquement lorsque vous cliquez sur un bouton de commande.

1. Insérez un bouton de commande en cliquant sur Développeur > insérer > Bouton de commande (contrôle ActiveX). Voir la capture d'écran:

2. Dessinez un bouton de commande dans votre feuille de calcul et cliquez dessus avec le bouton droit. Sélectionner Voir le code dans le menu contextuel.

3. Dans le pop-up Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine dans la fenêtre Code par le code VBA ci-dessous.

Code VBA: utilisez le bouton de commande pour copier et coller des données dans Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Notes: Dans le code, CommandButton1 est le nom de votre bouton de commande inséré. A1: C17 est la plage que vous devez copier et J1: L17 est la plage de destination pour coller les données. Veuillez les changer selon vos besoins.

4. presse autre + Q touches pour fermer le Microsoft Visual Basic pour applications la fenêtre. Et désactivez le mode de conception sous l'onglet Développeur.

5. Cliquez maintenant sur le bouton de commande, toutes les données de la plage A1: C17 seront copiées et collées dans la plage J1: L17 sans le formatage de cellule.

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat...

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...

43 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Bumz · 2 months ago
Bagaimana cara membuat rumus pada worksheet tertentu hanya boleh paste value?? Terimakasih.
- Reply
To post as a guest, your comment is unpublished.
Ecks · 6 months ago
Can I have the code that will copy range I4:L26 from Sheet2(called TransferSheet)(button will be on this sheet) to Sheet1(called JobsToDo) on C to F rows(1st line that is blank since this will have data added constantly please
- Reply
To post as a guest, your comment is unpublished.
kwinter16 · 8 months ago
How do you create an ADD A ROW Button in VBA to where it only copies the formulas and formatting from the current row without adding the additional data manually put in? EXAMPLE: I am only trying to copy the formatting and functions within the cells A11:T11, while keeping a blank page below so the only way to add information is if you click the 'add a row button? Any Thoughts?
- Reply
- To post as a guest, your comment is unpublished.
  kwinter16 · 8 months ago
  
  a screen shot of worksheet I'm working on
  
  Reply
To post as a guest, your comment is unpublished.
kwinter16 · 8 months ago
How do I create an add a row button in VBA? I Have this code that copies 'sheet1 of to 'sheet2, but I only want the to keep the formulas and formatting without the old data that Is on sheet1.

-------------
Public Sub CopySheetAndRename()
Dim newName As String

On Error Resume Next
newName = InputBox("Enter the name for the copied worksheet")

If newName <> "" Then
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = newName
End If
End Sub
-----------------

Any ideas?
- Reply
- To post as a guest, your comment is unpublished.
  Josh Frederick · 6 months ago
  
  Hey did you figure this out? I wanted to do the same.
  
  Reply
To post as a guest, your comment is unpublished.
JASPREET BILKHU · 10 months ago
Hello,

how would i change code to do below:

i want the cells to copy into another tab that is open on spreadsheet and fill into specific cells and its a table so theres date in the table already so this would go directly under
- Reply
To post as a guest, your comment is unpublished.
tankey007 · 1 years ago
Hi guys. this needs some help, please. I need to create a 10*button in my worksheet(Sheet1) that will copy 3 cells, Example: Sheet1, A1, B1, C1. then paste that in Sheet2 A1, B1, C1. then if I click button 4, example: Sheet1, A4, B4, C4, I need this to past in Sheet2, A2, B2, C2. If I click Button 2 then it must pass in Sheet2, A3, B3, C3. I hope this makes sense.
- Reply
To post as a guest, your comment is unpublished.
Teddie · 1 years ago
and also, copy and paste cell one at a time..

Thank you for your help!
- Reply
To post as a guest, your comment is unpublished.
Teddie · 1 years ago
how to code for copying cell from range a1 to a5 to paste into c1 and to next available cell sequentially?
- Reply
To post as a guest, your comment is unpublished.
Abi · 2 years ago
This is fab - i've adapted for my s.sheet but I need it to be more dynamic and use labels rather than hard code the cell locations.
I.e in the range of A2-A6 find the name 'Jamie' and then find the name in Column K2 and paste

I also need each click to +1 and run the same copy and paste but to the next column i.e.

click 1 - pastes into Q1, Click 2 - paste into Q2 etc

Example:

Column A Column B ...... Column K Column L
1. Name Hrs worked Name Q1 Q2 Q3 Q4
2. Jamie 22 Sammy <Paste here>
3. Sammy 40 Judith <Paste here>
4. Judith 18 Jamie <Paste here>
5. Tammy 16 Keith <Paste here>
6. Keith 42 Tammy <Paste here>

Any help would be greatly appreciated.
- Reply
To post as a guest, your comment is unpublished.
Jonas · 2 years ago
Hello!
Is there a way to make a code so i can have a button copy a range (lets say A1:D5).
And then paste it to A6:D10.

And if i press the button once more it will copy A1:D5 to A11:D15.

And so on?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Jonas,
  Sorry can't help you for that. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Lexi · 2 years ago
Is it possible to make a button that just copies one selected cell on one sheet to another sheet? Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi lexi,
  The below VBA code can help you solve the problem. Please change "Sheet3" to the sheet name as you need.
  Select a cell and press the command button to make it work.
  
  Private Sub CommandButton1_Click()
  Dim xSWName As String
  Dim xSheet As Worksheet
  Dim xPSheet As Worksheet
  Dim xIntR As Integer
  xSWName = "Sheet3"
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xSheet = ActiveSheet
  If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
  Selection.CurrentRegion.Select
  Selection.Copy
  Set xPSheet = Worksheets.Item(xSWName)
  xIntR = xPSheet.UsedRange.Rows.Count
  xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End If
  Application.ScreenUpdating = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
shantanujoshi4@gmail.com · 2 years ago
please send VBAcode for copy single cell content using commmand button click without using text box so tha will be able to paste in any application like notepad,msword
- Reply
To post as a guest, your comment is unpublished.
angela · 2 years ago
master bagaimana jika berbeda sheet dan copy data yg diinginkan
contoh sheet1 hanya data kolom B & kolom D copy ke sheet2
terimakasih
- Reply
To post as a guest, your comment is unpublished.
Ted Jillett · 2 years ago
I'm looking for some help on that a user can click on a row number and then hit the command button that it will make a copy of that row and insert it into the row below it.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good day,
  Sorry can help you with that yet. Thanks for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Yesaya · 2 years ago
hi, help my case, i want have a button to generate macro where i have excel and export the data where in the <" "> to word, thanks
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi,
  Sorry I didn't get your point. Would be nice if you could explain with more details of what you are trying to do.
  
  Reply
To post as a guest, your comment is unpublished.
Kyaw Ye Min · 2 years ago
Hi Author,

The article you mentioned above is very helpful to me. I am not used to excel code and command. I still need to know rather than this article. I am ok with the copy and paste into next sheet. But I still need to know "how to paste and add into new line in next sheet every time I press the button". Otherwise, my data on next sheet will be replaced every time. I would really be grateful and looking forward to see your reply.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Kyaw Ye Min,
  Sorry for replying so late. Follow the steps and replace the code with the below. In the code, Sheet4 is the destination worksheet you will copy data into, please change it and the copied range A1:C17 as you need. Thanks for your comment.
  
  Private Sub CommandButton1_Click()
  Dim xSWName As String
  Dim xSheet As Worksheet
  Dim xPSheet As Worksheet
  Dim xIntR As Integer
  xSWName = "Sheet4"
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xSheet = ActiveSheet
  If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
  xSheet.Range("A1:C17 ").Copy
  Set xPSheet = Worksheets.Item(xSWName)
  xIntR = xPSheet.UsedRange.Rows.Count
  xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End If
  Application.ScreenUpdating = True
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Chris · 2 years ago
  
  Hi there please help. I require the same as above but i just need to paste whatever the active cell is into a new line (if possible above previous entries) in a different worksheet. Really appreciate any help with this. Best Regards
  
  Reply
To post as a guest, your comment is unpublished.
Jim · 2 years ago
I have a qusrion I have sheet 1 with a column of date b3:b33 and I want that to be copied to sheet 2 B33:b63 its text but I need the same format for text ie colour size
- Reply
To post as a guest, your comment is unpublished.
Robbert · 2 years ago
If I want to Copy this not in the current workbook but into another workbook (which is still not opened) in excel. How do I change this VBA code accordingly?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Robbert,
  Sorry can't help you with that. Thanks for commenting.
  
  Reply
To post as a guest, your comment is unpublished.
MangkaNorr · 2 years ago
sir how to copy the range of the cell in current worksheet then paste to another worksheets ?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi,
  The below VBA code can help you solve the problem.
  You need to replace the "Sheet4" and "A1:C17" in the code with your specified sheet and range.
  
  Private Sub CommandButton1_Click()
  Dim xSWName As String
  Dim xSheet As Worksheet
  Dim xPSheet As Worksheet
  Dim xIntR As Integer
  xSWName = "Sheet4"
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xSheet = ActiveSheet
  If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
  xSheet.Range("A1:C17 ").Copy
  Set xPSheet = Worksheets.Item(xSWName)
  xIntR = xPSheet.UsedRange.Rows.count
  xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End If
  Application.ScreenUpdating = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Adam · 3 years ago
Would it be possible to for the command button to instantly paste the selected range to a specified sheet (in the next empty cell) rather than having to input each time where you want to paste the data?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Adam,
  The below VBA code can help you solve the problem.
  You need to replace the "Sheet4" and "A1:C17" in the code with your specified sheet and range.
  
  Private Sub CommandButton1_Click()
  Dim xSWName As String
  Dim xSheet As Worksheet
  Dim xPSheet As Worksheet
  Dim xIntR As Integer
  xSWName = "Sheet4"
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xSheet = ActiveSheet
  If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
  xSheet.Range("A1:C17 ").Copy
  Set xPSheet = Worksheets.Item(xSWName)
  xIntR = xPSheet.UsedRange.Rows.count
  xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End If
  Application.ScreenUpdating = True
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  MHShoman · 2 years ago
  
  very good , i need to copy and paste many time is it possible to make a choice to paste a row of data to 3 rows or 5 rows whatever i like ?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Sorry can't help you with that
  
  Reply
To post as a guest, your comment is unpublished.
48jjmm · 3 years ago
I would like to expand this one step... After pasting the actual values not formulas... I need to copy the new cell and paste in another program that's not excel, should simply I need to click the button copy the formula from a specific cell and past the actual value in another, then copy that new value to windows clipboard to past in another app. Hope this make sense, and appreciate your help in knowing how to add the new code... I know what I want it to do, just not familiar with how to code it...
Thanks
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi,
  The code has been updated in the article, please have a try. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Magnus · 3 years ago
What if I would like to make a paste queue?
To explain further. I click CommandButton1 then it copy A1. When I have used paste, the copy from A1 - Then I want to copy A2 without clicking another button, so that I can paste A2 right away, somewhere else. Then When I have used paste, the copy from A2 then copy A3. If that is possible? Can this also work in the background when use a normal Excel sheet, and try to do this action where I copy from Excel, and then paste in a completely different program like a internet browser, another program, word, txt file, and so on?

This article was anyway extremely helpful, thank you so much!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Magnus,
  Sorry can't help you with that. Thanks for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
azam.asbali@gmail.com · 3 years ago
how is the formula for us to copy files
then paste it to the next sheet. and paste the next one make a space or keep going down without deleting the previous paste.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good day,
  The below VBA code can help you solve the problem. Please have a try. Thank you.
  
  Private Sub CommandButton1_Click()
  Dim xSheet, xDWS As Worksheet
  Dim xFNum As Integer
  Dim xSRg As Range
  
  On Error Resume Next
  Set xSRg = Application.InputBox("Please select cell to paste the range:", "Kutools for Excel", xTxt, , , , , 8)
  If xSRg Is Nothing Then Exit Sub
  
  Application.ScreenUpdating = False
  Range("A1:C17 ").Copy
  xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.ScreenUpdating = True
  
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Jason · 3 years ago
How can you alter the code to paste the results to another page with in the workbook? and how do you get the insert a row before putting the new data in so it does not overwrite it
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Jason,
  If you want to paste the results to another worksheets within the workbook, please try the below VBA code.
  
  Private Sub CommandButton1_Click()
  Dim xSheet, xDWS As Worksheet
  Dim xFNum As Integer
  Dim xSRg As Range
  
  On Error Resume Next
  Set xSRg = Application.InputBox("Please select cell to paste the range:", "Kutools for Excel", xTxt, , , , , 8)
  If xSRg Is Nothing Then Exit Sub
  
  Application.ScreenUpdating = False
  Range("A1:C17 ").Copy
  xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.ScreenUpdating = True
  
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Dom · 4 years ago
I have used this function in my workbook. I am using active x buttons to copy and paste data within the same sheet on multiple sheets. However there are sheets without active x buttons or macros that get pasted data from the respective fields on the sheet which I don't want. Help?
- Reply
- To post as a guest, your comment is unpublished.
  Razvan Gaina · 6 months ago
  
  Can I have the code that will copy range I4:L26 from Sheet2(called TransferSheet)(button will be on this sheet) to Sheet1(called JobsToDo) on C row(1st line that is blank since this will have data added constantly please
  
  Reply

Connectez-vous à votre compte

Réinitialiser mot de passe