Benjamin69
XLDnaute Nouveau
Bonjour à tous,
Je planche sur un outil de calcul automatisé de remboursement de lunettes, pour une compagnie d'assurances.
Les critères à entrer pour permettre le fonctionnement sont les suivants :
Sauf que je ne sais pas où j'ai merdouillé, car ma formule R1C1 me semble fausse... Mes données reviennent à 0 sans que je ne sache pourquoi...
Voici le code :
'Déclaration des variables
'OEIL DROIT
Je planche sur un outil de calcul automatisé de remboursement de lunettes, pour une compagnie d'assurances.
Les critères à entrer pour permettre le fonctionnement sont les suivants :
- Choix d'adulte ou enfant
- Choix du contrat
- Sphère
- Cylindre
- Addition
Sauf que je ne sais pas où j'ai merdouillé, car ma formule R1C1 me semble fausse... Mes données reviennent à 0 sans que je ne sache pourquoi...
Voici le code :
'Déclaration des variables
Dim Sphere As Long
Dim Cylindre As Long
Dim Addition As Long
Dim Spherecompar As Long
Dim Cylcompar As Long
'Conversion des dioptries en multiples de 100Dim Cylindre As Long
Dim Addition As Long
Dim Spherecompar As Long
Dim Cylcompar As Long
'OEIL DROIT
Range("C45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("D45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("E45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("G45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("H45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("I45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("C45:I45").Select
Selection.Copy
A noter que sphère, cylindre et addition peuvent être exprimés en décimales... Je ne sais pas si le problème vient de là...ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("D45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("E45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("G45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("H45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("I45").Select
ActiveCell.FormulaR1C1 = "=R[-37]C*100"
Range("C45:I45").Select
Selection.Copy