Bonjour,
Pour gagner du temps j'aimerais faire une macro me permettant de coller la formule, au lieu de passer par :
- Edition
- Collage spécial
- Formule
- OK
- Echap (pour que le "Copier" sur la cellule d'origine ne reste pas actif)
Comme ma cellule de destination est aléatoire, je pars du principe qu'avant de lancer cette macro je copie la cellule d'origine où se trouve la formule, et je me positionne sur la cellule de destination de cette formule.
Ensuite je crée ma macro en faisant les 5 étapes mentionnées ci-dessus.
Mais lorsque je teste la macro, j'obtiens un message d'erreur Visual Basic :
Erreur d'exécution '1004'
La méthode PasteSpecial de la classe Range a échoué.
Et si je clique sur déboguage, j'obtiens ça :
Sub Coller_formule()
'
' Coller_formule Macro
' Macro enregistrée le 21/07/2011 par SESA190491
'
'
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Est-ce que quelqu'un saurait d'où vient mon erreur ?
Auriez-vous une idée pour cela ?
Mon collègue est certain d'avoir vu cette action par macro, donc il doit bien y avoir une solution ! 🙂
Merci de l'aide que vous pourrez m'apporter !
DL
Pour gagner du temps j'aimerais faire une macro me permettant de coller la formule, au lieu de passer par :
- Edition
- Collage spécial
- Formule
- OK
- Echap (pour que le "Copier" sur la cellule d'origine ne reste pas actif)
Comme ma cellule de destination est aléatoire, je pars du principe qu'avant de lancer cette macro je copie la cellule d'origine où se trouve la formule, et je me positionne sur la cellule de destination de cette formule.
Ensuite je crée ma macro en faisant les 5 étapes mentionnées ci-dessus.
Mais lorsque je teste la macro, j'obtiens un message d'erreur Visual Basic :
Erreur d'exécution '1004'
La méthode PasteSpecial de la classe Range a échoué.
Et si je clique sur déboguage, j'obtiens ça :
Sub Coller_formule()
'
' Coller_formule Macro
' Macro enregistrée le 21/07/2011 par SESA190491
'
'
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Est-ce que quelqu'un saurait d'où vient mon erreur ?
Auriez-vous une idée pour cela ?
Mon collègue est certain d'avoir vu cette action par macro, donc il doit bien y avoir une solution ! 🙂
Merci de l'aide que vous pourrez m'apporter !
DL
