Erruer de code avec la fonction ln

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

  • Votes
  • Date
  • Date décroissante
  1. 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
    1. 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.