[VBA-E]Allegement d'écritue

coucou,

voilà j'aurai voulu savoir si il était possible de simplifier l'écriture de la formule suivante :

Code:

---

1 2 3 4 5

For i = 2 To nombre + 1 '(ligne3 - ligne5)/ligne5 Worksheets(Feuille).Range(Cells(7, i), Cells(7, i)).Value = (Worksheets(Feuille).Range(Cells(3, i), Cells(3, i)).Value - Worksheets(Feuille).Range(Cells(5, i), Cells(5, i)).Value) / Worksheets(Feuille).Range(Cells(5, i), Cells(5, i)).Value   Next

---

Car apres j'aurai surement d'autre calculs à faire avec plus d'opérations donc le code fera 3km :(

j'avai dejà essayé de remplacer les " Worksheets(Feuille).Range(Cells(5, i), Cells(5, i)).Value "
mais sans succès :?

Déjà, si tu sélectionne ou active ta feuille "Feuille", tu n'as pas à la renommer pour chaque cellule... Ça réduit déjà d'un tiers tes trois km...
Ensuite, tu peux remplacer

Citation:

---

Range(Cells(5, i), Cells(5, i)).Value

---

Code:

---

par Cells(5,i).value

---

Tu verras, c'est beaucoup plus court... :lol: pourquoifairesimplequandonpeutfairecompliqué ?

A+

Hmmm pas bete :)

Code:

---

1 2 3 4

For i = 2 To nombre + 1 '(ligne3 - ligne5)/ligne5 Cells(9, i).Value = (Cells(3, i).Value - Cells(5, i).Value) / Cells(5, i).Value Next

---

Ca fait quand meme plus beau :lol: :lol:

C'est juste que j'avais deja eu des probleme en activant une feuille et apres en ne remettant pas worksheets(nom) .... donc là j'avais pas testé mais ca marche bien sans en activant la feuille avant :D

Une autre méthode est d'instancier la feuille.

Code:

---

1 2 3

Dim ws As Worksheet Set ws = ActiveSheet ' Ou n'importe quelle feuille nommée ws.Cells(1, 1) = "BlaBla"

---

Gros avantage quand on doit souvent passer d'une feuille à l'autre.