Erruer de code avec la fonction ln

pat redoue Messages postés 11 Statut Membre -  
 algoplus -
Bonjour,
je n'arrive pas a ecrei cettre ligne de code correctement au secours!!!!!!!!

dim i as integer
For i = 1 To 10
Rows(i).Cells(10) = "= Ln( rows(i).Cells(9) / rows(i+1).Cells(9) )"
Next i
End Sub
A voir également:

2 réponses

algoplus
 
Si tu tiens a conserver ton code, cells(i,j) définit les coordonnées d'une cellule, pas besoin de définir la ligne:

dim i as integer
For i = 1 To 10
Cells(i,10) = "= Ln(Cells(i,9) / Cells(i+1,9) )"
Next i
End Sub
0
Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   309
 
Bonjour Pat,
pas besoin de t'embêter avec ton Rows(i+1).Cells(9) et tout le tintouin
le plus simple est de lancer l'enregistrement automatique de macros, d'écrire ta formule dans Excel (avec adressage relatif) et de voir ensuite la transcription en VBA.
Ca donne
Rows(i).Cells(10).FormulaR1C1 = "=LN(RC[-1]/R[1]C[-1])"

I.
-1