array et range

Version imprimable

22/10/2007, 16h15
alsimbad

array et range
Bonjour tout le monde
j'ai un array composé de valeurs de cellule provenant de deux feuilles differentes. pour l'exemple, je n'ai mis que quatre cellules, mais il y en a une centaine

Code:

memoDevisF = Array("", formulaire.Range("c3").Value, formulaire.Range("e3").value,param.Range("d3").Value, param.Range("d4").Value)

puis je redispose ces cellule sur une ligne dans une troisieme feuille
Code:

1 2 3 4 For i = 1 To UBound(memoDevisF) devis.Cells(derligne, i) = memoDevisF(i) Next i
le probleme c'est que ça marche bien, mais que c'est long. pour une centaine de cellule, je suis proche des 15 secondes
je me dis qu'il doit y avoir moyen de faire :
range (cells(derligne,1),cells(derligne,100)) = mémodevisF(?????)
puisque le array c'est un tableau de 1 sur 100
mais voila, j'y arrive pas, je ne sais pas si c'est possible, et auquel cas, je ne trouve pas la syntaxe. un coup de main est demandé. si ça se trouve c'est tout bète
merci d'avance

Tu sais que tu peux faire ça
Code:

1 2 3 4 5 6 7 8 w = 1 'Nombre total de colonnes dans le tableau 'Nombre de lignes dans le tableau x = Range("A65536").End(xlUp).Row Tableau = Range(Cells(1, 1), Cells(x, w)) 'Et ensuite, pour coller sur une plage Range(Cells(1, 1), Cells(x, w)) = Tableau
Tout droit sorti d'un exemple de tri alphabétique offert par SilkyRoad ;)
Faut lire ! :mouarf:
A+

22/10/2007, 16h35
alsimbad
ben oui, mais pas si simple
j'ai bien essayé

Code:

devis.Range(Cells(derligne, 1), Cells(derligne, UBound(memoDevisF))) = memoDevisF()

ou
Code:

1 2 devis.Range(Cells(derligne, 1), Cells(derligne, UBound(memoDevisF))) = memoDevisF
hé ben ça marche pas
22/10/2007, 16h35
ouskel'n'or
Edit
Tu as aussi Union qui permet de créer une plage de cellules...
Exemple de l'aide
Code:

1 2 3 Worksheets("Sheet1").Activate Set bigRange = Application.Union(Range("Range1"), Range("Range2")) bigRange.Formula = "=RAND()"
A toutes fins utiles ;)

bonjour Alsimbad et Ouskel'n'or

Tu peux utiliser

Code:

1
2
3
4
5
6
7
Dim MemoDevisF As Variant
 
MemoDevisF = VBA.Array("", formulaire.Range("C3").Value, _
    formulaire.Range("E3").Value, _
    param.Range("D3").Value, param.Range("D4").Value)
 
Range(Cells(DerLigne, 1), Cells(DerLigne, UBound(MemoDevisF) + 1)) = MemoDevisF

michel

22/10/2007, 16h47
alsimbad

merci michel, mais ...oups :oops: merci aussi ouskel
mais ça ne marche pas. la seule difference avec mon code c'est MemoDevisF = VBA.Array, mais ça change rien

j'y crois pas, ça marche et c'est quasi imédiat, mais en faisant
Code:

1 2 3 devis.Select Range(Cells(derligne, 1), Cells(derligne, UBound(memoDevisF))) = memoDevisF
au lieu de
Code:

1 2 devis.Range(Cells(derligne, 1), Cells(derligne, UBound(memoDevisF))) = memoDevisF
dite moi qu'il y a un plan B au select :D

22/10/2007, 16h55
ouskel'n'or

Oui, il y a Activate :mouarf:
22/10/2007, 17h00
alsimbad

lol.:yaisse2: sérieux... man. on doit pouvoir.je crois me souvenir que tu m'avais sorti une epine du pied avec une aure histoire de ce genre. attend, je cherche dans mes messsages
22/10/2007, 17h10
SilkyRoad

Précise le nom de la feuille pour ne pas avoir à utiliser "Select"

Code:

devis.Range(devis.Cells(derligne, 1), devis.Cells(derligne, UBound(memoDevisF)))

michel
22/10/2007, 17h13
alsimbad

hé voila. il est trop fort ce michel. c'étais les devis dans le range qu'il me manquait

Code:

devis.Range(devis.Cells(derligne, 1), devis.Cells(derligne, UBound(memoDevisF) + 1)) = memoDevisF

en fait, si j'avais vus ça j'avais pas besoin de poser la question sur le forum, ça faisait partie des solutions que j'avais testé.
encore merci a tout les deux