Astuces Excel
  1. Astuces Excel
  3. Comment transposer un lien en utilisant VBA
Intereting Posts
Effectuez un numéro de page à l'aide de lettres dans une cellule dans Excel? Essayer de créer un nouveau file .xlsx à l'aide de NPOI et lui écrire Excel VBA – Obtenez les valeurs de UserForm Label Caption Property Comment find des lignes d'parsing et entrer des données dans une table Création d'une table SQL à partir d'un file xls (Excel) Intégrez Excel avec SQL Server Compter des valeurs uniques par groupe éliminant les duplicates entre les groupes par Excel Excel vba: searchz la valeur dans une autre feuille Autosum Cells VBA Excel Analyser un Json (avec tableau et objects) et exporter datatables dans le file Excel dans Node.js Index de colonne de return d'une correspondance Boîte Combo Style Excel dans les feuilles de Google Erreur 1004 VB6 remplissant Excel J'ai créé un pied de page personnalisé dans Excel. Maintenant, comment puis-je l'enlever, en permanence? Trouble avec l'énonciation FI nestede

Comment transposer un lien en utilisant VBA

Disons que j'ai une ligne sur une feuille: 

A1 B1 C1 D1 E1

Je souhaite copyr, transposer et coller des liens vers ces cellules vers une autre feuille dans Excel, de la manière suivante: 

 =Sheet2!A1 =Sheet2!B1 =Sheet2!C1 =Sheet2!D1 =Sheet2!E1

Existe-t-il un moyen de le faire avec VBA? Pour une raison quelconque, ce code ne fonctionne pas et tout ce que je reçois est 

 =Sheet2!A1 =Sheet2!A2

etc. 

 Sub Pastelinks() Worksheets("Data_All_01").Range("$D$23:$AG$23").Copy With Worksheets("DB 1,5€").Range("$F$287") .PasteSpecial Transpose:=True .Activate ActiveSheet.Paste Link:=True End With End Sub

Évitez de copyr / coller dans vba 

 Sub test() Dim i As Integer, ii As Integer Dim ws As Worksheet Set ws = Worksheets("DB 1,5") 'insert euro character back '4 is column D '33 is column AG For i = 4 To 33 ws.Cells(287 + ii, 6).FormulaR1C1 = "=Data_All_01!R23C" & i ii = ii + 1 Next End Sub

Cela prendra les valeurs de la gamme A1: A4 de la feuille de travail ouverte et les mettra en feuille (2), en utilisant la colonne de départ et la ligne de la plage initiale. 

 Option Explicit Sub TransposeMe() Dim my_cell As Range Dim l_counter As Long Dim l_row As Long Dim l_col As Long l_row = Range("A1:D1").Row l_col = Range("A1:D1").Column For Each my_cell In Range("A1:D1") Sheets(2).Cells(l_row, l_col) = my_cell l_row = l_row + 1 Next my_cell End Sub