VBA : calculation automatique sur 2 colonnes optimisation.

[Soleil11]

Bonjour le forum,

Je fait appel à vous les experts en macro (Excell) afin d'améliorer le code ci-dessous. Je mutiplie simplement deux colonne A et B et le résultat va être visible en colonne C. Je trouve simplement que mon code est lent lorsque je l'éxecute. Je suis pas sûre d'être un expert en boucle pourriez-vous m'aider à améliorer la vitesse d'execution des résultats?

Les deux colonnes ont des chiffres avec un nbre de lignes qui peut dépasser les 65'000 lignes.

Merci pour votre aide.

Soleil11

Sub Productcolumns()

Application.ScreenUpdating = False


Do While ActiveCell.Offset(0, -1) <> ""
 
With ActiveCell.Select

ActiveCell.Value = WorksheetFunction.Product(Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, -1)))

ActiveCell.Offset(1, 0).Select
  
End With

Loop

Application.ScreenUpdating = True


End Sub

 

[Pierrot93]

Re : VBA : calculation automatique sur 2 colonnes optimisation.

Bonjour,

essaye peut être ainsi :

With Range("C1:C" & Range("B65536").End(xlUp).Row)
    .FormulaR1C1 = "=RC[-2]*RC[-1]"
    .Value = .Value
End With

bon après midi
@+

 

[Soleil11]

Re : VBA : calculation automatique sur 2 colonnes optimisation.

Merci pour votre réponse rapide, merci pour le code c'est vraiement plus rapide.