Dans cet article, vous apprendrez à copier des données d’un classeur à un autre et à transposer les données à l’aide du code VBA.

[.underline] # Comprenons avec un exemple: # Nous avons 2 classeurs – Book1 & Book2 Book2 contient les données saisies dans Book1. Reportez-vous ci-dessous à un aperçu du livre1

img1

Les données saisies dans Book1 doivent être copiées après la transposition des données lorsque nous cliquons sur le bouton de commande (Soumettre) dans Book2. Reportez-vous ci-dessous à un aperçu du livre 2

img2

Lorsque nous entrons les données dans Book1; les données seront copiées dans Book2 en un seul clic sur le bouton de commande.

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

img3

Cliquez sur le bouton de commande Cela ouvrira Command Button1_Click Object Entrez le code suivant dans l’objet CommandButton1

Sous-commande privée CommandButton1_Click ()

Dim Product As String

Dim Price As Single

Dim Book2 comme classeur

===

Feuilles de travail (« feuille1 »). Sélectionnez

Produit = Gamme (« B1 »)

Prix = Gamme (« B2 »)

===

Set Book2 = Workbooks.Open (« F: \ USER Account \ Desktop \ Excel \ Book2.xlsx »)

Feuilles de travail (« feuille1 »). Plage (« A1 »). Sélectionnez

RowCount = Feuilles de calcul (« sheet1 »). Range (« A1 »). CurrentRegion.Rows.Count

Avec feuilles de calcul (« feuille1 »). Plage (« A1 »)

.Offset (RowCount, 0) = Produit

.Offset (RowCount, 1) = Prix

Terminer par

Book2.Save

End Sub

img4

Après avoir cliqué sur le bouton Soumettre sur Book1, les données seront transférées vers Book2.

Si nous saisissons d’autres informations sur les produits dans Book1 et que nous cliquons sur le bouton Soumettre, le Book2 s’ouvrira et les données seront copiées puis enregistrées.

Instantané du livre1

img5

Résultat dans Book2

img6

De cette façon, nous pouvons facilement copier les données d’un classeur Excel vers un autre.