Astuces Excel
  1. Astuces Excel
  3. Conversion de lignes en colonnes à l'aide de VBA
Intereting Posts
Comment get la valeur moyenne (des valeurs de colonne) d'une catégorie (dissortingbuée en lignes)? Méthode efficace pour utiliser datatables de la fiche de vérification Excel pour créer et remplir une list dans une nouvelle feuille Processus Excel toujours en cours d'exécution après avoir quitté l'application dans VBScript Afficher le formulaire d'user qui existe dans le complément évaluation des variables dans ssortingng vba excel Comment parsingr une adresse de rue d'une seule cellule dans Excel dans des cellules individuelles lorsque le format d'adresse n'est pas cohérent? Référence de la valeur de la ligne suivante en utilisant les Pandas Comment faire pour que Excel 2007 arrête la mise en forme des cellules? Sélectionnez les tailleurs par date variable Vba macro ajoute des colonnes et des données de valeurs uniques Excel cesse de répondre pendant l'exécution de la boucle Copier datatables d'une colonne, coller dans la première colonne vide PHPExcel: import de xls, format de date pour Ymd Selection.Parter brusquement Arraylist to csv export en javascript

Conversion de lignes en colonnes à l'aide de VBA

J'essaie de convertir une rangée de données en colonnes, Le code que j'utilise ci-dessous envoie ma sélection, mais la dépasse plusieurs fois. 

Sub Movefromrowtocolumn() Range("B3:P3").Select Selection.Copy Range("Y2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

Est-ce ce que vous essayez? 

 Sub Movefromrowtocolumn() Range("B3:P3").Copy Range("Y2").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=True End Sub

Vous devez utiliser Transpose:=True

Aussi INTERESSANT LIRE

Cela a fonctionné pour moi: 

 Sub Movefromrowtocolumn() Range("A1:E1").Select Selection.Copy Range("F1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, transpose:=True End Sub

Peut-être la transposition: = Vrai à la place de faux comme vous l'aviez?