Erruer de code avec la fonction ln

Fermé
pat redoue Messages postés 11 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 août 2008 - 12 août 2008 à 12:38
 algoplus - 12 août 2008 à 13:50
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

2 réponses

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 dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
12 août 2008 à 13:17
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