Bonjour,

Alors j'ai une boucle while avec a l'interieur une formule qui contient la fonction OFFSET.

J'aimerais faire varier un des parametres de la fonction OFFSET, i, comme ceci:

ActiveCell.FormulaR1C1 = _
"=SQRT(SUMSQ(OFFSET(RC,i,-1)-RC[-1],OFFSET(RC,i,-2)-RC[-2],OFFSET(RC,i,-3)-RC[-3],OFFSET(RC,i,-4)-RC[-4],OFFSET(RC,i,-5)-RC[-5],OFFSET(RC,i,-6)-RC[-6]))"

Mais cela ne marche pas car la formule prend i en parametre et non sa valeur.

Voici la fonction complete:

Sub CalculateCalculateDistances()
Dim c As String
c = ActiveCell.Value
i = 1
Do
ActiveCell.FormulaR1C1 = _
"=SQRT(SUMSQ(OFFSET(RC,i,-1)-RC[-1],OFFSET(RC,i,-2)-RC[-2],OFFSET(RC,i,-3)-RC[-3],OFFSET(RC,i,-4)-RC[-4],OFFSET(RC,i,-5)-RC[-5],OFFSET(RC,i,-6)-RC[-6]))"
ActiveCell.Range("A1").Select
ActiveCell.Offset(-1, 0).Range("A1").Select
c = ActiveCell.Value
i = i + 1
Loop While c <> "$End"
ActiveCell.Offset(1, 1).Range("A1").Select
End Sub

Dites moi si ce nést pas clait

Merci de votre aide.

David

Salut,

J'aurais tendance à trouver plus économique et plus aisé de réaliser les calculs en VBA et d'affecter le résultat à la cellule voulue, plutôt que d'affecter une formule...

En tout cas, si tu affectes une formule, tu l'affectes sous forme de chaîne. Si tu insères dans ta formule la valeur d'une variable i, le i doit être hors des parties de formules entre guillemets : "=xxxxxxxxxxxx" & i & "xxxxxxxxxxxxxxxxxxx" & i &....

Salut,

J'ai finalement trouve la solution, en faisant:

ActiveCell.FormulaR1C1 = _
"=SQRT(SUMSQ(OFFSET(RC," + CStr(i) + ",-1)-RC[-1],OFFSET(RC," + CStr(i) + ",-2)-RC[-2],OFFSET(RC," + CStr(i) + ",-3)-RC[-3],OFFSET(RC," + CStr(i) + ",-4)-RC[-4],OFFSET(RC," + CStr(i) + ",-5)-RC[-5],OFFSET(RC," + CStr(i) + ",-6)-RC[-6]))"

Merci

David