Multiplier et variable Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Filou78
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 25 juin 2014
Version d'Excel : 2003

Message par Filou78 » 24 février 2015, 15:45

Bonjour,

Franchement j'ai honte mais bon....
Voici mon code
ActiveCell.FormulaR1C1 = "=R[34]C[-3]*ROUND(RC[-1],2)/100"
Et je voudrais "tout simplement" remplacer le R[34]C[-3] par une variable prédéfinie.....
Ben je bloque.....
J'ai TOUT essayé ....
Ca par exemple
ActiveCell.FormulaR1C1 = "=" & TOT1 & "*ROUND(RC[-1],2)/100"
Ca buggue...
Quelqu'un a une idée ???

merci
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'342
Appréciation reçue : 1
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 24 février 2015, 15:59

Bonjour,

Tu peux essayer :
Sub test0()
Dim TOT1 As String
    TOT1 = "R[34]C[-3]"
    ActiveCell.FormulaR1C1 = "=" & TOT1 & "*ROUND(RC[-1],2)/100"
End Sub
A+
F
Filou78
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 25 juin 2014
Version d'Excel : 2003

Message par Filou78 » 24 février 2015, 16:04

Merci mais j'ai eu le même message d'erreur...
par contre je viens de trouver ça
ActiveCell.FormulaR1C1 = "=SUM(" & TOT1 & "*ROUND(RC[-1],2)/100)"
Et là ça fonctionne....
Enfin...presque
le résultat est somme(1389;31**ARRONDI(E9;2)/100)
et je comprends pas parce que ma variable logiquement est égale à 1389,31 et non 1389;31....
Avatar du membre
RENAUDER
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 22 mars 2008
Version d'Excel : 2003 FR, 2010 FR
Contact :

Message par RENAUDER » 24 février 2015, 16:05

Bonjour,

je viens de tester ce qui suit et ça fonctionne
Sub Test()
    Dim TOT1 As Single
    TOT1 = 10
    ActiveCell.FormulaR1C1 = "=" & TOT1 & " *ROUND(RC[-1],2)/100"
End Sub
Cordialement
Eric
F
Filou78
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 25 juin 2014
Version d'Excel : 2003

Message par Filou78 » 24 février 2015, 16:11

Ah ben oui...
désolé j'ai mal faire mon copier/coller....
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message