Discussion :

[Elstak]

coucou,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

par Cells(5,i).value

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

A+

[Elstak]

Hmmm pas bete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[AlainTech]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.