E
Emeline
Guest
J'ai fais un bouton radio et quand on clique dessus cela va mettre des valeurs dans des cellules d'une autre feuille.
Pour faire le code, j'ai utilisé l'enregistreur de macro. Quand je fais tourner la macro cela fonctionne bien, mais quand je fais un copier coller du code pour le mettre dans celui du bouton radio, ensuite cela me fais une erreur. Voilà le code :
Private Sub Euro_Click()
Sheets("data").Select
Range("L11").Select (c'est ici qu'il me signale une erreur)
ActiveCell.FormulaR1C1 = "10"
Range("F60").Select
ActiveCell.FormulaR1C1 = "0.017"
Range("F68").Select
ActiveCell.FormulaR1C1 = "0.48"
Range("F69").Select
ActiveCell.FormulaR1C1 = "0.06"
Range("F70").Select
ActiveCell.FormulaR1C1 = "0.006"
Range("F71").Select
ActiveCell.FormulaR1C1 = "1.26"
Range("L58").Select
ActiveCell.FormulaR1C1 = "0.36"
Range("L59").Select
ActiveCell.FormulaR1C1 = "120"
Range("L60").Select
ActiveCell.FormulaR1C1 = "10"
Range("L62").Select
ActiveCell.FormulaR1C1 = "520"
Range("F76").Select
ActiveCell.FormulaR1C1 = "0.12"
Range("F77").Select
Sheets("main").Select
End Sub
C'est pourtant tout simple, je ne comprend pas pourquoi ça ne marche pas.
Pffff pourquoi j'ai pas un outil en Java....
Pour faire le code, j'ai utilisé l'enregistreur de macro. Quand je fais tourner la macro cela fonctionne bien, mais quand je fais un copier coller du code pour le mettre dans celui du bouton radio, ensuite cela me fais une erreur. Voilà le code :
Private Sub Euro_Click()
Sheets("data").Select
Range("L11").Select (c'est ici qu'il me signale une erreur)
ActiveCell.FormulaR1C1 = "10"
Range("F60").Select
ActiveCell.FormulaR1C1 = "0.017"
Range("F68").Select
ActiveCell.FormulaR1C1 = "0.48"
Range("F69").Select
ActiveCell.FormulaR1C1 = "0.06"
Range("F70").Select
ActiveCell.FormulaR1C1 = "0.006"
Range("F71").Select
ActiveCell.FormulaR1C1 = "1.26"
Range("L58").Select
ActiveCell.FormulaR1C1 = "0.36"
Range("L59").Select
ActiveCell.FormulaR1C1 = "120"
Range("L60").Select
ActiveCell.FormulaR1C1 = "10"
Range("L62").Select
ActiveCell.FormulaR1C1 = "520"
Range("F76").Select
ActiveCell.FormulaR1C1 = "0.12"
Range("F77").Select
Sheets("main").Select
End Sub
C'est pourtant tout simple, je ne comprend pas pourquoi ça ne marche pas.
Pffff pourquoi j'ai pas un outil en Java....