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