Microsoft 365 "Cette formule est trop compliquée pour être affectée à un objet"... sniff...

[Toxini]

Hello tout le monde,

Je suis sur un problème, qui à mon avis peut être rapidement résolu mais, qui me casse la tête...

Sur un de mes fichiers Excel, j'ai fait des Macros pour imprimer certaines pages de ce même fichier.
Macros que j'ai affectées à des "logo imprimante", pour rendre tout ça plus ludique.
Jusqu'à là, aucun problème, ça a toujours fonctionné.

Aujourd'hui j'essaie d'apporter des modifications à mon fichier, en ajoutant de nouvelles Macros... Et là c'est le drame !
Impossible d'affecter mes Macros à des "Bouton (contrôle de formulaire)" disponible dans l'onglet Développeur ou même à n'importe quelle image.

Voici le message que ça m'affiche systématiquement : "Cette formule est trop compliquée pour être affectée à un objet"

Ci-dessous le code de la Macro que j'essaie d'affecter :

Sub DEVB1()
'
' DEVB1 Macro
'
'
Sheets("BDD (2)").Select
Range("A1: P45").Select
Selection.Copy
Sheets("SUIVI DES COMPÉTENCES").Select
Range("A17:K19").Select
ActiveSheet.Paste
Range("L17: P17").Select
End Sub


Mais aucune Macro ne peut s'affecter... même une Macro copier/coller.

Mon fichier est bien en .xlsm
Je ne trouve pas de solution... Can you help me please ? =D

Merci d'avance !!

A bientôt

 

[Jacky67]

Hello tout le monde,

Je suis sur un problème, qui à mon avis peut être rapidement résolu mais, qui me casse la tête...
Merci d'avance !!

Bonjour,
Essaye comme ceci,
Les feuilles "BDD (2)" et "SUIVI DES COMPÉTENCES" doivent exister dans le même classeur

Sub DEVB1()
Sheets("BDD (2)").[A1:P45].Copy Sheets("SUIVI DES COMPÉTENCES").[L17]
End Sub

Ou pour ne copier que les valeurs et formats

Sub DEVB1()
    Sheets("BDD (2)").[A1:P45].Copy
    Sheets("SUIVI DES COMPÉTENCES").[L17].PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Si cela ne devait pas fonctionner, mettre le classeur en Pj

 

[Toxini]

Bonjour Jacky67 !

Merci pour ta réponse !

Bon.. je suis toujours au même point : "Cette formule est trop compliquée pour être affectée à un objet"

J'essaie de mettre ma Macro "DEVB1" sur le bouton B1 de l'onglet "SUIVI DES COMPÉTENCES".
J'en ai d'autres à faire mais si ça ne marche déjà pas avec celle-ci.. je suis ùal barré !

Au passage, j'ai remplacé L17 par A17 dans le code que tu m'a proposé, mais ce n'est pas le problème. Merci !

Sub DEVB1()
Sheets("BDD (2)").[A1: P45].Copy
Sheets("SUIVI DES COMPÉTENCES").[L17].PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Je joins mon fichier à ce message pour que tu puisses voir par toi même.


Merci encore pour ton aide !

 

[Toxini]

C'est de nouveau moi,

Je crois que mon problème est résolu.... j'ai simplement changé le nom de mon fichier....
Mes Macros peuvent désormais s'affectée à des images... je ne comprends pas, je n'ai pourtant pas changer le .xlsm

Merci

 

[Jacky67]

Re..
Pourtant ceci fonctionne chez moi sans souci (remplacer L17 par A17)

Sub DEVB1()
    Sheets("BDD (2)").[A1:P45].Copy
    Sheets("SUIVI DES COMPÉTENCES").[a17].PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub