Copier dans un autre workbook avec transposition
Bonjour,
Je souhaite copier une ligne de valeurs d'un workbook vers un autre workbook sous forme de colonne, voici le code que j'ai trouvé :
wbSub.ActiveSheet.Range(Cells(tagrow, startData), Cells(tagrow, lastColumn)).Select
Selection.Copy
wbMain.ActiveSheet.Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Mais j'ai une erreur à la 3e ligne
wbMain.ActiveSheet.Range("A8").Select
D'après le débogage, à cause du "range".
Sinon, j'ai trouvé ce code :
wbSub.ActiveSheet.Range(Cells(tagrow, startData), Cells(tagrow, lastColumn)).Copy _
wbMain.ActiveSheet.Range("A8")
Qui fonctionne très bien, mais je ne vois pas du tout comment transposer.
Pouvez-vous m'aider à compléter l'un des deux codes pour faire ce copier/coller svp ?
Merci d'avance pour votre réponse
bonjour
il semble que ce soit un job pour Power Query
à installer sur ta version d'Excel
il est gratuit, et il est inclus dans les versions plus récentes
https://www.youtube.com/watch?v=gwW2CDdvUUs
ensuite, menu Power Query, obternir ou Récupérer, de fichier Excel
navigue vers tes données
valide
ça ouvre la fenêtre de PQuery, et tu vois une sorte de copie de tes données
dans le menu "modifier", il y a un bouton "transposer"
puis "charger"
amitiés
Bonjour,
Merci pour ta réponse, j'ai jeté un œil à Power Query, et il se trouve que je dois faire une demande au support info de l'entreprise pour pouvoir l'installer... ce qui implique que je l'aurai dans les mois qui viennent.
Est-ce qu'il y a une autre méthode qui nécessiterait que quelques lignes de code ?
Merci d'avance,
re
1/
ton SI est un frein, alors qu'il devrait être force de progrès rapide
il y a longtemps qu'ils auraient dû installer PQuery sur tous les PC
les SI ne sont plus ce qu'ils étaient. Ils ont peur de perdre leur pouvoir.
2/
pour VBA, je passe la parole à d'autres spécialistes sur le forum. Je les salue au passage
amitiés à tous
1/ sur ce point je suis d'accord, interdiction de télécharger chez soi et de l'amener au travail, mais impossible de l'avoir directement ni rapidement
Merci pour ta réponse