FormulaR1C1

Résolu/Fermé

bud973 Messages postés 8 Date d'inscription vendredi 22 avril 2016 Statut Membre Dernière intervention 11 juillet 2016 - Modifié par baladur13 le 22/04/2016 à 13:57
bud973 - 26 avril 2016 à 08:11

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.

3 réponses

Réponse 1 / 3

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
22 avril 2016 à 14:06

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
.

bud973 Messages postés 8 Date d'inscription vendredi 22 avril 2016 Statut Membre Dernière intervention 11 juillet 2016
22 avril 2016 à 15:03

Merci beaucoup pour ta réponse mélanie!

bud973 Messages postés 8 Date d'inscription vendredi 22 avril 2016 Statut Membre Dernière intervention 11 juillet 2016
22 avril 2016 à 15:20

Ça ne marche pas, j'ai une erreur 1004 qui apparaît toujours à la même ligne mais pourtant la bonne page est bien active...

Réponse 2 / 3

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 22/04/2016 à 16:07

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

Bud973
Modifié par Bud973 le 25/04/2016 à 08:32

Bonjour,

Merci pour votre réponse.

1) =(((2*PI()/$G$9)*RACINE(60*$G$7)*10^(K3/20))^2/(120*PI()))*$H$24
.
2) À mettre dans la cellule L3 (3,11) pour le premier calcul
.
3) Et c'est à partir de la cellule K3 (3,12) que ça vari jusqu'au moment où la colonne K devient nulle (Ex (1,3) sera nul en même temps)
.
Je commence à peine, je ne réponds peut-être pas ce qu'il fallait.
Cordialement.

Réponse 3 / 3

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
25 avril 2016 à 11:26

Bonjour

Essaies ceci

Dim li As Long, lideb As Long, f As String
li = 3
While 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 + 1
Wend

Cdlmnt

bud973
26 avril 2016 à 08:11

Yeeeeeees, au top!
Ca marche parfaitement! Merci beaucoup et bonne continuation!

Discussions similaires

variable dans FormulaR1C1 VBA Excel

comment insérer une variable dans VBA FormulaR1C1

Comme intégrer une variable numerique d dans FormulaR1C1?

Value Vs Formula R1C1

[vba] Formula R1C1 avec variables

Discussions similaires

Newsletters