FormulaR1C1 Résolu/Fermé

Question

Bonjour tout le monde,

J'ai un petit problème de syntaxe je crois.
Sa plante au niveau de la formule, je pense que je n'arrive pas à faire passer le i.

Set Ex = ActiveSheet.Range("A3")
i = 0
Do While Not IsEmpty(Ex)
prss.Select
ActiveCell.FormulaR1C1 = "=(((2*PI()/R[(&i)+6]C[-5])*sqrt(60*R[(&i)+4]C[-5]*10^(RC[-1]/20))^2/(120*PI()))*R[(&i)+21]C[-4]"
Set prss = prss.Offset(1, 0)
Set Ex = Ex.Offset(1, 0)
i = i - 1
Loop
.
.
.
J'ai faits comme ça car si je mets directement une cellule à passer genre G9, il ne comprend pas et me renvoi 'G9' dans ma formule, du coup le calcul ne ce fait pas.Voici quand même ma première version au cas ou.
.
ActiveCell.FormulaR1C1 =
"=(((2*PI/G9*sqrt(60*G7)*10^(RC[-1]/20))^2/(120*PI))*H24"
.
Si quelqu'un peu m'aider.
Merci d'avance!

       EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

melanie1324 · Answer

Bonjour,


Set Ex = ActiveSheet.Range("A3")
i = 0
Do While Not IsEmpty(Ex)
prss.Select
ActiveCell.FormulaR1C1 = "=(((2*PI()/R[(" & i &")+6]C[-5])*sqrt(60*R[(" & i & ")+4]C[-5]*10^(RC[-1]/20))^2/(120*PI()))*R[(" & i &")+21]C[-4]"
Set prss = prss.Offset(1, 0)
Set Ex = Ex.Offset(1, 0)
i = i - 1
Loop
.

ccm81 · Answer

Bonjour à tous les deux

Ta formule "initiale"
"=(((2*PI/G9*sqrt(60*G7)*10^(RC[-1]/20))^2/(120*PI))*H24"
n'est pas correcte
peux tu 
1. donner la  formule correcte entrée en français au format A1
2. dire dans quelle cellule tu la mets.
3. indiquer les n° de lignes et de colonnes qui vont varier (le i de ton code)

Cdlmnt

ccm81 · Answer

Bonjour

Essaies ceci

Dim li As Long, lideb As Long, f As Stringli = 3While Range("K" & li).Value <> ""  f = "=(((2*PI()/$G$9)*RACINE(60*$G$7)*10^(K" & li & "/20))^2/(120*PI()))*$H$24"  Range("L" & li).FormulaLocal = f  li = li + 1Wend
Cdlmnt

FormulaR1C1

3 réponses

Discussions similaires