Collage Spécial dans la Cellule Active à l'aide de VBA

Je veux copier un tableau (plage A1 à AV3) à partir de la Feuille de travail 2 à la Cellule Active dans la Feuille de calcul 1

mon code actuel est:

Private Sub CommandButton1_Click()
Worksheets("Sheet2").Range("A1:AV3").Copy
Worksheets("Sheet1).ActiveCell.PasteSpecial Paste:=xlPasteFormats
Worksheets("Sheet1").ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub

quelqu'un peut m'aider à résoudre ce problème?
Je veux que chaque fois que je clique sur le bouton, on copie à la cellule active.

  • Si la feuille "Sheet1" n'est pas "Actif", puis ActiveCell ne sera pas sur cette feuille.
  • le bouton est sur la Feuille 1, donc la feuille "Sheet1" sera active lorsque je clique sur le bouton..
  • il vous manque un peu de " à la fin de Worksheets("Sheet1).ActiveCell.PasteSpecial Paste:=xlPasteFormats , devrait être Worksheets("Sheet1").ActiveCell.PasteSpecial Paste:=xlPasteFormats
  • ah, déjà corrigé, mais encore cant coller le tableau
InformationsquelleAutor Rosya Chairani | 2017-03-11
  1. 2

    En supposant que votre ActiveCell est dans "Sheet1", et la Commande-Bouton est aussi dans "Sheet1", il n'y a pas besoin d'ajouter Worksheets("Sheet1") avant ActiveCell, il suffit d'utiliser quelque chose comme le code ci-dessous:

    Private Sub CommandButton1_Click()

Worksheets("Sheet2").Range("A1:AV3").Copy
ActiveCell.PasteSpecial xlPasteFormats
ActiveCell.PasteSpecial xlPasteValues

End Sub
    • aaaaa merci beaucoup, cela fonctionne, thankssss
    • assurez-vous que votre ActiveCell est en effet dans "Sheet1"
    • Ne serait pas le activecell ont pour être sur la feuille "Sheet1" si l'utilisateur a cliqué sur un bouton sur la feuille "Sheet1" (le code du bouton est sur la feuille Sheet1 de codesheet)? Baring quelqu'un qui essaie de par programmation en cliquant sur la private sub sur la feuille Sheet1 de codesheet quand une autre feuille de calcul a été active de cours. Je suppose qu'il pourrait échouer si un objet a été sélectionné cependant.
    • J'ai pu avoir activecell dans "feuil2" et appuyez sur le bouton "sheet1", je suppose que ce n'est pas raisonnable, mais avant je obtenir des "sages" commentaires ici, j'ai ajouté qu'
    • Oui, je suppose que le surplus de rigueur est nécessaire pour valider la solution. Bonne réponse btw.
    InformationsquelleAutor Shai Rado