Bonjour,
 
Dans une Macro Excel, j'ai besoin de remplir une colonne dans une boucle.
 
Mais l'instruction Range.Cells (i,2).Value = Valeur (i,2) met beaucoup de temps.
(valeur est un tableau interne)
 
 
Je mets 10 secondes à traiter les 100 lignes de mon fichier de test, alors que je pourrais en avoir des milliers en Prod.
 
Comment faire pour que cela soit plus rapide ?

Pas d'aide ?

Il faut affecter tes valeurs d'un coup à toutes tes cellules.
Sélectionne une plage de cellules et utilise la syntaxe :
plage_cellules.value = tableau()
 
Ce sujet a déjà été discuté sur le forum, tu devrais pouvoir trouver des exemples.

Tu ne fais que lire ton fichier et remplir excel ou il y a d'autres traitements ?
Parce que c'est assez énorme 10s pour 100 lignes...

Bonjour,
 
Merci pour votre aide.
C'est l'opération de remplissage des cellules qui prend 10 secondes (environ).

On pourrait voir ton code ?
Je suis pas un pro du vba sous excel mais ça me semble vraiment exagéré comme temps de traitement.

Voici mon code :
 
For Lig = 1 To Nbrelig      
 
    Champs.Cells(Lig, 2) = Tableau(Lig, 2)         ' <--- très long
           
Next Lig

J'ai chronométré, ça met bien 10 sec pour traiter une centaine de lignes !

C'est bon, c'est résolu grâce à la remarque de tegu !
 
J'ai fait : Champs.Value = Tableau
et c'est immédiat !
 
Merci beaucoup tegu.

Comment tu as isolé que ça vient de là ?
En faisant ça :

Sub test()
Dim VarTab(1 To 100, 1 To 3) As Integer
Dim nb As Integer
Dim i As Integer
nb = 100
For i = 1 To nb
    VarTab(i, 2) = i
Next i
 
 
For i = 1 To nb
    ActiveSheet.Cells(i, 2) = CInt(VarTab(i, 2))
Next i
End Sub

Ca se rempli instantanément chez moi.
Tu n'as pas un pc qui est très lent par hasard ?

Edit : bon ok tant pis.

Bonjour,
 
A mettre eb début de macro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
 
A mettre en fin de macro
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
 
Application.ScreenUpdating = ne met pas à jour l'écran à chaque changement dans une cellule
 
Application.Calculation = ne recalcule pas tout à chaque changement dans une cellule
 
Je pense que ça va réduire le temps

Application.Calculation résoud aussi le problème !
Je vais prendre cette solution là. Comme ça je n'ai pas à modifier le code.
 
Merci pyrof !

Si tu utilises les Offset c'est beaucoup plus rapide....
 
Exemple :
 
sheets("sheet1" ).select
 
set rng=sheets("sheet1" ).range("A1" )
 
i=0
j=0
 
rng.offset(i,j).select   ' optionnel c'est juste pour voir ou tu pointe
 
Var1=rng.offset(i,j).value  ' je prend la valeur en A1
 
Var2=rng.offset(i,j+1).value ' Je prend la valeur en B1
 
rng.offset(i,J+3)=Var1+Var2  ' Je met le résultat en C1
 
 
...etc... et tu te prends moins la tête !
 

Oups !
 
la derniere ligne
 
rng.offset(i,J+3).value=Var1+Var2  ' Je met le résultat en C3