Help formule avec partie vérrouillée

[Ken Hutchinson]

Hello le forum,

J'ai besoin de votre aide car je tourne en bourrique.

Comment spécifier en VBA que la cellule AF6 est verrouillée comme quand on fait F4 ?

For i = 9 To nblignesBIS
     ActiveCell.FormulaR1C1 = "=RC[-26]*af6"

    
ActiveCell.Offset(1, 0).Select
Next i

merci de votre aide !!!

 

[Cousinhub]

Re : Help formule avec partie vérrouillée

Bonjour,

essaie :

For i = 9 To nblignesBIS
     ActiveCell.FormulaR1C1 = "=RC[-26]*R6C32"
    ActiveCell.Offset(1, 0).Select
Next i '

Maintenant, en connaissant la cellule de départ, on pourrait éviter les .Select

 

[Ken Hutchinson]

Re : Help formule avec partie vérrouillée

OK merci !!

Peux tu m'expliquer pour eviter les select ?

La cellule de départ est toujours BF9 et on descend jusqu'a la fin qui est toujours différente.

 

[mromain]

Re : Help formule avec partie vérrouillée

Pour éviter le Select, il faut remplacer

ActiveCell.Offset(1, 0).Select

par

Dim curentCell as Excel.Range
Set curentCell = Range(XXXX)

'pour décaler, tu fait :
Set curentCell = curentCell.Offset(1, 0)

Et maintenant, tu n'as plus à te soucier du Select et ActiveCell


A+ et bon Excel

 

[Cousinhub]

Re : Help formule avec partie vérrouillée

Re,

comme ceci :

For i = 9 To nblignesBIS
     Cells(i, 58).FormulaR1C1 = "=RC[-26]*R6C32"
Next i '

 

[Ken Hutchinson]

Re : Help formule avec partie vérrouillée

Ok, je vois. Merci du tuyau...

Mais cela fait tourner la macro plus vite ?

 

[Cousinhub]

Re : Help formule avec partie vérrouillée

Re-,

Effectivement, le fait de sélectionner les cellules ralentit le code
Et de plus, pas beau les sauts de cellules (remarque on peut éviter le raffraichissement de l'écran, mais....)

Bref, en règle générale, les .Select sont rarement indispensables

 

[mromain]

Re : Help formule avec partie vérrouillée

Mais cela fait tourner la macro plus vite ?

Beaucoup plus vite...

Si tu veux pas t'embêter à retaper toute ta macro, tu rajoutes

Application.Visible = False

au début de ta macro, et

Application.Visible = True

en fin de macro.

Et là, ta macro va tourner beaucoup plus vite (surtout si il y a beaucoup de "Select")...


A+

 

[Cousinhub]

Re : Help formule avec partie vérrouillée

Euh, romain, teste ton code...
Effectivement, il ne sera pas embêté, il n'aura plus rien à l'écran

Plutôt :

Application.ScreenUpdating = False
En début de code,
Application.ScreenUpdating = True
en fin de code