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.