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

melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
149
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
.
0
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!
0
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...
0
ccm81
Messages postés
10410
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
8 août 2022
2 303
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
0
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.
0
ccm81
Messages postés
10410
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
8 août 2022
2 303
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
0
Yeeeeeees, au top!
Ca marche parfaitement! Merci beaucoup et bonne continuation!
0