Discussion :

[VB-b-a-ba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zoltar_x]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.Transpose

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 .)


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)

[VB-b-a-ba]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.Transpose

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

[VB-b-a-ba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[VB-b-a-ba]

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 .)


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)

merci je vais m'en inspirer.

[VB-b-a-ba]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.Transpose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ne marche pas
Ni meme avec Worksheet tout court.