Bonjour,
Je fais face à une erreur que je ne comprend pas. En effet j'essaye d'effectuer une opération sur une autre feuille de calcul d'où le bouton de commande aura été pressé.
J'ai donc cliqué sur enregistrer une macro, j'ai ensuite changé de feuille de calcul pour enfin effectuer une opération, ici assez triviale (ajouter 1 à la cellule précédente).
Voilà comment se présente la macro si je place le bouton de commande sur la feuille de calcul où est effectuée l'opération :
Et voilà lorsque je place le bouton de commande sur une feuille différente
Or lorsque je clique sur le bouton de commande j'ai un message d'erreur "La méthode Select de la classe Range a échoué". Comment expliquer cela? Sachant que la macro ci-dessus est ce qu'il m'a été donné en utilisant "Enregistrer une macro".
Merci de votre réponse.
Je fais face à une erreur que je ne comprend pas. En effet j'essaye d'effectuer une opération sur une autre feuille de calcul d'où le bouton de commande aura été pressé.
J'ai donc cliqué sur enregistrer une macro, j'ai ensuite changé de feuille de calcul pour enfin effectuer une opération, ici assez triviale (ajouter 1 à la cellule précédente).
Voilà comment se présente la macro si je place le bouton de commande sur la feuille de calcul où est effectuée l'opération :
VB:
Private Sub operation_Click()
Range("E4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:K4"), Type:=xlFillDefault
Range("E4:K4").Select
End Sub
Et voilà lorsque je place le bouton de commande sur une feuille différente
Code:
Private Sub operation_Click()
Sheets("Feuille2").Select
Range("E4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:K4"), Type:=xlFillDefault
Range("E4:K4").Select
End Sub
Or lorsque je clique sur le bouton de commande j'ai un message d'erreur "La méthode Select de la classe Range a échoué". Comment expliquer cela? Sachant que la macro ci-dessus est ce qu'il m'a été donné en utilisant "Enregistrer une macro".
Merci de votre réponse.