Remplir une cellule dans Excel

Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A50"), Type:=xlFillDefault
Range("A1:A50").Select



"SilverDevil" <moi@antispam.fr> a écrit dans le message de news:
#ua5oFtRDHA.2316@tk2msftngp13.phx.gbl...

Bonjour,

actuellement j'exporte des données vers un fichier excel que je crée à la
volée.
j'utilise cette méthode (voir plus bas) mais elle est très lente !!!
Y'a sûrement une autre manière ...
merci d'avance pour les infos.

Franck


For(i=1 to 50)
objExcel.ActiveCell(i,1) = i
Next bcl

Bonjour

A noter que les
X.select
Selection.nnn
peuvent être regroupés sur une seule ligne
X.nnn
Ca éviter de déplacer la sélection, donc c'est un brin plus rapide...

Range("A1").FormulaR1C1 = "1"
Range("A2").FormulaR1C1 = "2"
Range("A1:A2").AutoFill Destination:=Range("A1:A50"), _
Type:=xlFillDefault
Range("A1:A50").Select

Bonne prog :)

Un certain Clive Lumb écrivait ici même ce qui suit:

Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A50"), Type:=xlFillDefault
Range("A1:A50").Select



"SilverDevil" <moi@antispam.fr> a écrit dans le message de news:
#ua5oFtRDHA.2316@tk2msftngp13.phx.gbl...

Bonjour,

actuellement j'exporte des données vers un fichier excel que je crée à la
volée.
j'utilise cette méthode (voir plus bas) mais elle est très lente !!!
Y'a sûrement une autre manière ...
merci d'avance pour les infos.

Franck


For(i=1 to 50)
objExcel.ActiveCell(i,1) = i
Next bcl