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
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.
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...
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