comment introduire des variables dans .Formula= ???

[albert]

Bonjour à tous et à toutes, forumiens, forumiennes,

J’écris une formule excel en F4 pendant que l’enregistreur de macros suit ma procédure
(Macro K) : j’obtiens le résultat recherché
puis je tente d’introduire des variables dans cette formule

Mais FormulaR1C1 n’admet pas les variables. Je tente donc de résoudre avec .Formula =

(Macro K bis)
… Les formules s’écrivent en texte

comment résoudre cette difficulté ????

merci d’avance




Sub Kbis()
debut = 4
m = Range("E4:E17")
Range("F4").Select
ActiveCell.Formula = "($E& debut &-MIN(m))/(MAX(m)-MIN(m))*100"

Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F18"), Type:=xlFillDefault

End Sub

 

[@+Thierry]

Salut Albert, le Forum

Je n'ai pas vu toon fichier joint mais pour écrire des Formules par VBA avec intégration de Variables il faut s'y prendre autrement. Une démo sera plus simple qu'un long discours...

=> Lien supprimé

Bon Appétit
@+Thierry

 

[albert]

merci @+Thierry,
je regarde tout de suite

(j'ai peiné là-dessus tout le w.e)

 

[Arnaud]

salut,

ta variable dois tout simplement être en dehors des guillemet car la elle est considérée comme du texte.

ActiveCell.Formula = "($E" & debut & "-MIN(m))/(MAX(m)-MIN(m))*100"

 

[@+Thierry]

Salut Arnaud, re Albert

Attentention un poil rapidos sur ce coup là Arnaud !

Moi je pense que tu as zappé deux trucs, le "=" et la Variable "m " dans la foulée !! lol, Je proposerai ceci ...

Sub AlbertFormula()
Dim debut As Byte
Dim m As String

debut = 4
m = Range("E4:E17").Address

ActiveCell.Formula = "=($E" & debut & "-MIN(" & m & "))/(MAX(" & m & ")-MIN(" & m & "))*100"

End Sub

Bon App
@+Thierry

 

[albert]

merci mille fois, @+Thierry et Arnaud,
ça marche au poil
en effet, avec m, je peux me permettre de prendre des plages variables

cordialement
albert

 

[albert]

Bonjour @+Thierry, Arnaud, forumiens et forumiennes,

j'ai essayé d'obtenir des références relatives...

Range("F4").Formula = "=($E" & debut & "-MIN(" & m & "))/(MAX(" & m & ")-MIN(" & m & "))*100"


j'ai retiré $

Range("F4").Formula = "=(E" & debut & "-MIN(" & m & "))/(MAX(" & m & ")-MIN(" & m & "))*100"

mais pour la suite ???
& debut & : & fixe les cellules, on ne peut les retirer ???

Comment puis-je obtenir des références relatives dans les formules vba ?

merci d'avance
albert