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
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. 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
  2. Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   310
     
    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