[VBA-E] Affecter un tableau à une plage de cellules, serait-ce possible ?

Version imprimable

08/02/2007, 00h07
ouskel'n'or

[VBA-E] Affecter un tableau à une plage de cellules, serait-ce possible ?

Comme VBA nous cache plein de choses, j'ai pensé qu'il existait peut-être un fonction cachée... :lol:

J'ai un tableau renseigné, Tableau(25)
J'ai une plage Range("A1:A25) ou Range($A$1;$A$2;$A$3;$A$4;$A$5;$A$6;$A$7;$A$8;$A$9;$A$10;$A$11;$A$12;$A$13;$A$14;$A$15;$A$16;$A$17;$A$18;$A$19;$A$20;$A$21;$A$22;$A$23;$A$24;$A$25")
Est-il possible de renseigner toute la plage à l'aide d'une seule ligne de commande ?
Un truc dans le genre

Citation:

Range(Plage) = Tableau

qui bien sûr ne fonctionne pas...
Merci de vos nombreuses réponses

Salut

Il y'a ceci dans la FAQ
http://vb.developpez.com/faqvba/?page=3.4.4#TabVariant

Je pense que cette partie
Code:

1 2 3 4 5 6 7 8 9 Dim Montab As Variant, cmpt1 As Long, cmpt2 As Long Montab = Range("A1:J65535").Value For cmpt1 = LBound(Montab, 1) To UBound(Montab, 1) For cmpt2 = LBound(Montab, 2) To UBound(Montab, 2) Montab(cmpt1, cmpt2) = Montab(cmpt1, cmpt2) * 2 + 3 Next cmpt2 Next cmpt1 Range("A1:J65535").Value = Montab
peut t'aider

Starec

Merci de ta réponse, Starec. Elle aurait pu m'aider récemment pour répondre à une autre question ;)

Je vais être plus clair quant à ma question.
RowSource permet de placer une plage de données dans une liste.
Avec RowSource, une liste n'est autre qu'un tableau de données solidaire de la plage.
Je prends "seulement" le problème à l'envers.
Imagine une liste dont on pourrait modifier les données entraînant la mise à jour de la plage de cellules liée.
Seulement, ma question porte sur un simple tableau dont la modification entraînerait la mise à jour d'une plage.
Range(Cells(1, 1), cells(1, Ubound(LeTableau))) = LeTableau (*)
Un exemple valant mieux qu'un long discours...
Code:

1 2 3 4 5 6 Dim Tableau Tableau = Array("", "JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC") Set Plage = Range("A1:L1") For Each Cel In Plage Cel.Value = Tableau(Cel.Column) Next
Ce code écrit Tableau dans la plage A1:L1
Si je change Tableau(7) = "JUI", je suis contraint de relancer la boucle.
Je "voudrais" une fonction qui fasse ça sur une seule ligne sans me préoccuper de l'index.
En outre, ça faciliterait la réponse à bon nombre de questions récurrentes :mouarf:
Mais je suppose que quelqu'un y a pensé et qu'une dll doit bien exister "quelque part". Non ?

(*) Pour les pinailleurs LeTableau(0) ne contiendrait pas de valeur ;)

une partie de la réponse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Ousk()
Dim Tableau
Dim plage As Range
Tableau = Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC")
Set plage = Range("A1:L1")
plage.Value = Tableau
MsgBox "Avant ... " & Range("G1")
Tableau(7 - 1) = "JUI"
plage = Tableau
MsgBox "Apres ...." & Range("G1")
End Sub

08/02/2007, 10h43
illight

En fait, tu voudrais une fonction replace sur un Tableau en quelquesorte ?

Je crois que j'avais déja vu une réponse, je crois de Alain sur un truc de ce genre, mais faudrait qu eje retrouve le post :mrgreen:
08/02/2007, 10h55
Invité

Re

Ton problème est très interressant, voici une idée, peut-être loufoque.

1 - Création d'une routine avec comme argument
- ton tableau
- ta valeur à remplacer
- où la remplacer

et cette routine te met ta plage à jour quant tu l'as lancé.
Ainsi quant tu lances ta sub, tu met tes valeurs en paramètres et cela lance le remplissage de ta plage

Starec
08/02/2007, 10h56
ouskel'n'or

Non, Illight, mais c'est toujours intéressant, je compte sur toi ;)
Je ne veux pas remplacer une donnée dans mon tableau, le but n'est pas celui-ci. Il est d'affecter un tableau à une plage de cellule.
Mais toute idée est bonne à prendre.
08/02/2007, 11h05
Invité

Re

Pour la transportabilité de cette routine tu pourrais rajouter en paramètres, la feuille et la plage de cellule (où le début de ta plage)

Quand au DLL ?

Starec
08/02/2007, 11h29
SfJ5Rpw8

Citation:

Envoyé par ouskel'n'or

Non, Illight, mais c'est toujours intéressant, je compte sur toi ;)
Je ne veux pas remplacer une donnée dans mon tableau, le but n'est pas celui-ci. Il est d'affecter un tableau à une plage de cellule.
Mais toute idée est bonne à prendre.

:oops: soit je suis bouché ... où tu n'as pas essayé mon code ..:koi:
08/02/2007, 11h51
ouskel'n'or

Désolé, bbil, j'ai encore lu en diagonale. :oops:
Tu as raison, la réponse tient en une ligne :

Code:

plage.Value = Tableau

C'est le value qui change tout. Je me confonds en excuses.
Si je posais la question, au départ, c'est qu'il me semblait bien avoir vu "quelque chose" qui faisait ça sur le forum mais je n'avais pas la syntaxe. Là :oops: je ne l'oublierai plus :oops:
Un gros merci bbil :king: ... et à tous les autres.

Question subsidiaire : si ma plage n'est pas homogène, A1;C1;G1... cette solution fonctionne-t-elle ? Je vais m'empresser de tester ça.

Je viens de tester
Code:

1 2 3 4 5 Dim plage As Range Set plage = Range("$A$1,$C$1,$E$1,$G$1,$A$11,$A$13,$A$17,$A$19,$A$23,$A$29,$A$31,$A$37") Dim Tableau Tableau = Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC") plage.Value = Tableau
Pour chaque cellule j'obtiens Tableau(0)
Peut-être cela a-t-il une utilité (!) mais là je ne vois pas.

Edit
Si, on peut faire un calendrier ! :yaisse2:
Code:

1 2 3 4 5 6 7 8 Dim plage As Range Dim Tableau Dim adresses as string Range("A1:Z1").Delete Tableau = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche") Adresses = Range("A1:G1,H1:N1,M1:S1").Address Set plage = Range(Adresses) plage.Value = Tableau
...............................:mouarf3:

NB - Et pendant ce temps là il y en a qui travaillent...