Your subroutine writes numbers 2 to 20 in cells of Range
A1:A10. Is this what you intended to do ?


-----Original Message-----
Bonjour
j aimerai a partir d une fonction en VB ecrire dans une
cecellule
particuliere j ai tente cela et ca ne marche pas savez
vous pourqoiu je suis
avec XP pro merci

Sub ecrire()
dim i as integer
for i = 1 to 10
Cells(i,1) = 2*i
next i
end sub



.