multiplication d'une selection de cellule

[Chris]

Bonjour à tous !

J'ai un souci sur une macro ci-dessous, je n'ai pas le résultat escompté. Je n'arrive pas à multiplier ma selection par 10.


Sub calcul()

Dim unité1, résultat1

unité1 = Worksheets("feuil1").Range("c2")

If unité1 = "Pa" Then Worksheets("of1").Range("b4:b14").Value = Worksheets("OF1").Range("d4:d14").Value * 10

Quelqu'un peut il m'aider ?

Merci

 

[Roland]

Salut chris

for i=4 to 14
cells(i,2).value=cells(i,4)*10
next i


bye

 

[Chris]

Impecable !!

Merci bcp !

Voici ma ligne :

for i=4 to 14
cells(i,2).value=cells(i,4).value *10
next i