Ranger un bout de colonne dans une array et mettre cette array dans un bout de ligne

Bonjour

Je cherche a stocker des résultats qui sont sur 20 cellules l'une en dessous de l'autre dans un tableau l'une a coté de l'autre.
Puis ensuite on change les parametres et on recommence une ligne en dessous

Pour cela j'ai compris que le plus rapide était ARRAY

Mon code ne marche étant donné ma mauvaise connaissance de la syntaxe et de bien d'autres choses

Code:

---

1 2 3

Dim myArrFin As Variant myArrFin = Application.Transpose(Worksheets("feuilledecalculs").Range(Cells(96, numero2colonne + 3), Cells(114, numero2colonne + 3))).Value2

---

rien n'y fait array reste vide

ensuite je voulais ranger le tout comme ça

Code:

---

1 2 3

Sheets("BData").Range(Cells(numero2ligne, numero2colonne), Cells(numero2ligne,numero2fin2colonne)).Value2 = MyArrFin

---

Et voila si vous avez qq tuyaux merci M'sieux Dames

Transpose n'existe pas en VB. C'est une fonction spécifique à Excel. Il faut donc rajouter WorksheetFunction

Code:

---

WorksheetFunction.Transpose

---

Bonjour le fil, bonjour le forum,

@Zoltar, ce que tu dit est vrai toutefois Application.Transpose fonctionne (ne me demande pas pourquoi)...

@VBA, Un exemple basé sur ton code mais en supprimant les variables de ligne et de colonnes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro2() Dim OS As Worksheet Dim OD As Worksheet Dim TV As Variant   Set OS = Worksheets("feuilledecalculs") Set OD = Worksheets("BData") TV = OS.Range(OS.Cells(96, 1), OS.Cells(114, 1)).Value OD.Cells(1, 1).Resize(19, 1).Value = TV 'les données sont renvoyées dans la même colonne OD.Cells(1, 1).Resize(1, 19).Value = Application.Transpose(TV) 'les données sont renvoyées dans la même ligne End Sub

---

Bonsoir …
Dans les possibilités d’Excel,
Application.WorksheetFunction.truc peut se réduire à Application.truc pour peu que truc est ne fonction précise (liste affichée après la saisie du .)
Pièce jointe 534453

Un exemple de transposition d’une sélection dans une colonne d’un tableau de la feuille 1 vers la feuille 2 (évènementielle écrite dans le module de la feuille 1)
Pièce jointe 534457

Citation:

---

Envoyé par zoltar_x

Transpose n'existe pas en VB. C'est une fonction spécifique à Excel. Il faut donc rajouter WorksheetFunction

Code:

---

WorksheetFunction.Transpose

---

---

Merci mais la simple modification entraine une erreur.
je vais tenter d'autres choses
Merci quand même

Citation:

---

Envoyé par Thautheme

Bonjour le fil, bonjour le forum,

@Zoltar, ce que tu dit est vrai toutefois Application.Transpose fonctionne (ne me demande pas pourquoi)...

@VBA, Un exemple basé sur ton code mais en supprimant les variables de ligne et de colonnes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro2() Dim OS As Worksheet Dim OD As Worksheet Dim TV As Variant   Set OS = Worksheets("feuilledecalculs") Set OD = Worksheets("BData") TV = OS.Range(OS.Cells(96, 1), OS.Cells(114, 1)).Value OD.Cells(1, 1).Resize(19, 1).Value = TV 'les données sont renvoyées dans la même colonne OD.Cells(1, 1).Resize(1, 19).Value = Application.Transpose(TV) 'les données sont renvoyées dans la même ligne End Sub

---

---

Je vais regarder.
Je constate quand même que de passer d'adresses fixes avec des adresses variables génère des erreurs dûes à la syntaxe probablement.
Merci

Citation:

---

Envoyé par OrDonc

Bonsoir …
Dans les possibilités d’Excel,
Application.WorksheetFunction.truc peut se réduire à Application.truc pour peu que truc est ne fonction précise (liste affichée après la saisie du .)
Pièce jointe 534453

Un exemple de transposition d’une sélection dans une colonne d’un tableau de la feuille 1 vers la feuille 2 (évènementielle écrite dans le module de la feuille 1)
Pièce jointe 534457

---

merci je vais m'en inspirer.

Citation:

---

Envoyé par zoltar_x

Transpose n'existe pas en VB. C'est une fonction spécifique à Excel. Il faut donc rajouter WorksheetFunction

Code:

---

WorksheetFunction.Transpose

---

---

Code:

---

myArrFin = Application.WorksheetFunction.Transpose(shRead.Range(Cells(4, 1), Cells(4, 3)))

---

ne marche pas
Ni meme avec Worksheet tout court.