Discussion :

[johannj]

Re bonjour le forum,

Je souhaite avoir des informations concernant les tableau SVP.

si je definie un tableau par le code suivant:

Code :

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

1
2
3
4
5
6
 
dim Rcontact() As Variant
dim WB as Workbook
Dim TreatedFile As Workbook
 
Rcontact() = TreatedFile.Worksheets(1).Range("A2.E2").Value

Mon tableau va "être" une ligne. Est-il ensuite possible de copier les valeurs en colonne?
Genre:

Code :

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

WB.Worksheets(1).Range("A2:A5").Value = Rcontact()

J'ai déjà essayé, mais ça me copie uniquement les premiers valeurs du tableau dans toute la colonne

Autre question, est il possible de remplacer:

Code :

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

WB.Worksheets(1).Range("A2:A5").Value = Rcontact()

par:

Code :

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

WB.Worksheets(1).Range(Cells(1,1), Cells(1,5)).Value = Rcontact()

A chaque fois que je le tente (avec ou sans point devant le "cells"), j'ai une erreur (1004, 438...)

Merci de votre aide,
johann

[Minick]

Salut,

Comme ceci:

Code :

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

1
2
3
 
Rcontact = TreatedFile.Worksheets(1).Range("A2.E2").Value
TreatedFile.Worksheets(1).Range("A2:A6") = Application.WorksheetFunction.Transpose(Rcontact)

++
Minick

[casefayere]

Bonsoir,
une autre solution à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Base 1
Sub essai()
Dim Rcontact(5) As Variant, x As Integer
Dim WB As Workbook
 
For x = 1 To 5
Rcontact(x) = Cells(1, x)
Range("f" & x + 1) = Rcontact(x)
Next x
End Sub

[Minick]

Pour la seconde partie

Code :

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

1
2
3
With WB.Worksheets(1)
   .Range(.Cells(1,1), .Cells(1,6)).Value = Application.WorksheetFunction.Transpose(Rcontact)
End With

++
Minick

[johannj]

Merci Minick pour les infos...
Concernant le transpose, j'avais pas pensé et je ne savais pas que l'on pouvais l'appliquer aux tableaux.

Pour la seconde partie, on est donc obligé de faire une boucle with??

[Minick]

Ce n'est pas une boucle With

C'est juste pour faciliter l'ecriture et la lecture.

Dans ton cas
With WB.Worksheets(1)

permet de ne pas resaisir WB.Worksheets(1)
a chaque fois que tu dois utiliser une des proprietes ou methode de celui ci
il suffit juste de commencer par un point (.).
Et cela jusqu'a rencontrer le End With

Pour des infos plus completes F1 sur With

++
Minick

[johannj]

Re,

Merci pour tes informations Minick.
Cependant, je savais déjà "à quoi sert" le with.
Ce que je souhaite comprendre,
c'est pourquoi cela fonctionne avec la boucle with, donc avec le code suivant:

Code :

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

1
2
3
4
5
 
Rcontact = TreatedFile.Worksheets(1).Range("A2.E2").Value
With WB.Worksheets(1)
   .Range(.Cells(1,1), .Cells(1,6)).Value = Application.WorksheetFunction.Transpose(Rcontact)
End With

et pas avec ce code (avec la présence ou non de point devant le "cells" (si je comprends bien l'aide, ils ne sont pas nécessaires car le classeur actif dans le code suivant est "WB")):

Code :

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

1
2
 
WB.Worksheets(1).Range(.Cells(1,1), .Cells(1,6)).Value = Application.WorksheetFunction.Transpose(Rcontact)

Sans la boucle with, j'ai une erreur 1004....

Moi, pas comprendre!!

Merci pour tes renseignements,
johann