Information sur les tableaux

Re bonjour le forum,

Je souhaite avoir des informations concernant les tableau SVP.

si je definie un tableau par le code suivant:

Code:

---

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:

---

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

Autre question, est il possible de remplacer:

Code:

---

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

---

par:

Code:

---

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

Merci de votre aide,
johann

Salut,

Comme ceci:

Code:

---

1 2 3

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

---

++
Minick

Bonsoir,
une autre solution à adapter

Code:

---

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

---

Pour la seconde partie

Code:

---

1 2 3

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

---

++
Minick

Merci Minick pour les infos...:ccool:
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??

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

Re,

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

Code:

---

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")):calim2::

Code:

---

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....:cry:

Moi, pas comprendre!!

Merci pour tes renseignements,
johann

Je le repete ce n'est pas une boucle :roll:

Alors tu utilises le point ce qui sous entend que tu as "ouvert" un bloque With
et que tu veux utiliser une des proprietes ou methode de ton objet.
Mais la ce n'est pas le cas.
Pour que ca fonctionne il faut tout repeter

Code:

---

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

---

++
Minick

Merci Minick pour toutes ces infos...

J'avoue que j'ai encore un peu de mal à bien comprendre :oops:
C'est vendredi soir après tout !!!

Tu me dis que ce n'est pas une boucle With, mais dans ta réponse, tu avais mis les points, donc d'après ton dernier message, l'ouverture de la boucle est sous entendue...8O
Donc dans ce cas, je ne vois pas la différence entre l'ouverture sous entendue de la boucle With, et la "facilitation" de l'écriture lecture!! :oops: (vendredi soir :mouarf:)

Dans tous les cas, merci de m'aider et d'avoir pris un peu de temps...
Je ne connaissais pas le coup de la répétition, je pouvais toujours essayer...

Encore merci de ton aide,
Bonne soirée
Johann

Citation:

---

Envoyé par Minick

Je le repete ce n'est pas une boucle :roll:

---

Je vais insister un peu pour que les choses deviennent plus claires dans ton esprit.
With ne définit pas une boucle mais un bloc.
With ne sert que pour éviter la répétition de morceaux de code pour définir un objet.

Code:

---

1 2 3

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

---

est strictement équivalent à

Code:

---

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

---

Autrement dit, le point (devant Cells, par exemple) ne peut être utilisé que si un bloc With a été ouvert.

Bonjour à tous,

Je vous remercie de vos précisions et informations.
Après un week end de repos, c'est plus clair dans mon esprit, mais c'est surtout grace à vos infos :ccool:

Merci de votre aide,
Johann