Discussion :

[alsimbad]

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 :

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

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 :

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

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

[ouskel'n'or]

Tu sais que tu peux faire ça

Code :

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

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 !
A+

[alsimbad]

ben oui, mais pas si simple
j'ai bien essayé

Code :

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

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

ou

Code :

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

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

hé ben ça marche pas

[ouskel'n'or]

Edit
Tu as aussi Union qui permet de créer une plage de cellules...
Exemple de l'aide

Code :

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

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

A toutes fins utiles

[SilkyRoad]

bonjour Alsimbad et Ouskel'n'or


Tu peux utiliser

Code :

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

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

[alsimbad]

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

[alsimbad]

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

Code :

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

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

au lieu de

Code :

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

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

dite moi qu'il y a un plan B au select

[ouskel'n'or]

Oui, il y a Activate

[alsimbad]

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

[SilkyRoad]

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

Code :

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

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

michel

[alsimbad]

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

Code :

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

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