Incrémentation en VBA dans une formule

[mael00]

Bonjour à tous,
J'ai un problème dans la programmation en VBA.

En effet, je voudrais incrémenter une formule avec une sélection qui diffère selon une variable (variable).

Voici la partie de code:

a = Range("G2").Value
b = Range("F2").Value
variable = Cells(3 + b, 4)
Cells(3 + a, 9) = "=(1/2*R4C4+SUM(R5C4: variable)+1/2*R[12]C[-5])/R2C6"

Merci de bien vouloir m'aider.
Cordialement.

 

[tototiti2008]

Re : Incrémentation en VBA dans une formule

Bonjour mael00,

variable est censé être une cellule ou le contenu de la cellule
Cells(3+b,4)
???

en fonction la réponse diffère...

 

[mael00]

Re : Incrémentation en VBA dans une formule

Merci tototiti2008 pour ta rapide réponse.

C pour étirer la somme mais selon le contenu de la cellule "Cells(3+b,4)"
par exemple le contenu est 12.

 

[tototiti2008]

Re : Incrémentation en VBA dans une formule

Bonjour à tous,

et si cells(3+b,4) contient 12,
ça doit faire la formule :

"=(1/2*R4C4+SUM(R5C4:R5C12)+1/2*R[12]C[-5])/R2C6"

??

 

[mael00]

Re : Incrémentation en VBA dans une formule

Merci tototiti2008. Mais en faite la valeur doit changer. Donc le 12 peu devenir 6 ou ... Donc je voudrais automatiser l'étirement selon le contenu d'une cellule.

Cordialement

 

[pierrejean]

Re : Incrémentation en VBA dans une formule

bonjour mael00
Salut Tototiti

A tester:

Cells(3 + a, 9) = "=(1/2*R4C4+SUM(R5C4:" &  [I]variable & "[/I])+1/2*R[12]C[-5])/R2C6"

 

[tototiti2008]

Re : Incrémentation en VBA dans une formule

Bonjour PierreJean,
Re,

mael00,
Je ne te faisais pas une proposition, je te posais une question...

Bon, en admettant que la réponse à ma question soit OUI, je te propose :

"=(1/2*R4C4+SUM(R5C4:R5C" & variable & ")+1/2*R[12]C[-5])/R2C6"

 

[mael00]

Re : Incrémentation en VBA dans une formule

Merci pour vos répondre.
J'ai essayer le solution proposer mais celle-ci ne fonctionne pas.
je recherche donc toujours une solution.

Cordialement

 

[pierrejean]

Re : Incrémentation en VBA dans une formule

Re

Effectivement on avait peut-etre oublié le .formula

Vois si tu peux t'inspirer de ces 2 sub

Sub test()
a = -2
variable = [COLOR=blue]"RC15"
[/COLOR]Cells(3 + a, 9[COLOR=blue]).Formula[/COLOR] = "=(1/2*R4C4+SUM(R5C4:" & variable & ")+1/2*R[12]C[-5])/R2C6"
End Sub
Sub test1()
a = -2
variable = [COLOR=blue]15
[/COLOR]Cells(3 + a, 9).[COLOR=blue]Formula[/COLOR] = "=(1/2*R4C4+SUM(R5C4:[COLOR=blue]RC[/COLOR]" & variable & ")+1/2*R[12]C[-5])/R2C6"
End Sub

 

[mael00]

Re : Incrémentation en VBA dans une formule

Merci pierrejean. Cela a fonctionner, avec quelque motif. Un grand merci.
Cordialement