mettre une formule dans une cellule

Version imprimable

27/03/2016, 19h30
Invité

mettre une formule dans une cellule

Bonjour,

J'essaie de mettre une formule dans une cellule à n+4 lignes en dessous d'un tableau (n dernière cellule non vide).
Cette formule est le rapport de 2 cellules situées elles aussi à n+4 lignes en dessous du tableau.

J'ai essayé ceci mais ça plante sur le H (colonne), le message d'erreur est: erreur de compilation -attendu: fin d'instruction

Code:

.Range("L" & n + 4).FormulaLocal = "=.Range("H" & n + 4) / .Range("O" & n + 4)"

En vous remerciant.
27/03/2016, 20h45
cerede2000

Bonjour à toi,

Première chose, je te déconseil d'utiliser FormulaLocal et te recommande chaudement d'utiliser Formula
Par contre en utilisant Formula il faut mettre tes formules en anglais :)

Ensuite, la formule que cherche à mettre n'est pas correct.
En effet .Range est un objet VBA et ne peux donc pas être placé dans une formule comme tu souhaite le faire.

Code:

.Formula = "=" & .Range("H" & n + 4) / .Range("O" & n + 4)
27/03/2016, 20h52
Invité

Merci beaucoup pour tes explications. Voici ce que j'ai fait mais il y a une erreur de syntaxe (message).

Code:

.Range("L" & n + 4).Formula = "=" & .Range( & "H" & n + 4) / .Range( & "O" & n + 4)

La ligne de code est rouge.
27/03/2016, 21h03
cerede2000

Correction :)

Code:

.Range("L" & n + 4).Formula = "=" & .Range("H" & n + 4) / .Range("O" & n + 4)
27/03/2016, 21h12
Invité

1 pièce(s) jointe(s)

ça plante, merci quand même d'avoir répondu à ma demande.
message d'erreur
Pièce jointe 205179
27/03/2016, 21h34
cerede2000

Je n'ai pas dit que la formule que tu souhaite mettre dans la cellule est correcte...
Mais elle ne contient plus d'erreur de syntaxe :)

Maintenant il faudrait plus d'explication sur ce que tu souhaite réaliser avec cette formule et plus de code pour vraiment pouvoir avancer.
27/03/2016, 21h54
Invité
Je pensais l'avoir bien expliquer au post#1.

Par macro un tableau est reconstitué sur une feuille. La dernière ligne non vide de ce tableau est n.

sur la ligne n+4, en range("H" & n+4)=val1 et en range("O" & n+4)=val2

je voudrais en range("L" & n+4) avoir la formule (pas le résultat) du quotient val1/val2.
Code:

1 2 3 4 With Ref n = .Range("R" & Rows.Count).End(xlUp).Row .Range("L" & n + 4).Formula = "=" & .Range("H" & n + 4) / .Range("O" & n + 4) End With
j'espère que c'est un peu plus clair. Merci.
27/03/2016, 21h58
cerede2000

Code:

.Range("L" & n + 4).Formula = "=H" & n + 4 & "/O" & n + 4
27/03/2016, 22h01
Invité

C'est parfait. Merci beaucoup.