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

[MAN]

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

 

[Lone-wolf]

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.

 

[job75]

Bonjour MAN, Lone-wolf,

Ouvrez les 2 fichiers, mettez cette macro où vous voulez et lancez-la :

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+

 

[Lone-wolf]

Bonjour Gerard 🙂

@job75

Tu as écrit End If au lieu de End With 😉

 

[job75]

Tu as écrit End If au lieu de End With 😉

En effet, je viens de corriger, merci.

 

[Lone-wolf]

Re

@job75: c'était pas grand chose. 😉

 

[MAN]

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

 

[job75]

Bonsoir,

cependant, je voiudrai effectuer le tri par colonnes

Le tri ? Quel tri ? Au post #1 vous ne parlez que de copier-coller.

Si c'est un autre sujet créez une nouvelle discussion.

A+