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
 

Fichiers joints

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.
 

Fichiers joints

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:

MAN

XLDnaute Occasionnel
bonjour le forum
merci. pour votre aide.
cependant, je voiudrai effectuer le tri par colonnes avec ou sans usf. c'est possible, si oui, comment
merci encore
 

Discussions similaires


Haut Bas