Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : calculation automatique sur 2 colonnes optimisation.

Soleil11

XLDnaute Occasionnel
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

Code:
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

XLDnaute Barbatruc
Re : VBA : calculation automatique sur 2 colonnes optimisation.

Bonjour,

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

bon après midi
@+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…