recopier les données du tableau d'un fichier A et coller par transposé dans le fichier B

MAN

XLDnaute Occasionnel
Bonjour le forum
j'ai deux tableaux que j'ai voulu simplifier. je voulais, par VBA copier les éléments du tableau ESSAI1 et coller par transposition dans le tableau ESSAI2
merci d'avance
 

Pièces jointes

  • ESSAI 1.xlsx
    8.9 KB · Affichages: 27
  • ESSAI2.xlsx
    8.8 KB · Affichages: 26

Lone-wolf

XLDnaute Barbatruc
Bonjour Man et bienvenue sur XLD :)

Tes fichiers en retours. Si ESSA1 va dans un autre dossier, il faudra changer le chemin dans la macro.
Chemin actuel : fichier = ThisWorkbook.Path & "\ESSAI1.xlsx"
Chemin futur : fichier = "C:\Users\Man\Documents\ESSAI1.xlsx"

Avec ESSAI2, double-clique sur la feuille pour lancer la macro.
 

Pièces jointes

  • ESSAIS.zip
    21 KB · Affichages: 29

job75

XLDnaute Barbatruc
Bonjour MAN, Lone-wolf,

Ouvrez les 2 fichiers, mettez cette macro où vous voulez et lancez-la :
Code:
Sub Transpose()
With Workbooks("ESSAI2").Sheets(1).[A2]
    .CurrentRegion.Clear 'RAZ
    Workbooks("ESSAI 1").Sheets(1).[A3].CurrentRegion.Copy
    .PasteSpecial xlAll, Transpose:=True
    Application.Goto .Cells
End With
Application.CutCopyMode = 0
End Sub
Si votre 1er fichier est nommé "ESSAI1" enlevez l'espace...

A+
 
Dernière édition:

Discussions similaires

Réponses
6
Affichages
362

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou