Optimisation de code...

C

Compte Supprimé 979

Guest

• 17 Juin 2009

• #2

Re : Optimisation de code...

Salut natorp,

Ce n'est pas de l'optimisation de code, pas à mon avis en tout cas

Pas besoin de somme pour 2 cellules

Code:

For Lig = 13 to 31
  Range("K" & Lig ).FormulaLocal = "=I" & lig & "+J" & lig 
Next Lig

A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 17 Juin 2009

• #3

Re : Optimisation de code...

Re...

Ou encore :

Code:

[COLOR="DarkSlateGray"]Sub toto()
   Range("K13") = "=SUM(I13+J13)" [COLOR="SeaGreen"]'Ou tout autre fonction à votre goût.[/COLOR]
   Range("K13").AutoFill Destination:=Range("K13:K31"), Type:=xlFillDefault
End Sub[/COLOR]

ROGER2327

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 17 Juin 2009

• #4

Re : Optimisation de code...

Merci Bruno et Roger
Pour Bruno, cela bloque complètement mon fichier quand après avoir entré une donnée en I13 je ne peux plus rien faire dans aucune autre cellule.
Pour Roger cela fonctionnerait correctement si le temps de réponse était plus court, à chaque valeur ajouter dans les I13 à J31 à chaque fois je vois toutes les cellules K13 à K31 qui clignotent avant de se mettre à jour....

à suivre... merci
Gérard

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 17 Juin 2009

• #5

Re : Optimisation de code...

Re...

Code:

[COLOR="DarkSlateGray"]Sub toto()
   [B]Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual[/B]
   Range("K13") = "=SUM(I13+J13)" 'Ou tout autre fonction à votre goût.
   Range("K13").AutoFill Destination:=Range("K13:K31"), Type:=xlFillDefault
   [B]Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True[/B]
End Sub[/COLOR]

devrait améliorer les choses...​

ROGER2327

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 17 Juin 2009

• #6

Re : Optimisation de code...

Désolé, mais pas vraiment, cette fois c'est tout le classeur qui se met à clignoter sans jamais s'arrêter...??

merci

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 19 Juin 2009

• #7

Re : Optimisation de code...

Re...

Je n'ai pas mieux à proposer sans voir le classeur. Désolé...​

ROGER2327

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Juin 2009

• #8

Re : Optimisation de code...

Bonsoir natorp, Bruno, Roger 🙂

19 cellules à remplir, ça se fait en moins d'un millième de secondes...

Il y a de la macro Worksheet_Change dans l'air, essayer :

Code:

Application.EnableEvents = False
For Lig = 13 to 31
  Range("K" & Lig ).FormulaLocal = "=I" & lig & "+J" & lig 
Next Lig
Application.EnableEvents = True

Edit : mieux :

Code:

Application.EnableEvents = False
Range("K13:K31").FormulaR1C1 = "=RC[-2]+RC[-1]"
Application.EnableEvents = True

A+

 

Dernière édition: 19 Juin 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 19 Juin 2009

• #9

Re : Optimisation de code...

Re...

job75 à dit:

(...) 19 cellules à remplir, ça se fait en moins d'un millième de secondes... (...)

Cliquez pour agrandir...

Oui ! D'ailleurs les codes proposés sont quasi instantanés. Le problème doit être ailleurs, d'où mon appel à un classeur de démonstration...​

Cordialement.
ROGER2327

 

Dernière édition: 20 Juin 2009

Vote positif 0 Vote négatif